简单的VB计算器代码[
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
]
简单的VB计算器代码:
'变量定义说明部分
Dim x1 As Single, x2 As Single
As Single Dim Y
Dim n As Integer '标记使用运算符类型 '接收数据输入
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + CStr(Index) End Sub
'按运算符时的处理方法
Private Sub Command3_Click(Index As Integer)
x1 = Val(Text1.Text)
Text1.Text = ""
n = Index
End Sub
'输入小数点时的处理办法
Private Sub Command2_Click()
Text1.Text = Text1.Text + "." End Sub
'单击退格按钮时的处理方法 Private Sub Command4_Click()
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End Sub
'单击清除按钮时的处理方法 Private Sub Command5_Click()
x1 = 0: x2 = 0: Y = 0
Text1.Text = ""
End Sub
'单击退出按钮时的处理方法 Private Sub Command6_Click()
Unload Me
End Sub
'单击"="按钮时的处理方法 Private Sub Command7_Click()
x2 = Val(Text1.Text)
On Error GoTo err1
Select Case n
Case 0
Y = x1 + x2
Case 1
Y = x1 - x2
Case 2
Y = x1 * x2
Case 3
Y = x1 / x2
End Select
Text1.Text = CStr(Y)
Exit Sub
err1:
MsgBox "您输入的数据有误，请重新输入～", vbOKOnly + vbCritical, "
错误～"
Text1.Text = ""
x1 = 0: x2 = 0: Y = 0
Exit Sub
End Sub
运行界面如下:
![简单的VB计算器代码[设计]](https://swf.iask.com/31UumMx846P.jpg?ssig=c8986dwkX7&Expires=1718443592&KID=sina,ishare&range=0-180761)
浙公网安备 33021202002483