Question

麻烦看一下VB哪儿错了 Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(txt1.Text) If

我明明发完了啊，可是粘贴上来就没有了
Private Sub Form_Click()
Dim x As Single
Dim y As Single
x = Val(Text1.Text)
If x <= 0 Then y = 3 * x + 1 Else y = 4 * x + 1

Print "y="; y

End Sub

Answer 1

楼主,你的程序代码应该是没问题,不知道你的错误在哪行上?

如果你运行有错误的话,请先检查一下窗体上是否有名称为"Text1"的这样一个TextBox控件
还有就是在窗体上单击才会运行这段代码.

Answer 2

你的这个代码没有发完吧，
你的If条件也没有，而且Sub函数的结束语句也没有，不知道你想干嘛。
发出有问题的程序要让人能看得懂：
Private Sub Form_Click()
Dim x as Single
Dim y as Singel
x=val(Text1.Text)
if 你的条件 then
你想要的结果
endif

End Sub

Answer 3

问题没发完，神人一个

Answer 4

运行没错误，肯定是逻辑错误，你想要的结果是什么？