07年秋浙江省高等学校.docx

07年秋浙江省高等学校.docx

《07年秋浙江省高等学校.docx》由会员分享，可在线阅读，更多相关《07年秋浙江省高等学校.docx（28页珍藏版）》请在冰豆网上搜索。

07年秋浙江省高等学校

2007年秋浙江省高等学校

计算机等级考试试卷（二级VisualBasic）

说明：

考生应将所有试题的答案填写在答卷上。

其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；

请将你的准考证号的后五位填写在答卷右下角的指定位置内；

考试时间为90分钟;

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】单击Command1后计算a•x2＋b•x＋c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。

要求在文本框中不可输入英文字母。

【程序】

PrivateSubCommand1_Click（）

DimaAsSingle,bAsSingle,cAsSingle,xAsSingle,yAsSingle

a=Text1（0）.Text:

b=Text1

（1）.Text

c=Text1

（2）.Text:

x=Text1（3）.Text

y=a*x*x+b*x+c

Label3.Caption=y

EndSub

PrivateSubText1_　

（1）（IndexAsInteger,

（2））

SelectCase（3）

Case"A"To"Z"

K=0

Case（4）

K=0

EndSelect

EndSub

【供选择的答案】

（1）A、keyPressB、changeC、keydownD、keyup

（2）A、keyAsciiAsIntegerB、ValueC、Text（）D、kAsInteger

（3）A、Chr（KeyAscii）B、Chr（K）C、Asc（K）D、Asc（KeyAscii）

（4）A、aTozB、'a'To'z'C、"a"To"z"D、'a'...'z'

试题2（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

过程f的功能是：

返回Single类型数组n个元素的平均值，查找数组中最大值、最小值并通过相应的实参返回到调用处。

该过程可以被其他模块中的过程所调用。

（5）f（a（）AsSingle,nAsInteger,（6））AsSingle

DimiAsInteger

max=a

（1）:

min=a

（1）

Fori=2Ton

Ifa（i）>maxThenmax=a（i）

Ifa（i）

（7）

Nexti

（8）

【供选择的答案】

（5）A、FunctionB、SubC、PrivateSubD、PrivateFunction

（6）A、maxAsSingle,minAsSingleB、maxAsInteger,minAsInteger

C、ByvalmaxAsSingleD、ByvalmaxAsSingle,ByvalminAsSingle

（7）A、f=f+a（i）B、f=f+a（i）/nC、f=a（i）D、f=a（i）/n

（8）A、find=maxB、EndSubC、find=minD、EndFunction

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序说明】

单击Command1后读入文件中所有数据（多于10个），将其中较大的5个数、较小的5个数以及其他数分别在列表框控件List1、List3、List2中显示。

【程序】

PrivateSubCommand1_Click（）

DimnAsInteger,xAsSingle,iAsInteger,jAsInteger,kAsInteger

Open"e:

\score.txt"ForInputAs#1

DoWhile（9）'统计文件中的数据个数n

Input#1,x:

n=n+1

Loop

（10）AsSingle

Close#1:

Open"e:

\score.txt"ForInputAs#1'重新打开文件

Fori=1Ton

Input#1,a（i）

Nexti

Close#1

Fori=1Ton-1

k=i

Forj=i+1Ton

If（11）Thenk=j

Nextj

x=a（i）:

a（i）=a（k）:

a（k）=t

Ifi<=5Then

List1.AddItema（i）

ElseIf（12）Then

List3.AddItema（i）

Else

List21.AddItema（i）

EndIf

Nexti

EndSub

【供选择的答案】

（9）A、NotEof

（1）B、Eof

（1）C、Eof

（1）=TrueD、Read

（10）A、Dima（n）B、Redima（n）C、Redima（）D、statica（n）

（11）A、a（i）>a（k）B、a（i）a（k）D、a（j）

（12）A、i>=n-5B、i>n-5C、n>5D、i

试题4（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

DimmAsInteger

PrivateSubCommand1_Click（）

DimaAsInteger,iAsInteger,fAsInteger

a=InputBox（"a="）

f=1:

i=2

Whilei<=a/2

IfaModi=0Thenf=f+i

i=i+1

m=m+1

Wend

Form1.Cls:

Printf

EndSub

【供选择的答案】

（13）运行时第1次单击Command1输入7后，窗体上的显示结果为：

A、1B、3C、5D、7

（14）运行时第2次单击Command1输入8后，窗体上的显示结果为：

A、2B、7C、8D、6

（15）运行时第3次单击Command1输入9后，窗体上的显示结果为：

A、3B、5C、7D、4

（16）运行时3次单击Command1、并依次输入7、8、9后，变量m的当前值为：

A、6B、7C、8D、3

试题5（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

【程序】

PrivateFunctionf（aAsInteger,bAsInteger）AsInteger

DimrAsInteger,tAsInteger

f=a

DoWhilefModb<>0

f=f+a

Loop

EndFunction

PrivateSubCommand1_Click（）

StatickAsInteger

DimmAsInteger,nAsInteger

m=InputBox（"m="）

n=InputBox（"n="）

k=k+1

Form1.Cls

Printf（m,n）

EndSub

【供选择的答案】

（17）运行时第1次单击Command1输入4、6后，窗体上的显示结果为：

A、4B、24C、8D、12

（18）运行时第2次单击Command1输入15、10后，窗体上的显示结果为：

A、150B、20C、30D、2

（19）运行时第3次单击Command1输入4、10后，窗体上的显示结果为：

A、10B、20C、40D、80

（20）第4次单击Command1后，该事件过程中变量k的当前值为：

A、4B、3C、0D、2

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

界面设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。

【程序】

PrivateSubForm_Load（）

Picture1.Width=Picture1.Height

Picture1.Scale（-10,10）-（10,-10）

Picture1.BorderStyle=0

HScroll1.SmallChange=2:

HScroll1.LargeChange=10

EndSub

PrivateSubHScroll1_Change（）

DimtAsSingle

Picture1.Cls

t=HScroll1.Value*3.14159/180

Label1.Caption=HScroll1.Value

Picture1.Circle（0,0）,10,vbRed

Picture1.Line（0,0）-（9*Cos（t）,9*Sin（t））

EndSub

（21）决定运行时图片框控件边框不显示的相关属性为：

A、BackColorB、ForeColorC、FillStyleD、BorderStyle

（22）滚动条Value属性值为180时，以原点为起点的直线指向：

A、12点方向B、9点方向C、6点方向D、3点方向

（23）滚动条Value属性值为270时，以原点为起点的直线指向：

A、12点方向B、9点方向C、6点方向D、3点方向

（24）下列说法中正确的是：

A、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件

B、拖动滚动条滑块的过程结束后立即触发HScroll1_Change事件

C、单击滚动条两端箭头时Value的增量为10或-10。

D、单击滚动条上空白区域时Value的增量为2或-2。

试题7（28分）

编程，计算多项式

的值。

在文本框控件Text1、Text2中分别输入n、x后，按Command1可输入

，按Command2可计算该多项式的值并以标签控件Label3显示。

程序设计时的界面设计如下图左所示。

运行时输入n为3、x为1.5，输入

分别为1、2、3后的输出结果如下图右所示。

请将答卷上各事件过程补充完整。

2007年秋参考答案

试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）

A

B

C

D

A

B

C

D

（1）

√

（13）

√

（2）

√

（14）

√

（3）

√

（15）

√

（4）

√

（16）

√

（5）

√

（17）

√

（6）

√

（18）

√