1、这是什么书,第一句数据定义就开始误人字弟。
inputbox$ 那句 与 sum=sum+fs 这句数据类型冲突。
当然就这个程序来讲,定义FS 为 Variant 时,VB6已帮你解决了这个问题,但潜在的问题却没告诉你。
2、
goto ,无条件转移命令。这条命令现在不推荐使用,一般用于组成循环(特别是这种还没学 FOR 循环、DO 循环)或 跳出循环时用,特别是跳出多重循环。 编译后对应的是 jmp 指令。
在这程序中,这 goto 命令组成一种循环。然后要看懂这个程序,必须先去解决一下 msgbox 常数
在 msgbox 函数中,第二个参数规定了msgbox窗体的样式和提示图标、按钮情况。 这种程序里又误人子弟,按编程规范,这里要求写成 常量求和表达式 。
这里 36= vbYesNo(4)+vbQuestion(32) 。
msgbox 返回值 是数值类型,这里判断返回结果是 vbYes(6)。按编程规范,这里也要写常量。
N=msgbox("确定是否继续输入分数?",vbyseno+vbquestion,"是否继续输入")
....
if n=vbyes then
--------
你有啥疑问?