Private Sub Command1_Click()
x = 1:n=0
Do While x10 Then Exit For
Next i
Form1.Print “n =”; n,”i=”; i
End Sub
3.
Private Sub Form_Click()
Static Sum As Integer
I = 1
While I <= 10
Sum = Sum + I
I = I + 1
Wend
Print Sum
End Sub
4.
Sub test(i As Integer)
i = i + 1
End Sub
Private Sub Form_Click()
Dim x As Integer
x = 4
Print "x="; x
Call test(x)
Print "x="; x
End Sub