2003年春上机试题5

计算机基础知识和应用能力等级考试上机试题（2003年春）

二级 Visual Basic 语言 （试卷代号 VB05）

（本试卷完成时间 70分钟）

一、 改错（17分）

（题目）Euler函数(n)是表示不大于n且互质的正整数的个数。例如，与3互质的数有1和2两个，与4互质的数有1和3两个，因此，(3)=(4)=2。下面程序的功能是：找出100以内相邻数n和n+1，使得(n)=(n1)（下图为程序正确执行时的画面）。 Option Explicit

Private Sub Command1_Click()

Dim N As Integer, K As Integer, F1 As Integer, F2 As Integer For N = 1 To 100

Call Euler(N, F1) Call Euler(N + 1, F2) If F1 = F2 Then

Text1 = Text1 & \"(\" & CStr(N) & \

Text1 = Text1 & Str(F1) & Chr(13) & Chr(10) End If Next N End Sub

Private Sub Euler(N As Integer, P As Integer) Dim I As Integer, J As Integer I = 2

Do Until I <= N - 1 P = 1

For J = 2 To I

If I Mod J = 0 And N Mod J = 0 Then Exit For Next J P = P + 1 I = I + 1 Loop End Sub

[要求]

1． 新建工程，输入上述代码，改正程序中的错误；

2． 改错时，不得增加或删减语句，但可以适当调整语句位置；

3． 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。 二、 编程题（23分）

[题目]找出所有三位数的幸运数对。所谓幸运数对是指差为3，且每个数的各位数字之和都能被6整除的一对数。例如，189、192就是一对幸运数。 [编程要求]

1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2．按“查找幸运数”按钮，则运行程序，生成并显示幸运数；按“清除列表框”按钮，则将列表框清空；按“结束”按钮，则结束程序运行。

3．程序中要有一个生成幸运数对的通用过程。 [要求]

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