*********100分，暴简单的问题！************

Question

Private Sub Command1_Click()
Text1.Text = Val(a)
End SubPrivate Sub Form_Load()
Dim a As String
a = "1"
End Sub
为何text1.text的值等于0

Answer 1

Dim a As StringPrivate Sub Command1_Click()
    Text1.Text = Val(a)
End SubPrivate Sub Form_Load()
    a = "1"
End Sub

Answer 2

对呀，把“dim a as string”这句写在general declarations 里就行了

Answer 3

Dim a As String
Private Sub Command1_Click()
    Text1.Text = a
End SubPrivate Sub Form_Load()
    a = "1"
End Sub

Answer 4

Dim a As StringPrivate Sub Command1_Click()
    Text1.Text = Val(a)
End SubPrivate Sub Form_Load()
    a = "1"
End Sub

Answer 5

楼上的写得不错,如果把dim a as string 写为public a as string 应该更专业一点吧