UC知道各位网友，这个VB程序错在哪里？
来源：百度知道 编辑：UC知道 时间：2024/05/30 09:05:22
Dim s%
Private Sub Command1_Click()
Print s
End Sub
Private Sub Form_Load()
s = Text1.Text
End Sub
各位网友，这个VB程序错在哪里？
我想要得结果是在文本框中输入一个数字给s赋值，然后把s打印出来，虽然加上val()后不出错了，但每次只打印出0，请问为什么？怎么改？谢谢各位网友!
Private Sub Command1_Click()
Print s
End Sub
Private Sub Form_Load()
s = Text1.Text
End Sub
各位网友，这个VB程序错在哪里？
我想要得结果是在文本框中输入一个数字给s赋值，然后把s打印出来，虽然加上val()后不出错了，但每次只打印出0，请问为什么？怎么改？谢谢各位网友!
text1.text是文本型的量,
如果在文本框中的数值的话,系统会自动转换,但如果是"TEXT1"之类的字符串的话,无法转成数值,在为S赋值时,造成类型不符.
解决方法,要么选为text1赋成数值
Private Sub Form_Load()
text1.text=5
s = Text1.Text
End Sub
或把第一句的百分号去除.
Private Sub Form_Load()
s = Text1.Text
End Sub
我想这一句没什么用吧```
程序没问题，关键是Text1.Text，Text1里面的字符必须是数字，不然就出错。
改成下面这样，就不会出错了．
Dim s%
Private Sub Command1_Click()
Print s
End Sub
Private Sub Form_Load()
s = val(Text1.Text )
End Sub
晕，要注意的是，你输入数字的时候请在英文输入法的状态下输入，因为全角状态下的数字仍然被认为是字符而不是数字．