vb等级考试题目与评析53

vb等级考试题目与评析53内容摘要：

********************************************************************** （ 2）在考生文件夹下有一个工程文件 ，相应的窗体文件为 ， 在窗体上有一个命令按钮 和一个文本框。 程序运行后，单击命令按钮，即 可计算出 0～ 100范围内所有偶数的平方和，并在文本框中显示出来。 在窗 体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用 过程 Fun中实现，请编写该过程的代码。 要求： 请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间 填入你编写的若干语句。 最后把修改后的文件按原文件名存盘。 第 1小题： 本题的考查的是数组和随机函数的用法。 题目要求 通过随机函数 Rnd产生 20个 0～ 1000的随机整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。 打开工程文件 ，在窗体上有一个命令按钮Command1， Caption属性为“输出小于 500的整数之和”，双击命令按钮在代码窗口中补充如下代码： Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 arrN(i) = Int(Rnd * 1000) Next i Sum = 0 For i = 1 To 20 If arrN(i) 500 Then Sum = Sum + arrN(i) End If Next i Print Sum End Sub 按要求保存文件即完成本题。 第 2小题： 打开一个工程文件 ，窗体上放有一个命令按钮和一个文本框，要求单击命令按钮，计算 出 0～ 100范围内所有偶数的平方和，并在文本框中显示出来。 双击命令按钮打开代码窗口，在 Function Fun()和 End Function之间补充如下代码： Function Fun() Dim i As Integer, sum As Long。