VB计算器程序源码 Dim a(100) As Double Dim n& Dim Plus As Boolean Dim yunsuan(100) As Integer Dim a100 As Double Dim num As Single Private Sub Command1_Click() If Plus = True Then Plus = False Text1.Text = "1" Else Text1.Text = Text1.Text & "1" End If End Sub Private Sub Command2_Click() If Plus = True Then Plus = False Text1.Text = "2" Else Text1.Text = Text1.Text & "2" End If End Sub