RT，在编程过程中遇到一个算术程序问题，忘指引。我制作的是一个简单的包括（+ - * /）的算术程序，但是算加法总是不正常，比如说50+50应该是100，而我制作的程序50+50是5050，其他的正常。
  以下是代码，请问大神怎么改？
  Option Explicit
Dim opt As String


Private Sub Command1_Click()
opt = "+"
End Sub

Private Sub Command2_Click()
opt = "-"
End Sub

Private Sub Command3_Click()
opt = "*"
End Sub

Private Sub Command4_Click()
opt = "/"
End Sub

Private Sub Command5_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
Select Case opt
Case "+"
result = a + b
Case "-"
result = a - b
Case "*"
result = a * b
Case "/"
If b <> 0 Then
result = a / b
Else
MsgBox "除数不能为0，请修改！"
End If
End Select
Text3.Text = result
End Sub

a = val(Text1.Text)
b = val(Text2.Text)

  Dim a As Integer, b As Integer, result As Double
VB不能像c那样批量定义变量类型，必须一个个定义。

2位版主的做法都能得出正确结果
    你那个错误原因:a,b 没指定类型,vb默认为 variant型
    但是 "a = Text1.Text" 这样赋值,系统会认为a 为String类型,而且 VB 中 "+"有 拼接字符串的作用
所以...

感谢您的解答，按照您的操作，完全能解决我的问题，Thanks.

同时感谢您的解答，按照您的做法也可以解决我的问题，万分感谢。

也感谢您的解答，受人之渔。

路过