江蘇省上機考試題目匯編

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(1999年秋)

二級VisualBasic語言(試卷代號VB01)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】本程序用于求1~10中相鄰兩數(shù)之和是素數(shù)的所有自然數(shù)對。

(1,2)、(2,3)、(3,4)、(5、6)、(8,9)、(9、10)為符合要求的數(shù)對。

OptionExplicit

PrivateSubForm_Click()

Dima(10)AsInteger

Fori=ITo10

a(i)=i

Nexti

Fori=1To10

Ifp(a(i)+a(i+1))=TrueThenPrinta(i),a(i+1)

Nexti

EndSub

PrivateFunctionp(xAsInteger)AsBoolean

DimiAsInteger

p=False

Fori=2ToInt(Sqr(x))

IfxModi=0ThenExitFor

Nexti

p=True

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時,不得增加或刪除語句，但可適當調(diào)整語句位置；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編寫程序，驗證輸入的三位正整數(shù)是否為同構數(shù)。x若出現(xiàn)在自己平方數(shù)的末

三位，則x是同構數(shù)。如625的平方是390625,則625是同構數(shù)。

【編程要求】

1、程序參考界面如圖1所示。編程時不得增加或減少界面對象或改變對象的種類，但

界面元素大小、位置可隨意設置；界面中的中文說明可用表1中對應的英文代替。

2、單擊“驗證”按鈕，驗證輸入數(shù)是否是同構數(shù)，根據(jù)驗證結果給出如圖2所示的信

息提示。

3、單擊“結束”按鈕，結束程序運行。

圖1圖2

【要求】以Myfrm2的名字和Mypij2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

輸入1x=

驗證Verify

結束Finish

是同構數(shù)Yes

不是同構數(shù)No

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(1999年秋)

二級VisualBasic語言(試卷代號VB02)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】本程序用于生成二維數(shù)組a(4,4),數(shù)組元素為三位隨機正整數(shù)，并對每一列

數(shù)組元素求和。

PrivateSubForm_Click()

Randomize

Dima(4,4)AsInteger,sAsInteger

DimiAsInteger,jAsInteger

Fori=1To4

Forj=1To4

a(i,j)=Rnd

Printa(i,j);

Nextj

Print

Nexti

Fori=1To4

s=0

Forj=1To4

s=s+a(i,j)

Nextj

Print"sumof";j;"columnis";s

Nexti

EndSub

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時,不得增加或刪除語句，但可適當調(diào)整語句位置；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編寫程序，計算數(shù)列第n項的值(lWnW16)。

1H=1

an=s1n=2

2?,.-2++1">2

【編程要求】

1、程序參考界面如圖1所示。若輸入數(shù)據(jù)不在指定范圍中，顯示如圖2所示的提示信

息。編程時不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意

設置；界面中的中文說明可用表1中對應的英文代替。

2、單擊“計算”按鈕，計算數(shù)列第n項的值并在文本框顯示。

3、單擊“結束”按鈕，結束程序運行。

圖I圖2

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

輸入nx=

第n項An

計算Calculate

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（1999年秋）

二級VisualBasic語言（試卷代號VB03）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分；

3.程序代碼書寫應呈鋸齒形。

一、編程題（40分）

【題目】編寫程序求數(shù)組a（4,4）副對角線元素的和。所謂副對角線，是指方陣右上

角元素到左下角的連線。

【編程要求】

1、在A盤根目錄下建立test.txt文本文件（使用記事本或寫字板建文件），其內(nèi)容如下:

2,7,4,9,3,8,6,11,5,1,10,14,12,16,13,15

2、程序參考界面如圖1所示。初始狀態(tài)“求和”按鈕無效。編程時不得增加或減少界

面對象或改變對象的種類，但界面元素大小、位置可隨意設置；界面中的中文說明可用

表1中對應的英文代替。

3、單擊“讀取”按鈕，從A盤根目錄的test.Txt文件中讀取數(shù)組，將數(shù)組元素按圖2

的格式顯示在PictureBox控件中，并激活“求和”按鈕。

4、單擊“求和”按鈕，求數(shù)組副對角線元素的和，顯示在文本框中。求和必須用循環(huán)

結構實現(xiàn)，否則扣分。

5、單擊“結束”按鈕，結束程序運行。

Forml-IDIx|

數(shù)組

副對角線元素之和|28

讀取

【要求】以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

數(shù)組Array

副對角線之和Sum=

讀取Read

求和Sum

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（1999年秋）

二級VisualBasic語言（試卷代號VB04）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題（17分）

【題目】下面程序的功能是計算：

若通項分母的值e200,停止計算（正確答案是s=l.409524）。

OptionExplicit

PrivateSubForm_Click（）

DimSAsSingle

S=0

1=1

Do

S=S+1/Fun（I）

1=1+1

IfFun（I）>=200ThenExitDo

Loop

Printns=n;S

Printnn=M;I

EndSub

PrivateFunctionFun（NAsInteger）AsSingle

DimIAsInteger,pAsInteger

P=1

Fori=IToN

p=p*（2*N-l）

NextI

Fun=p

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置；

3、以Myfnnl的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫程序，求輸入數(shù)據(jù)的指定函數(shù)值。

【編程要求】

1、程序的起始參考界面如圖1所示，單選按鈕“平方根”的Value屬性初始值為True；

Label2的Caption屬性初始值為“運算結果”。編程時不得增加或減少界面對象或改變對

象的種類，但界面元素大小、位置可隨意設置；界面中的中文說明可用表1中對應的英

文代替。

2、單擊“計算”按鈕，按選定的運算類型計算函數(shù)值并顯示在文本框2中，文本框2

前的Label2控件的Caption屬性也作相應的改變（如圖2所示）。此外計算平方根時若

輸入的x值小于0,則在文本框2中顯示“DataError”。

3、單擊“結束”按鈕，結束程序運行。

餐Forml

諳輸入X而

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

請輸入Xx=

平方根Sqr

絕對值Abs

運算類型Operation

計算Calculate

清除Clear

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2000年春)

二級VisualBasic語言(試卷代號VB01)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】本程序用于判斷輸入的正整數(shù)是否為降序數(shù)。設正整數(shù)n=d,d2d3...dk,如果滿

足dig(i=l,2,...,k-l),則n就是一個降序數(shù)。如4321,10433都是降序數(shù)。程序中

的中文可以用英文或漢語拼音替代。

OptionExplicit

PrivateSubForm_Click()

DimnAsInteger

n=InputBox(MInputn:")

CallConver(n,fig)

Iffig=TrueThen

Printn;”是降序數(shù)"

Else

Printn;“不是降序數(shù)”

EndIf

EndSub

PrivateSubConver(nAsInteger,figAsBoolean)

DimxAsString,iAsInteger

x=Trim(Str(n))

Fori=1ToLen(x)

IfMid(x,i,1)>Mid(x,i+1,1)ThenExitFor

Nexti

Ifi=Len(x)Thenfig=TrueElsefig=False

EndSub

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編寫程序，根據(jù)身高計算標準體重。計算公式如下：

男標準體重(kg)=身高(cm)-100

女標準體重(kg)=身高(cm)-105

【編程要求】

1、程序的起始參考界面如圖1所示，單選按鈕“男”的Value屬性初始值為True；編

程時不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置；

界面中的中文說明可用表1中對應的英文代替。

2、單擊“計算”按鈕，根據(jù)輸入的身高和計算公式計算相應性別的標準體重，并顯示

在文本框中。

3、單擊“結束”按鈕，結束程序運行。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

身高Height

體重Sqr

男Man

女Woman

計算Calculate

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（2000年春）

二級VisualBasic語言（試卷代號VB02）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、編程題（40分）

【題目】編寫程序，計算職工的實發(fā)工資。計算工資公式如下：

離、退休人員：實發(fā)工資=基本工資+職稱補貼

在職人員：實發(fā)工資=基本工資+職稱補貼-稅收

稅收標準：（收入-1000）*稅率

收入S（基本工資+職稱補貼）稅率

0<sWl0000

1000WsW20000.1

2000<s^30000.2

3000以上0.3

【編程要求】

1、程序參考界面如圖1所示，單選按鈕“在職人員”的Value屬性初始值為True。編程時

不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置；截面2

中的中文說明可用表1中對應的英文代替。

2、單擊“計算”按鈕，計算稅收、實發(fā)工資并顯示在相應的文本框中。

3、單擊“清除”按鈕，清除所有文本框的內(nèi)容。

4、單擊“結束”按鈕，結束程序運行。

圖1

【要求】以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

基本工資Base

職稱補貼Technical

稅收Tax

實發(fā)工資Total

人員分類Class

在職人員Incumbent

離、退休Retire

計算Calculate

清除Clear

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2000年春)

二級VisualBasic語言(試卷代號VB03)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】數(shù)組a有9個元素，本程序按序號依次將(藥再2聲3),?2再3也)，…，(肉面聲2)，

九組元素分別相加(每組3個元素)，生成新數(shù)組b,然后找出b數(shù)組中的最大元素。

OptionExplicit

OptionBase1

PrivateSubForm_Click()

DimIAsInteger,A(9)AsInteger,B(9)AsInteger

DimKAsInteger,MAsInteger

ForI=1To9

A(I)=I

PrintA(I);

NextI

Print

ForK=3To11

S=0

Fori=0To-2Step-1

M=K+I

IfM>=9ThenM=MMod9

S=S+A(M)

NextI

B(K-2)=S

PrintB(K-2);

NextK

Print

PrintnMatrixB'sMax.Elementis:“；Maxv(B)

EndSub

PrivateFunctionMaxv(B()AsInteger)AsInteger

DimIAsInteger

Maxv=B(l)

ForI=2ToLBound(B)

IfMaxv<B(I)ThenMaxv=B(I)

NextI

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤;

2、改錯時，不得增加或刪除語句：

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫程序，按指定要求計算圓周長或圓面積。

【編程要求】

1、程序參考界面如圖1所示，單選按鈕“圓周長”的Value屬性初始值為True；編程

時不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置；界

面中的中文說明可用表1中對應的英文代替。

2、單擊“計算”按鈕，若選中“圓周長”單選按鈕，則計算圓周長；若選中“圓面積”

單選按鈕，則計算圓面積，并將計算結果顯示在文本框中，文本框前的Label控件也作

相應的改變（如圖2所示）。

3、單擊“結束”按鈕，結束程序運行。

?Form1

半徑|5

圓面積178.53975

【要求】以Myfrm2的名字和Mypij2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

表1

中文英文

半徑Radius

圓周長Girth

圓面積Area

操作Operation

計算Calculate

結束Finish

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2000年秋)

二級VisualBasic語言(試卷代號VB01)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】本程序的功能是用來統(tǒng)計二維數(shù)組A(1TO4,1TO4)中所有元素中0~9十個

數(shù)字出現(xiàn)的次數(shù)，存入數(shù)組Timers中并顯示在窗體上。

OptionExplicit

PrivateSubForm_Click()

DimA(1To4,1To4)AsInteger,IAsInteger,JAsInteger

DimTimes(9)AsInteger

Randomize

ForI=1To4

ForJ=1To4

A(I,J)=Int(Rnd(l)*100)+1

PrintFormat(A(I,J),"###")，

NextJ

Print

NextI

CallStat(A,Times)

Fori=1To10

PrintI;;Times⑴

NextI

EndSub

PrivateSubStat(A()AsInteger,T()AsInteger)

DimIAsInteger,JAsInteger,CubAsInteger,KAsInteger

DimRubAsInteger,CharAsString

Cub=UBound(A,1):Rub=UBound(A,2)

ForI=1ToCub

ForJ=1ToRub

Char=LTrim(Str(A(I,J)))

ForK=1To10

T(Mid(Char,K,1))=T(Mid(Char,K,1))+1

NextK

NextJ

NextI

EndSub

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫一個收購小麥與代扣農(nóng)業(yè)稅的程序。

【編程要求】

1、程序參考界面如圖1所示，其中Labell對象用于顯示“小麥的收購價是：1.10元/

公斤”、“農(nóng)業(yè)稅額：55元/畝”等提示信息；編程時不得增加或減少界面對象或改變對

象的種類，但界面元素大小、位置可隨意設置。

2、實現(xiàn)功能：

（1）單擊“計算”按鈕，則根據(jù)輸入的小麥數(shù)量以及所擁有的土地畝數(shù)，求出應繳稅

款和應得糧款（應得糧款=小麥總金額-應繳稅款），并顯示在相應的文本框中；

（2）單擊“清除”按鈕，清除4個文本框中的內(nèi)容；

（3）單擊“結束”按鈕，結束程序運行。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2000年秋)

二級VisualBasic語言(試卷代號VB02)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】本程序的功能是將一個正整數(shù)序列重新排列為一個新的序列。新序列排列規(guī)則

是：序列左邊是奇數(shù)，序列右邊是偶數(shù)，奇、偶數(shù)分別從序列的兩端開始依次向序列中

間排放。

例如：若原序列是31,58,71,5,82,45,54,41,2,

則新序列是31,71,5,45,41,2,54,82,58。

OptionExplicit

OptionBase1

PrivateSubForm_Click()

Dima(10)AsInteger,IAsInteger,JAsInteger

Dimb(10)AsInteger,KAsInteger

Randomize

Fori=1To10

a(I)=Int(Rnd*100)+1

Printa(I);

NextI

Print

J=1:K=5

Fori=1To10

Ifa(I)Mod2=0Then

b(J)=a(I)

J=J+1

Else

b(K)=a(I)

K=K+1

EndIf

NextI

ForI=1To10

Printb(I);

NextI

Print

EndSub

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫一個輔助業(yè)務處理（收購小麥）的程序。

【編程要求】

1、程序參考界面如圖1所示，其中Labell對象用于顯示不同級別小麥的收購價（如圖

中“一級小麥的收購價是：1.3元/公斤”）。編程時不得增加或減少界面對象或改變對象

的種類，但界面元素大小、位置可隨意設置。

2、實現(xiàn)功能:

（1）在“小麥級別”中選擇小麥級別，界面上Labell對象的說明文字將隨之改變（設

一級小麥的收購價是1.3元/公斤；二級小麥的收購價是1.1元/公斤；三級小麥的收購價

是0.9元/公斤，如圖所示）。

（2）單擊“計算”按鈕，則根據(jù)輸入的小麥數(shù)量，以及所選小麥級別的單價，求出總

糧款，并顯示在相應的文本框中；

（3）單擊“清除”按鈕，清除2個文本框中的內(nèi)容；單擊“退出”按鈕，結束程序運

行。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（2000年秋）

二級VisualBasic語言（試卷代號VB03）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題（17分）

【題目】求下面數(shù)列的和，計算到第n項的值小于等于10"為止。

式中：fi=Lfz=2,fn=(fn.|+fn.2)>n23。

(本程序運行結果是：Y=2.359646)

OptionExplicit

PrivateSubForm_Click()

DimA()AsSingle,IAsInteger

DimYAsSingle

1=1

Do

ReDimA(I)

A(I)=1/Fib(I)

IfA(I)<=e-4ThenExitDo

Y=Y+A(I)

1=1+1

Loop

PrintnY=n;Y

ForI=1ToUBound(A)

PrintA(I)

NextI

EndSub

PrivateFunctionFib(IAsInteger)AsInteger

Ifl=IThen

Fib=1

ElseIfI=2Then

Fib=2

Else

Fib(I)=Fib(I-l)+Fib(I-2)

EndIf

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤;

2、改錯時?，不得增加或刪除語句；

3、以Myfrml的名字和Myprjl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫程序，求一元二次方程的根。

【編程要求】

1、程序參考界面如圖1所示。編程時不得增加或減少界面對象或改變對象的種類，但

界面元素大小、位置可隨意設置；界面必須顯示在一屏之中。

2、在存放方程系數(shù)的文本框中分別輸入系數(shù)a、b、c的值，單擊“計算”按鈕，若根

判別式小于0,則用信息框顯示方程無實數(shù)根的提示信息，并清除已輸入的方程系數(shù)；

否則，將計算得到的方程根分別輸出到兩個根的文本框內(nèi)。

3、單擊“消除”按鈕，清除所有文本框中的內(nèi)容；單擊“退出”按鈕，結束程序運行。

圖1

【要求】以Myfrm2的名字和Mypq2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（2000年秋）

二級VisualBasic語言（試卷代號VB04）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題（17分）

【題目】本程序的功能是求出以下數(shù)列的和，計算精確到anWiot

22x42x4x62x4x6x...x2n

式中：n=l,2,3...(本程序運行的正確結果為：1=6,Y=0.6486979)o

OptionExplicit

PrivateSubForm_Click()

DimYAsSingle,IAsInteger,TempAsSingle

1=1

Do

Temp=1/Pds(I)

PrintPds(I)

IfTemp<=e-4ThenExitDo

Y=Y+Temp

1=1+1

Loop

PrintHI=n;I,nY=n;Y

EndSub

PrivateFunctionPds(NAsInteger)AsLong

DimIAsInteger,PdAsLong,KAsInteger

Pd=1

K=1

Fori=NTo1Step-1

Pd=Pd*I

K=K+2

NextI

Pds=Pd

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤：

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編寫一個加油站計費程序。

【編程要求】

1、程序參考界面如圖所示。單選按鈕“90號汽油”的Value屬性初始值為True。編程

時不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置。

2、在“種類”總選擇油品種類，界面上的說明文字將隨之改變（設95號汽油的單價為

2.45元/升，100號汽油的單價為2.60元/升，90號汽油的單價如圖所示），并將數(shù)量文本

框設為焦點；在數(shù)量文本框中輸入需購的油品數(shù)量后，單擊“計算”按鈕，在總價文本

框中顯示所購油品種類應付的金額。

3、單擊“退出”按鈕，結束程序運行。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷（2000年秋）

二級VisualBasic語言（試卷代號VB05）

（本試卷完成時間70分鐘）

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題（17分）

【題目】求下面數(shù)列的和，計算到第n項的值小于等于10工

其中：

1/?=1

/?=,1"=2

2

./?-1+f,.-2?>

本程序可用x=0.5來測試，此時程序運行的正確結果為：0.6480143)。

OptionExplicit

PrivateSubForm_Click()

DimNAsInteger,SAsSingle,XAsSingle,AAsString

Do

X=InputBox("請輸入一個絕對值小于1的數(shù):")

IfAbs(X)>=1ThenExitDo

Loop

S=X

N=1

Do

A=XAFib(N)/(Fib(N-1)*Fib(N))

IfAbs(A)<=e-5ThenExitDo

S=S+A

N=N+1

Loop

Printns=n;S

EndSub

PrivateFunctionFib(NAsInteger)AsInteger

IfN=IThen

Fib=1

ElseIfN=2Then

Fib=2

Else

Fib=Fib(N-l)+Fib(N-2)

EndIf

EndFunction

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤：

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編程實現(xiàn)以下功能。

1、單擊“數(shù)組生成”按鈕，程序可用隨機函數(shù)生成二維數(shù)組a(3,3),數(shù)組元素為兩

位隨機正整數(shù)，將a數(shù)組里元素按矩陣形式顯示在圖形框1中.每寫完一行后換行。

2、單擊“數(shù)組處理”按鈕，則將上述生成的矩陣中的最小元素與矩陣中心位置的元素

交換，最后將結果矩陣再顯示到圖形框2中。每寫完一行后換行。

【編程要求】

1、程序必須采用循環(huán)結構處理

2、程序參考界面如圖所示。其中Picture對象用于顯示方陣在處理前后的內(nèi)容。編程時

不得增加或減少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2001年春)

二級VisualBasic語言(試卷代號VB01)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】下面程序功能是找出一個正整數(shù)的所有質因子。例如，48的質因子是2,2,2,

2,3。

OptionExplicit

PrivateSubForm_Click()

DimFac()AsInteger,N(3)AsInteger

DimIAsInteger,JAsInteger

N(l)=48:N(2)=308:N(3)=1155

Fori=1To3

CallFactor(Fac,N(I))

PrintN(I);”的質因子是

ForJ=1ToUBound(Fac)

PrintFac(J);

NextJ

Print

ReDimFac(1)

NextI

EndSub

PrivateSubFactor(F()AsInteger,ByVaiN()AsInteger)

DimIAsInteger,JAsInteger,IdxAsInteger

DimKAsInteger

K=2

DoUntilN=1

IfNModK=0Then

Idx=Idx+1

ReDimF(Idx)

F(Idx)=K

N=N/K

Else

N=N+1

EndIf

Loop

EndSub

【要求】1、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Myp4l的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題（23分）

【題目】編寫一個大獎賽統(tǒng)計選手得分的程序。

【編程要求】

1、程序參考界面如圖所示。其中列表框Listl用于顯示得分情況。編程時不得增加或減

少界面對象或改變對象的種類，但界面元素大小、位置可隨意設置。

2、實現(xiàn)功能。

（1）單擊“得分顯示”按鈕，則可利用隨機函數(shù)生成15個80~99之間的隨機整數(shù)（可

放入數(shù)組）作為某選手的得分，并將其得分作為列表項添加到列表框中。

（2）單擊“計算最后得分”按鈕，則計算該選手的最后得分，計算方法是：去掉一個

最高分和一個最低分，然后將剩下得分求平均，即為該選手的最后得分，并將最后得分

顯示到相應文本框中。

（3）單擊“清除”按鈕，則清除文本框和列表框中所有內(nèi)容。

圖1

【要求】以Myfrm2的名字和Myprj2的名字分別將窗體和工程保存到軟盤A的根目

錄下。

【注意】考試結束，考試盤中若無指定文件，則不予評分。

江蘇省高等學校非計算機專業(yè)學生

計算機基礎知識和應用能力等級考試上機試卷(2001年春)

二級VisualBasic語言(試卷代號VB02)

(本試卷完成時間70分鐘)

［試卷須知］

1.改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅供參考；

2.考試結束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不

予評分：

3.程序代碼書寫應呈鋸齒形。

一、改錯題(17分)

【題目】下面程序是建立二維M*N的字符數(shù)組，并求出將此數(shù)組順時針旋轉90°后的

新數(shù)組。

abc

例如，原數(shù)de

組為gh

jk1

jgda

順時針旋轉90°后

kheb

數(shù)組為

life

OptionExplicit

PrivateSubForm_Click()

DimChar(4,3)AsString,St(3,4)AsString

DimIAsInteger,JAsInteger,NAsInteger

ForI=1To4

ForJ=1To3

Char(I,J)=Chr(',A',+N)

N=N+1

PrintChar(I,J);”

NextJ

Print

NextI

Print

CallTrans(Char,St)

ForI=1To3

ForJ=1To4

PrintSt(I,J);"”；

NextJ

Print

NextI

EndSub

PrivateSubTrans(A()AsString,BAsString)

DimIAsInteger,JAsInteger

ForI=1ToUBound(A,1)

ForJ=1ToUBound(A,2)

B(J,4-I)=A(I,J)

NextJ

NextI

EndSub

【要求】I、新建工程，輸入上述代碼，改正程序中的錯誤；

2、改錯時，不得增加或刪除語句；

3、以Myfrml的名字和Mypijl的名字分別將窗體和工程保存到軟盤A的根目錄

下。

二、編程題(23分)

【題目】編寫一個輔助業(yè)務處理的程序。

【編程要求】