VB计算器代码

VB计算器代码VB计算器代码 Dim num1 As Single '定义第一个操作数变量，用来临时保存用户所输入的被加数，被减数等 Dim num2 As Single '定义第二个操作数变量，用来临时保存用户所输入的加数，减数等 Dim oper As Byte '定义一个标记变量，用来临时记录用户所按下的运算符，并规定1代表加，2代表减，3代表乘，4代表除 Private Sub Command1_Click() '当1按钮被单击时，则执行以下命令 Text1.Text = Me.Text1.Text + "1" '...

VB计算器代码 Dim num1 As Single '定义第一个操作数变量，用来临时保存用户所输入的被加数，被减数等 Dim num2 As Single '定义第二个操作数变量，用来临时保存用户所输入的加数，减数等 Dim oper As Byte '定义一个标记变量，用来临时记录用户所按下的运算符，并规定1代表加，2代表减，3代表乘，4代表除 Private Sub Command1_Click() '当1按钮被单击时，则执行以下命令 Text1.Text = Me.Text1.Text + "1" '如果用户按下1，则在文本框中添加数字1 End Sub Private Sub Command10_Click() Text1.Text = Me.Text1.Text + "0" '如果用户按下0，则在文本框中添加数字0 End Sub Private Sub Command11_Click() Text1.Text = Me.Text1.Text + "." '如果用户按下"."，则在文本框中添加小数点"." End Sub Private Sub Command12_Click() '当等号按钮被鼠标单击时，则执行以下命令 Dim result As Single '定义结果变量，用来临时保存计算结果 num2 = Val(Text1.Text) ' 将文本框中用户所输入的字符转变成数值，并赋值给第二个操作数变量 If oper = 1 Then result = num1 + num2 '如果先前记录用户所按下的是加法运算符，则执行加法运算，并把运算结果赋值给结果变量Result If oper = 2 Then result = num1 - num2 '如果先前记录用户所按下的是减法运算符，则执行减法运算，并把运算结果赋值给结果变量Result Text1.Text = "" '清空文本框中的数值 Text1.Text = result '将计算结果显示在文本框中 End Sub Private Sub Command13_Click() '当加号按钮被单击时，则执行以下命令 num1 = Val(Text1.Text) ' 将文本框中用户所输入的字符转变成数值，并赋值给第一个操作数变量 oper = 1 '用标记变量oper临时记录用户所按下的运算符，用1代表加法 Text1.Text = "" '清空文本框中的数值，即被加数的值 End Sub Private Sub Command14_Click() num1 = Val(Text1.Text) ' 将文本框中用户所输入的字符转变成数值，并赋值给第一个操作数变量 oper = 2 '用标记变量oper临时记录用户所按下的运算符，用2代表减法 Text1.Text = "" '清空文本框中的数值，即被减数的值 End Sub Private Sub Command15_Click() Text1.Text = "" '清除文本框中的内容 End Sub Private Sub Command2_Click() Text1.Text = Me.Text1.Text + "2" End Sub Private Sub Command3_Click() Text1.Text = Me.Text1.Text + "3" End Sub Private Sub Command4_Click() Text1.Text = Me.Text1.Text + "4" End Sub Private Sub Command5_Click() Text1.Text = Me.Text1.Text + "5" End Sub Private Sub Command6_Click() Text1.Text = Me.Text1.Text + "6" End Sub Private Sub Command7_Click() Text1.Text = Me.Text1.Text + "7" End Sub Private Sub Command8_Click() Text1.Text = Me.Text1.Text + "8" End Sub Private Sub Command9_Click() Text1.Text = Me.Text1.Text + "9" End Sub

                    本文档为【VB计算器代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VB计算器代码

你可能还喜欢