Question

VB调试，text1里输入4，Print a 为什么会显示0，急求解答

Dim a As Integer
Private Sub Form_Load()
a = Val(Text1.Text)
End Sub
Private Sub Command1_Click()
Print a
End Sub

Answer 1

a = Val(Text1.Text)在Form_Load()中，而Form_Load()在Form窗拿梁埋口显示时被调用。
在此之后，才能在text1里输入4，然后点击按钮执行Command1_Click()输出a值。此时a值为0，因为上面执行a = Val(Text1.Text)时，Text1.Text为默渣灶认值使得a为消蚂0。
修改如下，Print a才会显示4:
Private Sub Command1_Click()
a = Val(Text1.Text)
Print a
End Sub

Answer 2

Private Sub Command1_Click()
Print Text1.Text

End Sub