用VB编写简易计算器
Dim shu1 As Single, shu2 As Single '定义shu1和shu2为两个要计算的小数
Dim suanfu As Integer '定义suanfu为运算符
Dim x As Integer
Private Sub Command1_Click(Index As Integer) '0-9这10个按钮按下
Text1.Text = Text1.Text & Index '将按下的按钮数字加到之前的文本上,index即按下的数字
End Sub
Private Sub Command2_Click(Index As Integer) '+-*/mod五个按钮
shu1 = Text1.Text 'shu1取到现在的第一个运算数
suanfu = Index 'index为0时,即+;index为1,即-;index为2,即*;index为3,即/;index为4,即mod
Text1.Text = "" '清空文本框
End Sub
Private Sub Command3_Click() '退格按钮
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 'len是取长度,
'Left(a,N)的意思是从a的左边开始取值,取得位数为N位
End Sub
Private Sub Command4_Click() '.按钮
Text1.Text = Text1.Text & "." '连接之前的文本和.
End Sub
Private Sub Command5_Click() '=按钮
shu2 = Text1.Text 'shu2为现在的文本框内容
If suanfu = 0 Then Text1.Text = shu1 + shu2
If suanfu = 1 Then Text1.Text = shu1 - shu2
If suanfu = 2 Then Text1.Text = shu1 * shu2
If suanfu = 3 Then '如果要计算两个数相除
If shu2 = 0 Then '判断除数是否为0
MsgBox ("分母不能为0")
Else
Text1.Text = shu1 / shu2
End If
End If
If suanfu = 4 Then Text1.Text = shu1 Mod shu2
End Sub
Private Sub Command6_Click() '清空按钮
Text1.Text = ""
End Sub
Private Sub Command7_Click() '^按钮,计算当前数的平方Text1.Text = Text1.Text * Text1.Text
End Sub