VB程序纠正错误，高中VB纠正错误

修改如下：

private sub form_click()dim a, b

a = array(85, 77, 92, 66, 44)b = array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨万")

max = a(0): student = b(0)for i = 0 to 4

if a(i) >max then

max = a(i): student = b(i)end if

next i

print "成绩最好的学生是："; student; "测试结果为："; max; "点"

end sub

private sub form_click()dim a as variant, b as variant 'string

a = array(85, 77, 92, 66, 44)b = array("黄玉梅", "朱明霞", "孙家宝", "赵天明", "杨万")

max = a(0): student = b(0)for i = 0 to 4 '1 to 5if a(i) >max then 'b(i) >max thenmax = a(i): student = b(i)end if

next i

print "成绩最好的学生是："; student; "测试结果为："; max; "点"

end sub

第一个错误是在 dim 后添加逗号并更改：dim 步长为整数

第二个错误是表达式错误，改为：n=3*n+1

第三个错误应为：end if

对于第四个错误，添加单词循环

2.定义时是一个错误，应该改为 dim s as double，h as double，a as in double，我不知道第二个错误是什么，因为我看不到你的运行界面。

3.第一个错误没有变量名，应改为：dim i as long

第二个错误是逻辑错误，不应使用 OR，而应更改为 and

第三个错误应更改为下一个 i

4.第一个错误是赋值错误，因为它是连续加法，所以 s 的初始值应该是 0，应该改为：s=0

第二个错误应更改为：for i= 1 to 100，因为它以 1 开头，而不是 0

第三个错误应更改为“误折”，因为最后一个要求是从 1 到 100 连续增加的值 s。

哦！ 这是一场艰苦的战斗！

1.print 5 * 5 5 5 5 语句的输出为 25。

至 2.如果 EOF （文件编号） 函数返回值 true，则文件指针指向文件的开头。

False，指向文件末尾。

3.可以在程序运行时设置控件和窗体的 name 属性。

错。 name 属性是只读的，无法修改。

4.由于 API 函数存储在 Windows 动态连接库中，因此无需在 VB 中声明即可使用它们。

错。 必须声明用途。

5.控件数组由一组具有公用名称且类型相同的控件组成。

右。 至于这个通用名称，应该理解为名称相同，但索引不相同。 如果不这样理解，那就错了。

6.print int（>=cint（） 语句的输出为 true。

错了，结果是四舍五入，int 是直接去掉小数点。

7.保存 Visual Basic 应用程序时，样式文件具有文件扩展名。 frm。

至 8在操作期间，VB 无法动态增加控制数组中的元素数。

这个似乎是对的。

9.引用数组元素时，数组元素的下标表达式的值可以超出指定的维度边界。

错。 10.以下语句的执行特点是“先判断后执行，当条件为真时执行循环”。

做而条件。

block]exit do]。

环路对 11为了在按下 [esc] 键时执行按钮的单击事件，按钮的 cancel 属性应设置为 true。

至 12必须在设计时通过“属性”窗口设置数据绑定控件的 datafield 属性。

这个不是很清楚。 不多。 我不知道它是否也可以在运行时设置。

13.MDI 窗体由“项目”菜单中的“添加窗体”命令创建。

False，添加 MDI 表单。

14.用于将列表项添加到列表框的方法是 additem。

至 15show 方法用于显示表单，它同时具有加载和显示表单的功能。

这似乎是对的。

更正答案。

8.在操作期间，VB 无法动态增加控制数组中的元素数。

是的，VB 可以在运行时动态增加小部件数组的数量。

对不起，VB真的不明白，进来学习吧。 如果是VF，C，C++，没关系。