VB计算器编写程序RT,求VB计
欢迎看一下我的计算器,
有程序界面,
你可以参考一下,添加运算功能。
说明:1。共有4个文本框其,其中三个是填入或输出数据的(名称分别是:txta txtb txtc),剩下的那个是符号(txtd)2。 共7个按钮,4个是符号按钮,一个计算,一个清零.这是我弄的程序”袖珍计算器”代码也是自己编写的,代码如下:通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao。 Text = "+" '将”+”显示到文本框txtfuhao。Text中
End...全部
欢迎看一下我的计算器,
有程序界面,
你可以参考一下,添加运算功能。
说明:1。共有4个文本框其,其中三个是填入或输出数据的(名称分别是:txta txtb txtc),剩下的那个是符号(txtd)2。
共7个按钮,4个是符号按钮,一个计算,一个清零.这是我弄的程序”袖珍计算器”代码也是自己编写的,代码如下:通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao。
Text = "+" '将”+”显示到文本框txtfuhao。Text中
End SubPrivate Sub Command2_Click()
txtfuhao。Text = "-" ''将”-”显示到文本框txtfuhao。
Text中
End SubPrivate Sub Command3_Click()
txtfuhao。Text = "×" '将”×”显示到文本框txtfuhao。Text中
End SubPrivate Sub Command4_Click()
txtfuhao。
Text = "÷" 将”÷”'显示到文本框txtfuhao。Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta。
Text) '将txta。Text里的内容转化为数值型,然后再赋给a
b = Val(txtb。Text) '将txtb。Text里的内容转化为数值型,然后再赋给b
If txtfuhao。
Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao。Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao。
Text = "÷" Then '运算过程
c = a / b '运算过程
ElseIf txtfuhao。Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc。
Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta。Text = "" '将空字符输入到文本框内(刷新)
txtb。
Text = "" '将空字符输入到文本框内(刷新)
txtc。Text = "" '将空字符输入到文本框内(刷新)
txtfuhao。
Text = "" '将空字符输入到文本框内(刷新)
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub
参考资料:
要的话请发邮件到:329156195@ 叫我要,我再发到你的邮箱里!。收起