内容发布更新时间 : 2024/5/11 17:16:08星期一 下面是文章的全部内容请认真阅读。

用VB编写简易计算器

名称 Command1(0)～Command1(9) Command2(0) Command2(1) Command2(2) Command2(3) Command2(4) Command3 Command4 Command5 Command6 Command7 第 1 页 共 3 页

Caption 0～9 + - * / mod 退格 . = 清除 ^ 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

第 2 页 共 3 页

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

第 3 页 共 3 页