计算机等级考试复习资料-vb50题.docVIP

VB上机考试程序调试题样题(改错或填空) 说明： 在考生目录中有一个标准模块程序Modify1.BAS或Modify2.BAS。 要求学生建立一工程，将这一模块添加到工程中。如果你是通过双击标准模块程序Modify?.BAS进入Visual Basic程序设计系统的，则首先需要添加一个窗体模块。 将该标准模块程序Modify?.BAS代码中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的sub过程或自定义函数（如果在标准模块程序中有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。 [题1] aboveave过程是产生30个1--100之间的随机整数，计算这30个数的平均值然后，找出30个数中数值大于平均值的数据,并统计出这些数据的个数 Option Explicit Public Sub aboveave() Dim x(30) As Integer Dim sum As Integer, ave As Integer 平均值取整数 Dim i As Integer Dim count As Integer 在平均值之上的数据个数 Randomize For i = 1 To 30 x(i) = Int(Rnd * 100) + 1 Next i sum = 0 For i = 1 To 30 sum = ---------1--------- Next i ave = --------2--------- 5个一行打印出原始数据，打印平均值 For i = 1 To 30 Form1.Print x(i); Space(2); If i Mod 5 = 0 Then Form1.Print Next i Form1.Print 平均值：; ave 找出并5个一行打印在平均值之上的数据，打印统计的个数 Form1.Print 在平均值之上的数据是: For i = 1 To 30 If x(i) ave Then ---------3--------- Form1.Print x(i); Space(2); If ------4-------- Then Form1.Print End If Next i Form1.Print Form1.Print 共有; count; 个在平均值之上. End Sub [题2] rn过程通过调用函数isLeapYear判断某年是否是闰年，若是,则打印今年是润年，否则,打印今年不是闰年。 Option Explicit Public Sub rn() Const year = 2023 If ----1---- Then Form1.Print 今年是闰年 Else Form1.Print 今年不是闰年 End If End Sub Function isLeapYear(y As Integer) As Boolean If ----2---- Or (----3---- And ----4----) Then isLeapYear = False Else isLeapYear = True End If End Function [题3] ComMulti过程是求任意两个正整数的最小公倍数，求最小公倍数的一种方法是先求出两个数的最大公约数，两个数的乘积除以最大公约数的商即为最小公倍数。 Option Explicit Public Sub ComMulti() Dim m As Integer, n As Integer 任意两个正整数 Dim i As Integer Dim multi As Integer 最小公倍数 输入两个正整数，要求m与n都必须大于零 Do m = Val(InputBox(m=)) n = Val(InputBox(n=)) Loop While ------------1---------- multi = ---------2-----------