江苏省高等学校非计算机专业学生

计算机基础知识应用能力等级考试上机试卷(2005秋)

二级Visual Basic语言(试卷代号VB05)

(本试卷完成时间  70分钟)

[考试须知]

1.     改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;

2.     考试结束后,文件须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;

3.      程序代码书写应成锯齿形。

一、改错题（14分）

[题目]下面程序的功能是:找出所有各位数字互不相同的四位数,该数本身为素数,且各位数字均为素数.本题界面见图1.

Dim a(4)As Integer

Private Sub Command1-Click()

   Dim n As Integer

   For n = 1000 To 9999

If pirme(n) And pf (n) And np (a) Then

  List1.AddTtem n

End If

Next n

End Sub

Private Function prime(n As Integer) As Boolean

   Dim I As Integer

   For I = 2 To Sqr(n)

       If n Mod I = 0 Then Exit For

   Next I

   Prime = True

End Function

Private Function pf(n As Integer) As Boolean

    Dim I As Integer

    Pf = True

    Do

      I = I +1

      a(i)  =n Mod 10

      If a(i) < 2or Not prime(a(i)) Then pf = False

       n = n\10

   Loop Until n < 0

 End Function

 Private Function np(a() As Integer) As Boolean

    Dim I As Integer, j As Integer

      np = True

    For I = 1 To Ubound(a)-1

        For j = I+1 To Ubound(a)

           If a(i) = a(j) Then np = False

        Next j

    Next I

End Function

[要求]

1.       新建工程,输入上述代码,改正程序中的错误;

2.       改错时,不得增加或删除语句,但可适当调整语句位置;

3.       将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下.

二、编程题(26)

[题目]编写程序找出最小公倍数是9828的3个连续的自然数.

[编程要求]

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

2.       单击”运行”按钮,找出符合条件的3个连续的自然数,按图示格式输出到文本框中;

3.       单击”清楚”按钮,则将文本框清空,焦点置于”运行”按钮;单击”推出”按钮,结束程序运行;

4.       程序中必须包含一个求最小公倍数的通用过程.

[要求]

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

图1                          图2