求助有关select case 语句问题

[Tichou]

大侠帮我看看这段代码怎么就运行不了??输入"+'和两个输入数,点击按钮后,text4.text就是出不来东西!谢谢!
dim a,b,c,d
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Text2.Text
c = Val(Text3.Text)
Select Case b
Case "+"
d = a + c
Case "*"
d = a * c
End Select
Text4.Text = d
End Sub

[cbm6666]

请养成变量宣告型态设置的习惯

Dim a&, b$, c&, d&
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Text2.Text
c = Val(Text3.Text)
Select Case b
Case "+"
d = a + c
Case "*"
d = a * c
End Select
Text4.Text = d
End Sub

[Tichou]

楼上的兄弟,谢谢指教,
但是为什么运行不了?

[用户 昵称]

怎么会运行不了呢?1F的程序绝对没问题.

[cbm6666]

text1与text3各别输入数字, Text2输入 + 或 * 点了Command1 在 text4你就能看到结果

[DoemingRau]

我已经试过了，你的代码没问题，看下是不是工程有问题

[Tichou]

感谢楼上各位兄弟的热情回复,问过老师了,原来是空白字符串搞鬼,只需改成b=trim(text2.text)就可以了!!

[Tichou]

[Quote=引用 4 楼 cbm666 的回复:]
text1与text3各别输入数字, Text2输入 + 或 * 点了Command1 在 text4你就能看到结果
[/Quote]
没用的,我试过很多次了

[cbm6666]

[Tichou]

呵呵,楼上兄弟怎么了