Question

用VB编程 计算Text4=Text1 OP Text3,其中OP代表加减乘除，由Text2输入 急急急！！

Answer 1

Private Sub Command1_Click()

  a = Val(Text1)

  op = Text2

  b = Val(Text3)

  Select Case op

  Case "+"

    c = a + b

  Case "-"

    c = a - b

  Case "*"

    c = a * b

  Case "/"

 旦缺首   If b <扮御> 0 Then c = a / b Else c = "除数不模数能为0！"

  End Select

  Text4 = c

End Sub

Private Sub Form_Load()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

End Sub