Dim A As Single, B As SinglePrivate Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
Label1.Caption = Str(A + B)
Else
MsgBox "请在两个窗口中全部输入数字!"
End IfEnd SubPrivate Sub Command2_Click()
A = Val(Text1.Text) ...
Dim a, b As LongPrivate Sub Command1_Click()a = Val(Text1.Text): b = Val(Text2.Text)Label1.Caption = a & "+" & b & "=" & a + bEnd SubPrivate Sub Command2_Click()a = V...