程式設計一 上機小考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
沒有留言:
張貼留言