vb等级考试题目与评析52

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

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