|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
江蘇計算機2009春上機2 |
||
江蘇省高等學(xué)校非計算機專業(yè)學(xué)生 ． 計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷(2009春) 二級Visual Basic語言(試卷代號VB02) (本試卷完成時間70分鐘) 【考試須知】 1．改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考： 2．考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不 予評分； 3．程序代碼書寫應(yīng)呈鋸齒形。 一、改錯題(14分) 【題目】下面程序的功能是：找出100以內(nèi)的所有因子(包括1和本身)之和為一個完全平 方數(shù)的正整數(shù)，并按圖中所示格式將結(jié)果顯示在列表框中。
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.改錯時,不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置： 3.將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。 二、編程題(26分) 【題目】編寫程序，隨機生成15個10-100之間的整數(shù)，找出其中所有的素數(shù)，以及最大的 素數(shù)。 【編程要求】 1•程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界 面兀素大小適中，且均可見： 2•運行程序，按“執(zhí)行"按鈕，生成15個隨機數(shù)存放到數(shù)組中，并顯示在文本框1中： 找出其中的素數(shù)輸出到列表框；再找出最大的素數(shù)在文本框2中顯示：按"清除"按鈕， 將文本框和列表框清空；按“退出"按鈕，結(jié)束程序運行； 3•程序中應(yīng)定義一個名為prime的通用過程，用于驗證一個數(shù)是否為素數(shù)； 【要求】
將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。 |
||