VB算法

[LZW201141]

下面代码错误在哪儿，文本框1值＞2000，点击Command1,没反应？

[LZW201141]

代码如下： Private Sub Command1_Click() dim sum as single,a as single a=text1 if a>2000 then sum=a+a*0.1 else sum =a text2.text=sum end if end sub

[LZW201141]

刚刚照片发送不了，现在补上

[threenewbee]

end if在下面，条件满足没有输出

[kxyzjm62]

Private Sub Command1_Click() dim sum as single,a as single a=text1 if a>2000 then sum=a+a*0.1 text2.text=sum else sum =a text2.text=sum end if end sub

[LZW201141]

谢谢各位，明白了，我把代码简化了下 Private Sub Command1_Click() Dim a As Single a = Text1 If a > =2000 Then a = a + a * 0.1 Else a = a + 1 End If Text2 = a End Sub 还有个问题 a = Text1与a = Text1.text 是同样的含义吗？

[threenewbee]

text2.text=sum写在end if下面

[dclx2012]

Private Sub Command1_Click() dim sum as single,a as single a=text1 if a>2000 then sum=a+a*0.1 else sum =a text2.text=sum end if end sub 这个应该是VB程序吧？ a= text1.text 这个数据类型是文本类型，需要转成数值型a=Val(TextBox49.Text) text2.text最好转成文本，不是文本也没有关系。 text1 默认是text.text 吧

[threenewbee]

引用 6 楼 LZW201141 的回复:

谢谢各位，明白了，我把代码简化了下 Private Sub Command1_Click() Dim a As Single a = Text1 If a > =2000 Then a = a + a * 0.1 Else a = a + 1 End If Text2 = a End Sub 还有个问题 a = Text1与a = Text1.text 是同样的含义吗？

vb6里，是。因为text是textbox的默认属性

[LZW201141]

恩，谢谢！也会碰到a=Val（text1.text），为什么不直接用a=text1.text呢？