求VB 加减乘除 计算机代码

Question

界面上有text1 text2 text3 一个按钮 一个label1
text3是给人输入加减乘除的
然后要求当除数为0时弹出“出错”
当算出的答案在0-1之间。要求显示0.几 而不是.几
算出负的同理
谢谢帮忙。
简单点= =。

第一个有错= =

Ptint Format(d,#0.0##)这句是红色的

第二个我看不懂。。太高级。。。我高一。。。

啊啊。点击那个按钮计算。

最好都用if then 这个做= =。

Answer 1

最简单的

Private Sub Command1_Click()
Select Case Text3.Text
Case "+": Label1.Caption = Format(Val(Text1.Text) + Val(Text2.Text), "0.########")
Case "-": Label1.Caption = Format(Val(Text1.Text) - Val(Text2.Text), "0.########")
Case "*": Label1.Caption = Format(Val(Text1.Text) * Val(Text2.Text), "0.########")
Case "/": If Val(Text2.Text) = 0 Then MsgBox "除数不能为0": Exit Sub
Label1.Caption = Format(Val(Text1.Text) / Val(Text2.Text), "0.########")
Case Else: MsgBox "输入有误", 48
End Select
End Sub

Answer 2

'VB6.0 测试通过

Private Sub Command1_Click()
If IsNumeric(Text1.Text) <> True Or IsNumeric(Text3.Text) <> True Then
Label1.Caption = "请输入数字"
Exit Sub
End If
Select Case Text2.Text
Case "+", "＋", "加", "加上"
Label1.Caption = (CStr(addition(Text1.Text, Text3.Text)))
Case "-", "－", "减", "减去"
Label1.Caption = (CStr(subtraction(Text1.Text, Text3.Text)))
Case "X", "*", "x", "×", "乘以", "乘"
Label1.Caption = (CStr(multiplication(Text1.Text, Text3.Text)))
Case "÷", "/", "除以", "除"
Label1.Caption = (CStr(division(Text1.Text, Text3.Text)))
Case Else
Label1.Caption = ("无法识别运算符")
End Select
End Sub

Function addition(a, b)
number1 = CDbl(a)
number2 = CDbl(b)
addition = number1 + number2
addition = NM(addition)
End Function
Function subtraction(a, b)
number1 = CDbl(a)
number2 = CDbl(b)
subtraction = a - b
subtraction = NM(subtraction)
End Function

Function multiplication(a, b)
number1 = CDbl(a)
number2 = CDbl(b)
multiplication = number1 * number2
multiplication = NM(multiplication)
End Function

Function division(a, b)
number1 = CDbl(a)
number2 = CDbl(b)
If b = 0 Then
division = ("除数不能为零")
Exit Function
End If
division = number1 / number2
division = NM(division)
End Function

Function NM(a)
number1 = CDbl(a)
If a > 0 And a < 1 Then
NM = "0" + CStr(a)
Exit Function
End If
If a < 0 And a > -1 Then
NM = "-0" + CStr(Abs(a))
Exit Function
End If
NM = CStr(a)
End Function

Answer 3

用text1和text2分别输入被除数和除数。text3输入“+ - * / ” ，然后单击窗体时在窗体上打印出结果：

Private Sub Form1_Click()
Cls
Dim a as Single , b as Single ,c as Double
a=Text1.Text:b=Text2.Text
If Text3.Text="+" Then
c=a+b
Ptint Format(d,#0.0##)
End If

If Text3.Text="-" Then
c=a-b
Ptint Format(d,#0.0##)
End If
If Text3.Text="*" Then
c=a*b
Ptint Format(d,#0.0##)
End If

If Text3.Text="+"
ElseIf Text2.Text=0 Then
MsgBox "出错"
Exit Sub
Else
c=a/b
Print Format(d,#0.0##)
End If
End Sub

没在计算机调试过，不知道是不是完全正确，你自己调试看看。