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