2023年上海计算机二级VB试卷

2023年上海市高等学校计算机等级考试试卷

二级Visua1Basic程序设计

(考试时间120分钟一一A卷)

一、单选题(共15分，每题1分)

1.是合法的变量名。【A】

A.X_yz"oB.123abc。。

C.Integep®®®D.X-Y

2.Rnd函数不也许的返回值是ao必o[A]

A.1

B.0

C.0.0001o

D.O.9999

3.要将一个值传递给子过程A的1n参数，并通过n参数返回一个结果，子过程定义中对的的

是o00000°【B】

A.SubA(ByVaim!,ByVain!)

B.SubA(ByVa1m!,ByRefn!)

C.SubA(ByVaim!,ByRef(n+1)!)

D.SubA(ByVaim+1,ByVa1n+2)

4.能在窗体Forml的标题栏中显示“Visua1Basic窗体”的语句是

_。[C]

A.Forml.Name="VisualBasic窗体"。B.Form1.Tit1e=,,Vi

sualBasic窗体”

C.Forml.Caption=,,VisuaIBasic窗体""D.Forml.Text="VisualBasic

窗体”

5.在用通用对话框控件建立打开文献对话框时，在文献列表框中只允许显示jPg图像类型的文

献，则Fi1ter属性的对的设立是。M»[D]。

A.Picture(.jpg)|*.jpg

B.Picture(.jpg)(*.jpg)

C.图片文献I(.jpg)

D.图片(.jpg)I*.jpg

6.关于多重窗体程序的叙述中，错误的是。。[C]

A.用Hide方法隐藏窗体，用Show方法显示窗体

B.可以根据需要指定启动窗体

C.若各窗体都建立了一个文本框控件(TextBox),它们的Name不能相同

D.若各窗体都有菜单，则各菜单是彼此独立的

7.按照结构化程序设计的规定,语句是非结构化程序设计语句。【C】

A.If语句B.For语句

C.GoTo语句。。。。D.SelectCase语句

8.同一个窗体中，各个对象的属性值是不同的，它用于唯一辨认对象。

A.Location»»B.Name[B]

C.SizeText«D.SelectCase语句

9.有一个名为Menu1菜单项，为了在运营时使该菜单项失效(变灰)，应使用的语句为

A.Menu1.Enabled=FalseB.Menu1.Enabled=True

C.Menu1.Visib1e=True»D.Menul.Visible=FaIse。

[A]

10.要暂时关闭定期器,应把定期器的属性设立为FaIse。

»A.VisibleB.Timer

C.Enabled»D.Interval[C]

11.在VB中，属于方法的是。»[A]

A.SetFocus

B.LostFocus

C.KeyPress

D.SelectedText

12.使用DimA(100)AsSingle语句声明了数组A,A数组的下标取值范围是。

[B]

A.0〜99sB・0^100

C.「99。D.Pl00

13.列表框List1中已有5个列表项,要删除列表框List1最后一项,语句是

对的的。。“AhA.Listl.RemoveltemList1.L

istCount-1

B.Listl.Removeitem5

C.List1.RemoveListl.ListCount-1

D.List1.Remove5

14.要向D盘根目录下的名为data,txt的顺序文献中添加内容，应先使用语

句打开文献。®®[B]AA.0pen"data.txt"For

AppendAs#1

B.Open〃D：\data.txt"ForAppendAs#1

C.Open〃data.txt〃ForOutputAs#1

D.OpenZ，D:\data.txt〃For0utputAs#1

15.要使文本框输入的字符均显示为*,则设立__________________o

[DJ

A.Visible属性为*

B.Name属性为火

C.Text属性为*

D.PassWordChar属性为*

二、程序调试题(共2()分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)

启动工程文献C:\ks\cxtsl.vbp,程序存在8处错误，请调试改正，并按原文献名和位置保

存。对的结果见样例cxtsl.exe。

改错方法：不能修改或重新定义变量，不允许增长或删除语句，但可以修改语句,所修改

的语句必须在句尾加上注释标记’***********。

调试改错题1.程序中有2个错误。

以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第，

分优秀、合格和不合格，规定：成绩次0为“优秀";60三成绩＜80为"合格";成绩＜60为"不合

格”。

PrivateSubCommandl_Click()

Dimd%,s$

d=Va1(Textl.Text)\10

SelectCased

Cased＞=8

s="优秀”

Case6To7

s="合格"

CaseElse

s="不合格”

EndSe1ect

Labell.Text="成绩等第为:“+s

EndSub

对的答案:CaseIs>=8或8Toi0或8,9,10

Label1.Caption或Label1

调试改错题2,程序中有3个错误。

单击“调试改错题2”按钮，在Picturel显示有规律数字字符和字母字符图，见样例。

PrivateSubCommand2_Click()

Dimch$,i%,j%

Picturel.CIs

Fori=1To5

Ch=Trim(i)

Forj=1TO5'输出数字字符

Picturel.PrintCh；

Nextj

Picturel.PrintSpace(3);

Forj=iTo5oo'输出字母字符

Picturel.PrintChr(65)；

Nextj

Picturel.Print

Nextj

EndSub

对的答案：Forj=1Toi

Picturel.PrintChr(i+64);

Nexti

调试改错题3,程序中有3个错误。

单击“调试改错题3”按钮，自动产生两个5~999之间的随机正整数a,b,在Text2显

示较小的数a,Text3显示较大的数b。计算a到b之间的偶数和，结果显示在Labe13。

PrivateSubCommand2_C1ick()

Dima%,b%,c%,i%

a=Int(Rnd*995+5)

b=Int(Rnd*995+5)

Ifa>bThen

t=b:a=b:b=t

EndIf

Text1=a

Text2=b

s=1

Fori=aTob

。IfMod(i,2)=0Thens=s+i

Nexti

Labe13="Sum=n&s

EndSub

对的答案:t=a

S=0

imod2=0

三、程序填空题(共30分，每空2.5分)

1.按公式s=r+22+32+…+,求累加和s不超过1000的最大项数n。

规定每行显示每个n的累加和如图所示，并将所有结果保存在c：\data.txt中。

Pr1vateSubForm_Click()程序填空第1题E2叵区I

N

1S

21

35

4M

5

630

7550

8914

14

9205

1285

038

E。

1

Dimn%,s$

n=1

s=(1)

Print”Nn,”S”

DoWhile((2))

s=s+n*n

Printn,s

n=n+l

Loop

Print”累加和不超过1000的最大项数n二”;n-2

Openuc:\jg.txt"For(3)As#l

Print#l,"n=H;n-2

Close#1

EndSub

答案：(1)0。(2)s<1000(3)Output

2.以下程序段的功能是:在一个字符串变量stri中查找子串变量str2中出现的个

数，并显示是否找到及查找到的结果。样例为查找子串“al”出现的个数为2个。

PrivateSubForm_Click()

Dimstr1$,str2$,cd1%,cd2%,n%,i%

strl=Text1.Text

str2=Tex12.Text

cdl=Len(strl)

cd2=Len(str2)

i=1

n=0

DoWhilei<=(1)

IfMid(strl,i,(2))=str2Then

n=n+1

EndIf

______(3)______

Loop

If(4)Then

Labe13=”找到了“&n&”个"

Else

Labe13二”没有找到！”

EndIf

EndSub

答案(1)cdlcdl-cd2+l(2)2(3)i=i+l(4)n>0

3.以下程序段的子过程RightShift的功能是：将一维字符数组s中的元素循环

右移一位并输出变动后的结果。

Commandedick()事件过程通过键盘输入右移位数，调用子过程RightShift完毕

对给定的字符数组元素循环右移，样例为右移3次的结果。

女

领

昉之ABcDEFGH

右

次

1后HABcDEFG

右

次

2后GHABcDEF

次

后

3右FGHABcDE

右移

PrivateSubCommandl_Click()

Dimi%,m%,a()

a=Array。A“，”B”C”，”E"F“，”G”，“H")

Print”原始顺序为:"；

Fori=0ToUBound(a)

Printa(i)&”H;

Nexti

Print

(1)=InputBox(”请输入右移位数：”)

Fori=1Tom

Print"第“&i&”次右移后：”；

Call⑵

Nexti

EndSub

SubRightShift(ByRefs())

DimLast$,i%»n%

n=(3)______________

Last=s(n)

Fori=nTo1Step-1c逐位右移

s(i)=(4)

Nexti

s(0)________(5)___________

Fori=0Ton€显示右移后的结果

Prints(i)&"";

Nexti

Print

EndSub

答案(2)RightShift(a)。(3)UBound(s)»。。

(4)s(i-1)»(5)Last

四、编程题(35分)

1.参见样例，在Forml窗体上放置2个列表框。建立如下菜单:

菜单项菜单名备注

应用Menul一级菜单

…产生Menull二级菜单

…计算Menu12二级菜单

—bar分隔线

…结束Menul3二级菜单

绘图Menu2