VB编写软件,实现从键盘输入两个数值和一个运算符(+,-,*,/),显示出运算结果
来源:百度知道 编辑:UC知道 时间:2024/05/24 22:45:32
麻烦各位大侠了。。。又不会做VB了。。。
编写软件,实现从键盘输入两个数值和一个运算符(+,-,*,/),显示出运算结果
请大侠做好发我邮箱382774863@163.com,谢了
编写软件,实现从键盘输入两个数值和一个运算符(+,-,*,/),显示出运算结果
请大侠做好发我邮箱382774863@163.com,谢了
一楼用了3个文本框,下面只用一个文本框,代码自然要复杂些...
Private Sub Command1_Click()
Dim n As Integer, x1 As Integer, x2 As Integer
Dim s As String, f As String
s = Trim(Text1)
n = InStr(s, "+")
If n = 0 Then
n = InStr(s, "-")
If n = 0 Then
n = InStr(s, "*")
If n = 0 Then
n = InStr(s, "/")
If n = 0 Then
MsgBox "算数运算表达式错误!" & s
End If
End If
End If
End If
If n > 1 Then
f = Mid(s, n, 1)
x1 = Val(s)&n