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

    计算机基础知识和应用能力等级考试上机试卷(2009春)

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

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

【考试须知】

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

2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

  予评分；

3．程序代码书写应呈锯齿形。

一、改错题(14分)

【题目】下面程序的功能是：找出100以内的所有因子(包括1和本身)之和为一个完全平

方数的正整数，并按图中所示格式将结果显示在列表框中。

Option Explicit

Oution Base 1

Private Sub Commandl_Click()

  Dim i As Integer,J As Integer,

  Dim F() As Integer,sum As Integer

  Dim S As String

  For i=3 To 100

    If Fac(i,F,sum) Then

      sum=0

      S=i & ":"

      For J=1 To  UBound(F)

        S=S & F(J) & "+"   

      Next J 

      List1.AddItem S & F(J) & "=" & sum & "=" & Sqr(sum) & "^2"

    EndIf

    Next i

End Sub

Private Function Fac(K As Integer,A()As Integer,sum As Integer) As Boolean

    Dim N As Integer,J As Integer

    For N=1 To K

      If K Mod N=0 Then

        J=J+1

        ReDim A(J)

        A(J)=N

        sum=sum+N

      End If

    Next N

    If sum=Int(Sqr(sum))^2 Then Fac=True

End Function

【要求】

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

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

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

二、编程题(26分)

【题目】编写程序，随机生成15个10-100之间的整数，找出其中所有的素数，以及最大的

素数。

【编程要求】

1•程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界

  面兀素大小适中，且均可见：

2•运行程序，按“执行"按钮，生成15个随机数存放到数组中，并显示在文本框1中：

  找出其中的素数输出到列表框；再找出最大的素数在文本框2中显示：按"清除"按钮，

  将文本框和列表框清空；按“退出"按钮，结束程序运行；

3•程序中应定义一个名为prime的通用过程，用于验证一个数是否为素数；

【要求】

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