帮帮忙啊谢谢vb问题

Question

Private Sub Form_Click()
Dim a As Integer, b As Integer
b = 10
For a = 1 To b
  a = a + 1
  b = b - a
Next a
Print a
Print b
End Sub

Answer 1

创建一个Form  自己按F8运行  就能知道是怎么回事了。

Answer 2

鼠标单击窗体运行:
Private Sub Form_Click()
    Dim a As Integer, b As Integer
    b = 10
    For a = 1 To b
        a = a + 1
        b = b - a
        Print a, b
    Next a
    Print a
    Print b
End Sub

Answer 3

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c
b = 10
For a = 1 To 10
  a = a + 1
  Print "a="; a
  b = b - a
  Print "b="; b
  c = c + 1
  Print "c="; c
  Print
Next a
Print
Print a
Print b
Print cEnd Sub