VB程序设计试题及答案(一)

《VB程序设计试题及答案(一)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计试题及答案（一）一、单选题1.VB6.0是一种面向B的编程环境。(A)机器(B)对象(C)过程(D)应用2.要使FormI窗体的标题栏显示"欢迎使用VB"，以下D语句是正确的。(A)Forml.Caption=“欢迎使用VB”(B)Forml.Caption='欢迎使用VB'(C)Forml.Caption=欢迎使用VB(D)Forml.Caption="欢迎使用VB"3.若要使命令按钮不可操作，要对A属性进行设置。(A)EnabIed(B)Visible(C)Backcolor(D)Caption4.如果在窗体上已经创建了一

2、个文本框对象TextI，可以通过C事件获得输入键值的ASCII码。(A)Change(B)LostFocus(C)KeyPress(D)GotFocus5.下面A是合法的变量名。(A)X_yz(B)123ab。(C)integer(D)X-Y6.以下关系表达式中，其值为False的是A。(A)"ABC">"AbC"(B)"女">"男"(C)"BASIC"=UCase("basic)(D)"123"<"23"7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A。(A)x=1:y=1:z=1(B)x=1,y=1,z=1(C)x=y=z

3、=1(D)xyz=18.VB提供了结构化程序设计的三种基本结构，三种基本结构是D。(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D。(A)Ifsex="男"Andage=4OAndInStr(duty，"教授")>OThenn=n+l(B)Ifsex="男"Andage=4OAnd(duty="教授"Orduty="副教授")Thenn=n+l(C)Ifs

4、ex="男"Andage=4OAndRight(duty，2)="教授"Thenn=n+l(D)Ifsex="男"Andage=4OAndduty="教授"Andduty="副教授"Thenn=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D。(A)DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次(B)DoWhile…Loop循环和Do…LoopUntil循环可能都不执行(C)DoWhile…Loop循环至少执行一次和Do…LoopUntil循环可能不执行(D)DoWhile…Loop循环可能

5、不执行和Do…LoopUntil循环至少执行一次11.以下B是正确的For…Next结构。(A)Forx=1ToStep10(B)Forx=3To-3Step-3……NextxNextx(C)Forx=1To10(D)Forx=3to10step3re:……NextxNextyIfi=10ThenGoTOre12.如下数组声明语句，B是正确的。(A)Dima[3,4]AsInteger(B)Dima(3,4)AsInteger(C)Dima(n,n)AsInteger(D)Dima(34)AsInteger13.下列语句中（假定变量n有值

6、），能正确声明可变长数组的是A。(A)Dima()AsInteger(B)Dima()AsIntegerReDima(n)ReDima(n)AsString(C)Dima()AsInteger(D)Dima(10)AsIntegerReDima(3,4)ReDima(n+10)ReDimPreservea(4,4)14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C。(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(D)Subf1(ByValn%,m%)

7、15.设有如下程序段：PublicSubF1(n%)…n=3*n+4…EndSubPrivateSubCommand1_Click()Dimn%,m%n=3m=4…‘调用F1语句…EndSub则在Command1_Click事件中有效的调用语句是B。(A)CallF1(n+m)(B)CallF1(m)(C)CallF1(5)(D)CallF1(m+5)16.用来设置粗体字的属性是C。(A)FontItalic(B)FontName(C)FontBold(D)FontSize17.假定定时器的Interval属性为1000，Enabled属

8、性为True，调用下面的事件过程，程序运行结束后变量x的值为D。DimxAsIntegerSubTimer1_Timer()Fori=1to10x=x+1NextiEndSub(A)1000(