|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省二級(jí)VB語(yǔ)言上機(jī)1 |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試上機(jī)試卷（2005春） 二級(jí)Visual Basic語(yǔ)言 （試卷代號(hào) VB01） （本試卷完成時(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)滿足N+1個(gè)連續(xù)自然數(shù)之和等于其后N個(gè)連續(xù)自然數(shù)之和的序列（例如：4+5+6=7+8就是滿足 要求的序列）。 Option Explicit Private Sub Command1_Click() Dim I As Integer,S As String,Flg As Boolean For I=2 To 10 Call Sub1(I,S,Flg) Flg=False If Flg Then Text1=Text1&S&vbCrLf End If Next I End Sub
Private Sub Sub1(K As Integer,S As String,F As Boolean) Dim I As Integer,Sum1 As Integer,Sum2 As Integer Dim N As Integer, Start As Integer Do While Sum1<>Sum2 And N<100 Start=Start+1 N=Start S=N:Sum1=N For I=1 To K-1 N=N+1 Sum1=Sum1+N S=S&"+"&N Next I S=S&"="&N N=N+1 Sum2=N For I=1 To K-2 N=N+1 Sum2=Sum2+N S=S&"+"&N Next I N=N+1 If Sum1=Sum2 Then F=True End If Loop End Sub 【要求】 1. 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2. 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句，但可適當(dāng)調(diào)整語(yǔ)句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤(pán)A的根目錄下。 二、編程題（26分） 【題目】本程序的功能是：按設(shè)定的數(shù)據(jù)位數(shù)N（N=2、3、3、4、5、6），隨機(jī)生成20個(gè)互不相等正整數(shù)，按5個(gè)一行的形式輸出到 文本框中，并從中找出所有降序數(shù)輸出到列表框。所謂降序數(shù)是指所有高位數(shù)字都大于其低位數(shù)字的數(shù)。例如973就是一個(gè)降序數(shù)。 【編程要求】 1. 程序參考界面如圖所示，編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類，窗體及界面元素大小適中，且均可見(jiàn)； 2. 在文本框1中輸入N值，按“執(zhí)行”按鈕，則開(kāi)始計(jì)算并在文本框2中顯示生成的隨機(jī)數(shù)，在列表框中輸出其中的降序數(shù)；按“清 除”按鈕，則將2個(gè)文本框及列表框清空，焦點(diǎn)置于文本框1上；按“退出”按鈕，結(jié)束程序運(yùn)行； 3. 程序中應(yīng)定義一個(gè)用于判斷一個(gè)N位數(shù)是否是降數(shù)的通用過(guò)程。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤(pán)A的目錄下。 |
