Public sum As Double
Public k As String
Private SubCommand1_Click（Index As Integer）
Select Case Index
Case 1
Text1.text=Text1.Text&1
Case 2
Text1.text=Text1.Text&2
Case 3
Text1.text=Text1.Text&3
Case 4
Text1.text=Text1.Text&4
Case 5
Text1.text=Text1.Text&5
Case 6
Text1.text=Text1.Text&6
Case 7
Text1.text=Text1.Text&7
Case 8
Text1.text=Text1.Text&8
Case 9
Text1.text=Text1.Text&9
Case 0
Text1.text=Text1.Text&0
Case 10
Text1.text=Text1.Text&“.”
End Select
End Sub
Private SubCommand2_Click（）
Sum=Text1.Text
Text1.text=“”
K=“+”
End Sub
Private SubCommand3_Click（）
Sum=Text1.Text
Text1.text=“”
K=“-”
End Sub
Private SubCommand4_Click（）
Sum=Text1.Text
Text1.text=“”
K=“*”
End Sub
Private SubCommand5_Click（）
Sum=Text1.Text
Text1.text=“”
K=“/”
End Sub
Private SubCommand6_Click（）
Dim a As Double
a=Text1.Text
If k=“+”Then
sum=sum+a
Text1.Text=sum
ElseIf k=“-”
sum=sum-a
Text1.Text=sum
ElseIf k=“*”
sum=sum*a
Text1.Text=sum
ElseIf k=“/”Then
sum=sum/a
Text1.Text=sum
End If
End Sub

没人吗