江蘇省高等學校非計算機專業學生    ．

    計算機基礎知識和應用能力等級考試上機試卷(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盤的根目錄下。