Private Sub Command1-Click() Dim a As Long a = 1234 a& = 456

Private Sub Command1_Click()
Dim a As Long '定义a为长整型
a = 1234 ' 给变量a赋值1234,此时变量a的值为1234.
a& = 4567 '给长整型变量a（"a&"表示常整型变量a）赋值为4567,此时变量a的值为4567
Print a; a& '输出变量a的值两次.注意变量"a"和"a&"是一回事.
End Su