浙江省计算机二级VB真题.docx

浙江省计算机二级VB真题.docx

《浙江省计算机二级VB真题.docx》由会员分享，可在线阅读，更多相关《浙江省计算机二级VB真题.docx（68页珍藏版）》请在冰豆网上搜索。

浙江省计算机二级VB真题

2008年春浙江省高等学校

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

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

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

【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。

要求在文本框中不可输入任何字符。

例如：

输入123显示321，输入-567显示-765。

【程序】

（1）

PrivateSubForm_Load（）

（2）

EndSub

PrivateSubCommand1_Click（）

Text1.Text="":

n=InputBox（"n="）

EndSub

PrivateSubCommand2_Click（）

Ifn<0Thenn=-n:

Text1.Text="-"

Whilen<>0

Text1.Text=（3）

（4）

Wend

EndSub

【供选择的答案】

（1）A、DimnAsByteB、DimnAsInteger

C、DimnAsStringD、PublicnAsByte

（2）A、Text1.Locked=TrueB、Text1.Locked=False

C、Text1.Visible=TrueD、Text1.Visible=False

（3）A、n/10&Text1.TextB、nMod10&Text1.Text

C、Text1.Text&n/10D、Text1.Text&nMod10

（4）A、n=n\10B、n=n/10

C、n=nMod10D、n=n-10

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

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

【程序说明】

运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。

PrivateSubForm_Activate（）

P1.Height=P1.Width

P1.FontSize=10

（5）（-10,110）-（110,-10）

（6）

P1.Line（-5,0）-（100,0）

P1.Line（0,-5）-（0,100）

Fori=（7）

P1.Line（i,0）-（i,2）

P1.Line（0,i）-（2,i）

Nexti

Fori=1To9

P1.CurrentX=i*10-2

P1.CurrentY=-2

（8）

Nexti

EndSub

【供选择的答案】

（5）A、P1.DrawB、P1.LineC、P1.PrintD、P1.Scale

（6）A、P1.ForeColor=RGB（255,0,0）B、P1.FillColor=RGB（255,0,0）

C、P1.FillColor=VbRedD、P1.ForeColor=Red

（7）A、1To9Step1B、10To90C、10To90Step10D、2To9

（8）A、PSetiB、P1.PrintiC、P1.PsetiD、Printi

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

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

【程序说明】

单击“读文件”按钮将文本文件读入并逐行在列表框控件List1中显示；然后单击“分解”按钮将List1每行中的英文字母、其他字符分别显示在List2、List3各行中。

运行结果如下图所示。

【程序】

PrivateSubCommand1_Click（）'读文件

DimsAsString

Open"e:

\xxx.txt"For（9）As#1

WhileNotEOF

（1）

LineInput#1,s:

List1.AddItems

Wend

Close#1

EndSub

PrivateSubCommand2_Click（）'分解

DimiAsInteger,nAsInteger,s1AsString,s2AsString

Fori=1To（10）

n=Len（List1.List（i-1））

ReDima（n）AsString*1

Forj=1Ton

a（j）=（11）

Nextj

s1="":

s2=""

Forj=1Ton

If（12）Thens1=s1+a（j）Elses2=s2+a（j）

Nextj

List2.AddItems1

List3.AddItems2

Nexti

EndSub

【供选择的答案】

（9）A、ReadB、AppendC、InputD、Output

（10）A、List1.CountB、ListCountC、ListCount-1D、List1.ListCount

（11）A、Mid（List1.List（i-1）,j,1）B、Middle（List1.List（i-1）,j,1）

C、Mid（List1.List（i-1）,j）D、Middle（List1（i-1）,j,1）

（12）A、a（j）>='a'Anda（j）<='z'Ora（j）>='A'Anda（j）<='Z'

B、a（j）>="a"Anda（j）<="z"Ora（j）>="A"Anda（j）<="Z"

C、"a"<=a（j）<="z"Or"A"<=a（j）<="Z"

D、（a（j）>='a'Anda（j）<='z'）Or（a（j）>='A'Anda（j）<='Z'）

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

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

【程序】

PrivateSubText1_KeyPress（KAsInteger）

IfKAsc（"9"）Then

K=0

Else

Label1.Caption=Chr（K）+Label1.Caption

EndIf

EndSub

【供选择的答案】

（13）Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：

A、135B、531C、9D、5

（14）Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：

A、972B、279C、297D、18

（15）Text1获得输入焦点后，依次按-、2、3、5键，Label1显示：

A、-532B、-235C、532D、235

（16）Text1获得输入焦点后，依次按1、2、a、5键，Label1显示：

A、空白B、12a5C、5a21D、521

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

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

【程序】

PrivateSubForm_Load（）

Timer1.Interval=1000

EndSub

PrivateSubTimer1_Timer（）

StatickAsByte

Form1.CurrentX=0:

Form1.CurrentY=0'窗体的所有其他属性均取缺省值

Form1.Cls

Ifk=0Thenk=1Elsek=0

Ifk=0ThenForm1.ForeColor=RGB（0,255,0）Else_

Form1.ForeColor=RGB（0,0,255）

PrintTime

EndSub

【供选择的答案】

（17）激活Timer1后，每间隔1秒显示一次系统时间，方式是：

A、蓝、绿色交替显示B、蓝色显示C、绿色显示D、红色显示

（18）系统时间的显示位置，是在：

A、窗体右上角B、窗体左上角C、窗体右下角D、窗体左下角

（19）如果将Timer过程中的语句“StatickAsByte”改为“DimkAsByte”，激活Timer1

后，窗体系统时间显示上的颜色为：

A、蓝、绿色交替B、蓝色C、绿色D、红色

（20）如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：

A、Date,TimeB、Date;TimeC、Date-TimeD、Date+Time

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

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

【程序】

PrivateSubf（b（）AsInteger,ByRefmAsInteger）

DimiAsInteger,jAsInteger,kAsInteger

i=1

DoWhilei<=m

Forj=1Tom

Ifb（i）Modb（j）=0Andi<>jThen

Fork=iTom-1:

b（k）=b（k+1）:

Nextk

ExitFor

EndIf

Nextj

Ifj>mTheni=i+1Elsem=m-1

Loop

EndSub

PrivateSubCommand1_Click（）

Dima（6）AsInteger,iAsInteger,nAsInteger

n=6

Fori=1To6:

a（i）=InputBox（"a（"&i&"）="）:

Nexti

Callf（a,n）

Fori=1Ton:

Printa（i）;:

Nexti

EndSub

（21）单击Command1输入7、8、5、4、9、3后，相应的显示结果为：

A、893B、893333C、754333D、7543

（22）如果将过程f首句中的“ByRef”改为“Byval”，输入数据同（21），显示结果为：

A、893B、893333C、754333D、7543

（23）单击Command1输入4、12、27、8、-6、3后，相应的显示结果为：

A、433333B、43C、12278-6D、12278

（24）如果将过程f首句中的“ByRef”改为“Byval”，输入数据同（23），显示结果为：

A、433333B、43C、12278-6D、12278

试题7（28分）

编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。

请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。

PrivateFunctionf（）AsSingle

EndFunction

PrivateSubCommand1_Click（）

Dima（10）AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle

'输入数据

'计算平均值v

'将与v之差的绝对值为最小的那个数组元素赋值给x，输出x。

EndSub

2008年春浙江省高等学校计算机等级考试参考答案（二级VB）

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

A

B

C

D

A

B

C

D

（1）

√

（13）

√

（2）

√

（14）

√

（3）

√

（15）

√

（4）

√

（16）

√

（5）

√

（17）

√

（6）

√

（18）

√

（7）

√

（19）

√

（8）

√

（20）

√

（9）

√

（21）

√

（10）

√

（22）

√

（11）

√

（23）

√

（12）

√

（24）

√

试题7（28分）

编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。

请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。

PrivateFunctionf（b（）AsSingle,nAsInteger）AsSingle'2分

DimiAsInteger'1分

Fori=1Ton'5分

f=f+b（i）

Nexti

f=f/n'2分

EndFunction

PrivateSubCommand1_Click（）

Dima（10）AsSingle,iAsInteger,vAsSingle,xAsSingle,dAsSingle

'输入数据（3分）

Fori=1To10

a（i）=InputBox（"a（"&i&"）="）

Nexti

'计算平均值v（3分）

v=f（a,10）

'将与v之差的绝对值为最小的那个数组元素赋值给x。

x=a

（1）:

d=Abs（a

（1）-v）'2分

Fori=2To10

IfAbs（a（i）-v）

d=Abs（a（i）-v）'绝对值2分，其他6分

x=a（i）

EndIf

Nexti

Printx'2分

EndSub

2007年秋浙江省高等学校

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

试题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时的