Iteration

Public Class Iteration

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Num As Integer

Num = CInt(InputBox(" ãÊè¤èÒ : "))

For j As Integer = 1 To 10

Num = Num + 1

Next

MessageBox.Show("¤ÓµÍº ¤×Í " & Num, "à©ÅÂ")

Dim Num1, Num2 As Integer

Dim MyNum As Integer

MyNum = CInt(InputBox(" ãÊè¤èÒ : "))

For Num1 = 10 To 1 Step -1

For Num2 = 0 To 9

MyNum = MyNum + 1

If MyNum = 8 Then Exit For

Next Num2

Next Num1

MessageBox.Show("¤ÓµÍº MyNum ¤×Í " & MyNum, "à©ÅÂ")

MessageBox.Show("¤ÓµÍº Num1 ¤×Í " & Num1, "à©ÅÂ")

MessageBox.Show("¤ÓµÍº Num2 ¤×Í " & Num2, "à©ÅÂ")

Dim Num3 As Integer

Num3 = CInt(InputBox(" ãÊè¤èÒ : "))

Do Until Num3 > 10

Num3 = Num3 + 1

Loop

MessageBox.Show("¤ÓµÍº Num3 ¤×Í " & Num3, "à©ÅÂ")

Dim Num4 As Integer

Num4 = CInt(InputBox(" ãÊè¤èÒ : "))

Do While Num4 > 1

Num4 = Num4 - 1

Loop

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num4, "à©ÅÂ")

Dim Num5 As Integer

Num5 = CInt(InputBox(" ãÊè¤èÒ : "))

Do

Num5 = Num5 + 1

Loop Until Num5 > 10

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num5, "à©ÅÂ")

Dim Num6 As Integer

Num6 = CInt(InputBox(" ãÊè¤èÒ : "))

Do

Num6 = Num6 + 1

Loop While Num6 > 10

MessageBox.Show("¤ÓµÍº Num4 ¤×Í " & Num6, "à©ÅÂ")

End Sub

End Class