用VB--通过inputbox函数输入2个运算数及1个算术运算符，实现相应的运算

用VB--通过inputbox函数输入2个运算数及1个算术运算符，实现相应的运算

Private Sub Form_Click()
Dim a As Single, b As Single, c As String
Dim msgtitle As String
msgtitle = "简单的计算器"
a = InputBox("请输入第一个数字" + vbCrLf + "然后单击确定", msgtitle)
c = InputBox("请输入运算符" + vbCrLf + "然后单击确定", msgtitle)
b = InputBox("请输入第二个数字" + vbCrLf + "然后单击确定", msgtitle)
Do While b = "0"
MsgBox "除数不能是0，请重新输入！", vbExclamation, "警告"
b = InputBox("请输入第二个数字" + vbCrLf + "然后单击确定", msgtitle)
Loop
If c = "+" Then
Print a & "+" & b & "="; Spc(1); a + b
ElseIf c = "-" Then
Print a & "-" & b & "="; Spc(1); a - b
ElseIf c = "*" Then
Print a & "×" & b & "="; Spc(1); a * b
ElseIf c = "/" Then
Print a & "÷" & b & "="; Spc(1); a / b
Else
Print "您输入的算式有误！请检查并重新输入！"
End If
End Sub