如题所述
第1个回答 2014-03-25
Dim firstnum As Double
Dim yunsuanfu As Integer
Private Sub Command1_Click() 'ce按钮
Text1.Text = ""
End Sub
Private Sub Command4_Click() 'c按钮
Text1.Text = ""
firstnum = 0
yunsuanfu = 0
End Sub
Private Sub Command4_Click() 'backspace按钮
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
Private Sub Command3_Click() '小数点按钮
Text1.Text = Text1.Text & "."
End Sub
Private Sub Command2_Click(Index As Integer) '0-9建立一个按钮数组
Text1.Text = Text1.Text & Index
End Sub
Private Sub Command5_Click(Index As Integer) '+,-,*,/建立一个按钮数组
If Index = 0 Then
yunsuanfu = 0 '+
ElseIf Index = 1 Then
yunsuanfu = 1 '-
ElseIf Index = 2 Then
yunsuanfu = 2 '*
ElseIf Index = 3 Then
yunsuanfu = 3 '/
End If
firstnum = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Command6_Click() 'sqrt按钮
Text1.Text = Sqr(Val(Text1.Text))
End Sub
Private Sub Command7_Click() '1/x按钮
Text1.Text = 1 / Val(Text1.Text)
End Sub
Private Sub Command8_Click() '=按钮
If yunsuanfu = 0 Then
Text1.Text = firstnum + Val(Text1.Text)
ElseIf yunsuanfu = 1 Then
Text1.Text = firstnum - Val(Text1.Text)
ElseIf yunsuanfu = 2 Then
Text1.Text = firstnum * Val(Text1.Text)
ElseIf yunsuanfu = 3 Then
Text1.Text = firstnum / Val(Text1.Text)
End If
Text1.Text = 1 / Val(Text1.Text)
End Sub
Dim yunsuanfu As Integer
Private Sub Command1_Click() 'ce按钮
Text1.Text = ""
End Sub
Private Sub Command4_Click() 'c按钮
Text1.Text = ""
firstnum = 0
yunsuanfu = 0
End Sub
Private Sub Command4_Click() 'backspace按钮
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
Private Sub Command3_Click() '小数点按钮
Text1.Text = Text1.Text & "."
End Sub
Private Sub Command2_Click(Index As Integer) '0-9建立一个按钮数组
Text1.Text = Text1.Text & Index
End Sub
Private Sub Command5_Click(Index As Integer) '+,-,*,/建立一个按钮数组
If Index = 0 Then
yunsuanfu = 0 '+
ElseIf Index = 1 Then
yunsuanfu = 1 '-
ElseIf Index = 2 Then
yunsuanfu = 2 '*
ElseIf Index = 3 Then
yunsuanfu = 3 '/
End If
firstnum = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Command6_Click() 'sqrt按钮
Text1.Text = Sqr(Val(Text1.Text))
End Sub
Private Sub Command7_Click() '1/x按钮
Text1.Text = 1 / Val(Text1.Text)
End Sub
Private Sub Command8_Click() '=按钮
If yunsuanfu = 0 Then
Text1.Text = firstnum + Val(Text1.Text)
ElseIf yunsuanfu = 1 Then
Text1.Text = firstnum - Val(Text1.Text)
ElseIf yunsuanfu = 2 Then
Text1.Text = firstnum * Val(Text1.Text)
ElseIf yunsuanfu = 3 Then
Text1.Text = firstnum / Val(Text1.Text)
End If
Text1.Text = 1 / Val(Text1.Text)
End Sub
第2个回答 2014-03-25
看我的回答