江苏省上机考试题目汇编

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(1999年秋)

二级VisualBasic语言(试卷代号VB01)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】本程序用于求1~10中相邻两数之和是素数的所有自然数对。

(1,2)、(2,3)、(3,4)、(5、6)、(8,9)、(9、10)为符合要求的数对。

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、改错时,不得增加或删除语句，但可适当调整语句位置；

3、以Myfrml的名字和Mypijl的名字分别将窗体和工程保存到软盘A的根目录

下。

二、编程题(23分)

【题目】编写程序，验证输入的三位正整数是否为同构数。x若出现在自己平方数的末

三位，则x是同构数。如625的平方是390625,则625是同构数。

【编程要求】

1、程序参考界面如图1所示。编程时不得增加或减少界面对象或改变对象的种类，但

界面元素大小、位置可随意设置；界面中的中文说明可用表1中对应的英文代替。

2、单击“验证”按钮，验证输入数是否是同构数，根据验证结果给出如图2所示的信

息提示。

3、单击“结束”按钮，结束程序运行。

图1图2

【要求】以Myfrm2的名字和Mypij2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

输入1x=

验证Verify

结束Finish

是同构数Yes

不是同构数No

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(1999年秋)

二级VisualBasic语言(试卷代号VB02)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】本程序用于生成二维数组a(4,4),数组元素为三位随机正整数，并对每一列

数组元素求和。

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、改错时,不得增加或删除语句，但可适当调整语句位置；

3、以Myfrml的名字和Mypijl的名字分别将窗体和工程保存到软盘A的根目录

下。

二、编程题(23分)

【题目】编写程序，计算数列第n项的值(lWnW16)。

1H=1

an=s1n=2

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

【编程要求】

1、程序参考界面如图1所示。若输入数据不在指定范围中，显示如图2所示的提示信

息。编程时不得增加或减少界面对象或改变对象的种类，但界面元素大小、位置可随意

设置；界面中的中文说明可用表1中对应的英文代替。

2、单击“计算”按钮，计算数列第n项的值并在文本框显示。

3、单击“结束”按钮，结束程序运行。

图I图2

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

输入nx=

第n项An

计算Calculate

结束Finish

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（1999年秋）

二级VisualBasic语言（试卷代号VB03）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分；

3.程序代码书写应呈锯齿形。

一、编程题（40分）

【题目】编写程序求数组a（4,4）副对角线元素的和。所谓副对角线，是指方阵右上

角元素到左下角的连线。

【编程要求】

1、在A盘根目录下建立test.txt文本文件（使用记事本或写字板建文件），其内容如下:

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

2、程序参考界面如图1所示。初始状态“求和”按钮无效。编程时不得增加或减少界

面对象或改变对象的种类，但界面元素大小、位置可随意设置；界面中的中文说明可用

表1中对应的英文代替。

3、单击“读取”按钮，从A盘根目录的test.Txt文件中读取数组，将数组元素按图2

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

4、单击“求和”按钮，求数组副对角线元素的和，显示在文本框中。求和必须用循环

结构实现，否则扣分。

5、单击“结束”按钮，结束程序运行。

Forml-IDIx|

数组

副对角线元素之和|28

读取

【要求】以Myfrml的名字和Mypijl的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

数组Array

副对角线之和Sum=

读取Read

求和Sum

结束Finish

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（1999年秋）

二级VisualBasic语言（试卷代号VB04）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

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、改错时，不得增加或删除语句，但可适当调整语句位置；

3、以Myfnnl的名字和Mypijl的名字分别将窗体和工程保存到软盘A的根目录

下。

二、编程题（23分）

【题目】编写程序，求输入数据的指定函数值。

【编程要求】

1、程序的起始参考界面如图1所示，单选按钮“平方根”的Value属性初始值为True；

Label2的Caption属性初始值为“运算结果”。编程时不得增加或减少界面对象或改变对

象的种类，但界面元素大小、位置可随意设置；界面中的中文说明可用表1中对应的英

文代替。

2、单击“计算”按钮，按选定的运算类型计算函数值并显示在文本框2中，文本框2

前的Label2控件的Caption属性也作相应的改变（如图2所示）。此外计算平方根时若

输入的x值小于0,则在文本框2中显示“DataError”。

3、单击“结束”按钮，结束程序运行。

餐Forml

谙输入X而

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

请输入Xx=

平方根Sqr

绝对值Abs

运算类型Operation

计算Calculate

清除Clear

结束Finish

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2000年春)

二级VisualBasic语言(试卷代号VB01)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】本程序用于判断输入的正整数是否为降序数。设正整数n=d,d2d3...dk,如果满

足dig(i=l,2,...,k-l),则n就是一个降序数。如4321,10433都是降序数。程序中

的中文可以用英文或汉语拼音替代。

OptionExplicit

PrivateSubForm_Click()

DimnAsInteger

n=InputBox(MInputn:")

CallConver(n,fig)

Iffig=TrueThen

Printn;”是降序数"

Else

Printn;“不是降序数”

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分)

【题目】编写程序，根据身高计算标准体重。计算公式如下：

男标准体重(kg)=身高(cm)-100

女标准体重(kg)=身高(cm)-105

【编程要求】

1、程序的起始参考界面如图1所示，单选按钮“男”的Value属性初始值为True；编

程时不得增加或减少界面对象或改变对象的种类，但界面元素大小、位置可随意设置；

界面中的中文说明可用表1中对应的英文代替。

2、单击“计算”按钮，根据输入的身高和计算公式计算相应性别的标准体重，并显示

在文本框中。

3、单击“结束”按钮，结束程序运行。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

身高Height

体重Sqr

男Man

女Woman

计算Calculate

结束Finish

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2000年春）

二级VisualBasic语言（试卷代号VB02）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、编程题（40分）

【题目】编写程序，计算职工的实发工资。计算工资公式如下：

离、退休人员：实发工资=基本工资+职称补贴

在职人员：实发工资=基本工资+职称补贴-税收

税收标准：（收入-1000）*税率

收入S（基本工资+职称补贴）税率

0<sWl0000

1000WsW20000.1

2000<s^30000.2

3000以上0.3

【编程要求】

1、程序参考界面如图1所示，单选按钮“在职人员”的Value属性初始值为True。编程时

不得增加或减少界面对象或改变对象的种类，但界面元素大小、位置可随意设置；截面2

中的中文说明可用表1中对应的英文代替。

2、单击“计算”按钮，计算税收、实发工资并显示在相应的文本框中。

3、单击“清除”按钮，清除所有文本框的内容。

4、单击“结束”按钮，结束程序运行。

图1

【要求】以Myfrml的名字和Mypijl的名字分别将窗体和工程保存到软盘A的根目录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

表1

中文英文

基本工资Base

职称补贴Technical

税收Tax

实发工资Total

人员分类Class

在职人员Incumbent

离、退休Retire

计算Calculate

清除Clear

结束Finish

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2000年春)

二级VisualBasic语言(试卷代号VB03)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】数组a有9个元素，本程序按序号依次将(药再2声3),«2再3也)，…，(肉面声2)，

九组元素分别相加(每组3个元素)，生成新数组b,然后找出b数组中的最大元素。

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

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2000年秋)

二级VisualBasic语言(试卷代号VB01)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】本程序的功能是用来统计二维数组A(1TO4,1TO4)中所有元素中0~9十个

数字出现的次数，存入数组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分）

【题目】编写一个收购小麦与代扣农业税的程序。

【编程要求】

1、程序参考界面如图1所示，其中Labell对象用于显示“小麦的收购价是：1.10元/

公斤”、“农业税额：55元/亩”等提示信息；编程时不得增加或减少界面对象或改变对

象的种类，但界面元素大小、位置可随意设置。

2、实现功能：

（1）单击“计算”按钮，则根据输入的小麦数量以及所拥有的土地亩数，求出应缴税

款和应得粮款（应得粮款=小麦总金额-应缴税款），并显示在相应的文本框中；

（2）单击“清除”按钮，清除4个文本框中的内容；

（3）单击“结束”按钮，结束程序运行。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2000年秋)

二级VisualBasic语言(试卷代号VB02)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】本程序的功能是将一个正整数序列重新排列为一个新的序列。新序列排列规则

是：序列左边是奇数，序列右边是偶数，奇、偶数分别从序列的两端开始依次向序列中

间排放。

例如：若原序列是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分）

【题目】编写一个辅助业务处理（收购小麦）的程序。

【编程要求】

1、程序参考界面如图1所示，其中Labell对象用于显示不同级别小麦的收购价（如图

中“一级小麦的收购价是：1.3元/公斤”）。编程时不得增加或减少界面对象或改变对象

的种类，但界面元素大小、位置可随意设置。

2、实现功能:

（1）在“小麦级别”中选择小麦级别，界面上Labell对象的说明文字将随之改变（设

一级小麦的收购价是1.3元/公斤；二级小麦的收购价是1.1元/公斤；三级小麦的收购价

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

（2）单击“计算”按钮，则根据输入的小麦数量，以及所选小麦级别的单价，求出总

粮款，并显示在相应的文本框中；

（3）单击“清除”按钮，清除2个文本框中的内容；单击“退出”按钮，结束程序运

行。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2000年秋）

二级VisualBasic语言（试卷代号VB03）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题（17分）

【题目】求下面数列的和，计算到第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、在存放方程系数的文本框中分别输入系数a、b、c的值，单击“计算”按钮，若根

判别式小于0,则用信息框显示方程无实数根的提示信息，并清除已输入的方程系数；

否则，将计算得到的方程根分别输出到两个根的文本框内。

3、单击“消除”按钮，清除所有文本框中的内容；单击“退出”按钮，结束程序运行。

图1

【要求】以Myfrm2的名字和Mypq2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2000年秋）

二级VisualBasic语言（试卷代号VB04）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题（17分）

【题目】本程序的功能是求出以下数列的和，计算精确到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号汽油的单价如图所示），并将数量文本

框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在总价文本

框中显示所购油品种类应付的金额。

3、单击“退出”按钮，结束程序运行。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2000年秋）

二级VisualBasic语言（试卷代号VB05）

（本试卷完成时间70分钟）

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题（17分）

【题目】求下面数列的和，计算到第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的数:")

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分)

【题目】编程实现以下功能。

1、单击“数组生成”按钮，程序可用随机函数生成二维数组a(3,3),数组元素为两

位随机正整数，将a数组里元素按矩阵形式显示在图形框1中.每写完一行后换行。

2、单击“数组处理”按钮，则将上述生成的矩阵中的最小元素与矩阵中心位置的元素

交换，最后将结果矩阵再显示到图形框2中。每写完一行后换行。

【编程要求】

1、程序必须采用循环结构处理

2、程序参考界面如图所示。其中Picture对象用于显示方阵在处理前后的内容。编程时

不得增加或减少界面对象或改变对象的种类，但界面元素大小、位置可随意设置。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2001年春)

二级VisualBasic语言(试卷代号VB01)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】下面程序功能是找出一个正整数的所有质因子。例如，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分）

【题目】编写一个大奖赛统计选手得分的程序。

【编程要求】

1、程序参考界面如图所示。其中列表框Listl用于显示得分情况。编程时不得增加或减

少界面对象或改变对象的种类，但界面元素大小、位置可随意设置。

2、实现功能。

（1）单击“得分显示”按钮，则可利用随机函数生成15个80~99之间的随机整数（可

放入数组）作为某选手的得分，并将其得分作为列表项添加到列表框中。

（2）单击“计算最后得分”按钮，则计算该选手的最后得分，计算方法是：去掉一个

最高分和一个最低分，然后将剩下得分求平均，即为该选手的最后得分，并将最后得分

显示到相应文本框中。

（3）单击“清除”按钮，则清除文本框和列表框中所有内容。

图1

【要求】以Myfrm2的名字和Myprj2的名字分别将窗体和工程保存到软盘A的根目

录下。

【注意】考试结束，考试盘中若无指定文件，则不予评分。

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷(2001年春)

二级VisualBasic语言(试卷代号VB02)

(本试卷完成时间70分钟)

［试卷须知］

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分：

3.程序代码书写应呈锯齿形。

一、改错题(17分)

【题目】下面程序是建立二维M*N的字符数组，并求出将此数组顺时针旋转90°后的

新数组。

abc

例如，原数de

组为gh

jk1

jgda

顺时针旋转90°后

kheb

数组为

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分)

【题目】编写一个辅助业务处理的程序。

【编程要求】