|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省計(jì)算機(jī)等級考試二級VB語言06 |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識和應(yīng)用能力等級考試上機(jī)試卷（2005春） 二級Visual Basic語言 （試卷代號 VB06） （本試卷完成時(shí)間 70分鐘） 【考試須知】 1. 改錯(cuò)題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯(cuò)題（14分） 【題目】下面程序功能是：求出10～99之間所有因子（包括1與該數(shù)本身）個(gè)數(shù)為6的數(shù)。 Option Explicit Private Sub Command1_Click() Dim i As Integer,cn() As Integer,s As String,j As Integer For i=10 To 99 //此處插入圖片。 Call cd(i,cn) If UBound(cn)=6 Then s=CStr(i)&"=>" For j=1 To 6 s=s&Str(cn(i)) Next j s=s&Chr(13)&Chr(10) End If Next i Text1=s End Sub
Private Sub cn(n As Integer,cn() As Integer) Dim i As Integer,k As Integer For i=1 To n k=k+1 If n Mod i=0 Then ReDim Preserve cn(k) cn(k)=i End If Next i End Sub 【要求】 1. 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2. 改錯(cuò)時(shí)，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】找出1～100之間所有連續(xù)4個(gè)或4個(gè)以上整數(shù)組成的序列，要求序列中每個(gè)整數(shù)均必須具有兩個(gè)不同素因子。例如，33（素 因子3，11），34（素因子2，17），35（素因子5，7），36（素因子2，3），故33，34，35，36就符合要求。 【編程要求】 1. 按“開始”按鈕，則開始運(yùn)行程序，將結(jié)果按圖示格式顯示在文本框中；按“清除”按鈕，則將文本框清空；按“結(jié)束”按鈕， 結(jié)束程序運(yùn)行； 2. 程序中至少要有一個(gè)通用過程，判斷一個(gè)數(shù)是否有兩個(gè)不同的素因子。 【要求】 1. 程序參考界面如圖所示，編程時(shí)不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。
|
