UC知道我是刚学VB的1个新手 刚才写了个错误的代码 不知道错在那 请高手指点
来源：百度知道 编辑：UC知道 时间：2024/09/21 08:24:36
Private Sub Form_Click()
Print "总数为"; zs#
End Sub
Private Sub Form_Load()
h1$ = "请输入第一个数字"
h2$ = "请输入第二个数字"
h3$ = "请输入第三个数字"
h4$ = "请输入第四个数字"
s1# = InputBox(h1$, 输入栏)
s2# = InputBox(h2$, 输入栏)
s3# = InputBox(h3$, 输入栏)
s4# = InputBox(h4$, 输入栏)
zs# = (s1# + s2# + s3# + s4#) / 4
End Sub
这就是我写的代码我 不知道错在哪 我输入4，5，6，9 我以为写出来的是6 结果他说总数为0 请高手指点 我先在这谢谢了 还有就是
（顺便告诉我点考二级VB的经验 怎么复习）
Print "总数为"; zs#
End Sub
Private Sub Form_Load()
h1$ = "请输入第一个数字"
h2$ = "请输入第二个数字"
h3$ = "请输入第三个数字"
h4$ = "请输入第四个数字"
s1# = InputBox(h1$, 输入栏)
s2# = InputBox(h2$, 输入栏)
s3# = InputBox(h3$, 输入栏)
s4# = InputBox(h4$, 输入栏)
zs# = (s1# + s2# + s3# + s4#) / 4
End Sub
这就是我写的代码我 不知道错在哪 我输入4，5，6，9 我以为写出来的是6 结果他说总数为0 请高手指点 我先在这谢谢了 还有就是
（顺便告诉我点考二级VB的经验 怎么复习）
在所有的sub之外定义窗体级变量zs
否则zs在每个过程中都是新定义的,默认为0
你form_click打印自己的0
form_load算出来等于几都没意义
你的zs#变量不是全局的，它被定义在Form_Load中，所以，当你在Form_Click中使用它时，系统认为你重新定义了一个zs#，其默认值永远为0了。
Dim zs#, h1$, h2$, h3$, h4$, s1#, s2#, s3#, s4#
Private Sub Form_Click()
Print "总数为"; zs
End Sub
Private Sub Form_Load()
h1 = "请输入第一个数字"
h2 = "请输入第二个数字"
h3 = "请输入第三个数字"
h4 = "请输入第四个数字"
s1 = InputBox(h1$, 输入栏)
s2 = InputBox(h2$, 输入栏)
s3 = InputBox(h3$, 输入栏)
s4 = InputBox(h4$, 输入栏)
zs = (s1 + s2 + s3 + s4) / 4
End Sub
你的ZS变量没有定义为全局变量.
应该在代码的顶站定义ZS
正确代码应该是:
dim zs
Private Sub Form_Click()
Print "总数为"; zs#
End Sub
Private Sub Form_Load()
h1$ = "请输入第一个数字"
h2$ = "请输入第二个数字"
h3$ = "请输入第三个数字"
h4$ = "请输入第四个数字"
s1# = InputBox(h