Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
Do While b < 43
c = a * 2 ^ b
Label2.Caption = c
Exit Do
Loop
End Sub(不规范的while循环)
四种while,Util循环
Private Sub Command1_Click()
Dim a, b, i As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
i = 1
Do While i <= b
a = a * 2
i = i + 1
Loop
Label2.Caption = a
End Sub
Private Sub Command1_Click()
Dim a, b, i As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
i = 1
Do
a = a * 2
i = i + 1
Loop While i <= b
Label2.Caption = a
End Sub
Private Sub Command1_Click()
Dim a, b, i As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
i = 1
Do
a = a * 2
i = i + 1
Loop Until i > b
Label2.Caption = a
End Sub
Private Sub Command1_Click()
Dim a, b, i As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
i = 1
Do Until i > b
a = a * 2
i = i + 1
Loop
Label2.Caption = a
End Sub