计算机二级(VB)47_真题-无答案 .pdfVIP

计算机二级(VB)47

(总分100,考试时间120分钟)

选择题(每小题2分，共70分)下列各题四个选项中，有一个是正确的，请选择正确答案。

1.以下程序的输出结果为()。Dimi，c(10)，p(3)k=5Fori=0To10c(i)

=iNextiFori=0To2p(i)=c(i*(i+1))NextiFori=0To2

k=k+p(i)*2NextiPrintk

A.20B.21

C.56D.32

2.有如下事件过程：PrivateSubCommand1_Click()b=10DoUntilb=-1

a=InputBox(请输入a的值)a=Val(a)b=InputBox(请输入b的值)

b=Val(b)a=a*bLoopPrintaEndSub程序运行后，依次输入数值30，

20，10，-1，输出结果为（）。

A.6000B.-10

C.200D.-6000

3.当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽?

A.Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容。

B.当前窗体中用Picture属性装入的图形，不可以用Cls方法清除

C.Move方法用来移动窗体和控件，不能改变大小

D.Cls可以清除由Print方法显示的文本，并把光标移到对象的左上角(0，0)

4.设a=2,b=3,c=4,d=5，下列表达式的值是______。Nota=cOr4*c=b^2Andba+c

A.-1B.1

C.TrueD.False

5.在窗体上从左到右有Text1、Text2两个文本框（见下图）要求程序运行时,在Text1中输

入1个分数后按回车键,则判断分数合法性,若分数为0—100的1个数,则光标移到Text2中,

否则光标不动,并弹出对话框显示分数错。下面程序中正确的是【】

A.PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII

码是13a=Val(Text1)Ifa；0Ora=100ThenText2.SetFocusE1se

Textl.SetFocus：MsgBOX(分数错)EndIfEndIfEndSub

B.PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII

码是13a=val(Textl)Ifa=0Anda=100ThenTextl.SetFocusE1se

Text2.SetFocus：MsgBOX(分数错)EndIfEndIfEndSub

C.PrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的ASCII

码是13a=val(Textl)Ifa0Anda100ThenText2.SetFoeusElse

Textl.SetFocus：MsgBOX(分数错)EndIfEndIfEndSub

D.PrivateSubText1l一KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then回车符的

ASCII码是13a=Val(Text1)Ifa=0Anda=100ThenText2.SetFocusEls