2016年11月11日 星期五

程式設計一 上機小考1 訂正

程式設計一 上機小考1 訂正

Q3. 不換行在螢幕上印出 -19  -28  -37 . . .  -73  -82  (限用 For Next)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Q3. 不換行在螢幕上印出 -19  -28  -37 . . .  -73  -82  (限用 For Next)
        Dim ans As String = ""
        For i = -19 To -82 Step -9
            ans &= i & "  "
        Next
        Me.TextBox1.Text = ans
    End Sub


沒有留言:

張貼留言