江苏省计算机2级VB2007春上机4

江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2007春)
二级Visual Basic语言(试卷代号VB04)
(本试卷完成时间70分钟)
【考试须知】
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；
3．程序代码书写应呈锯齿形。

一、改错题(14分)
【题目】本程序是生成个位数分别是0、l、2、…9的十个三位随机整数，再按插入排序方法由大到小排序，并输出到列表框中。

Option Explicit
Private Sub Command1_Click()
Dim a(9) As Integer, x As Integer, k As Integer, i As Integer
Do While i <= 9
x = Int(Rnd * 900 + 100)
k = x Mod 10
If a(k) = 0 Then
a(k) = x
i = i + 1
Text1 = Text1 & Str(a(k))
End If
Loop
sort (a)
For i = 0 To 9
List1.AddItem a(i)
Next i
End Sub
Private Sub sort(a() As Integer)
Dim x As Integer, i As Integer, j As Integer
For i = 1 To UBound(a)
x = a(i)
j = i - 1
Do While j >= 0 And x > a(j)
a(j) = a(j + 1)
j = j - 1
If j < 0 Then Exit Sub
Loop
If i > j + 1 Then
a(j + 1) = x
End If
Next i
End Sub
【要求】
1．新建工程，输入上述代码，改正程序中的错误；
2．改错时，不得增加或删除语句，但可适当调整语句位置：
3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。

二、编程题(26分)
【题目】编写程序，求出所有无重复数的三个整数组合，使它们的最小公倍数等于指定数据N。

(设N取值范围为[100，150]，三个整数的范围为[3，40])
【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．在文本框i中输入N值，按“计算”按钮，则开始求解并在列表框中显示结果：按“清除”按钮，将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行；3．程序中应定义一个名为LCM的函数过程，用于求三个整数的最小公倍数。

[算法提示：三个整数的最小公倍数，可先求出其中两个整数的最小公倍数，再求出该数与第3个数的最小公倍数即可]。

【要求】
将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。