การใช้ Code" For...Next
Code"
Public Class Form1
Private Sub btt_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_up.Click
Dim A As Integer = CInt(Rnd() * 50) หรือจะเปลี่ยนเป็นเลขอื่น ๆ ก้ได้
Dim B As String = "จำนวนรอบ " + A.ToString + " รอบ" + vbCrLf + "____________" + vbCrLf
Dim C As Integer
For C = 1 To A
B += "วนรอบที่ " + C.ToString + vbCrLf
Next
txt_output.Text = B
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
Private Sub btt_down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_down.Click
Dim a As Integer = 1000
Dim B As String = "จำนวนรอบ " + a.ToString + " รอบ" + vbCrLf + "____________" + vbCrLf
Dim C As Integer
For C = a To 1 Step -100 จะให้ถอยหลังหรือไปหน้าเท่าไหร่ก้ได้ (ถอยให้ลบ ไปหน้าให้บวก)
B += "วนรอบที่ " + C.ToString + vbCrLf
Next
txt_output.Text = B
End Sub
End Class
ความคิดเห็น
แสดงความคิดเห็น