VB程序设计试题及答案一.docx
《VB程序设计试题及答案一.docx》由会员分享，可在线阅读，更多相关《VB程序设计试题及答案一.docx（27页珍藏版）》请在冰点文库上搜索。
VB程序设计试题及答案一
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）Caption
4.如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change （B）LostFocus
（C）KeyPress （D）GotFocus
5.下面 A 是合法的变量名。
（A）X_yz （B）123ab。
（C）integer （D）X-Y
6.以下关系表达式中，其值为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=1 （D）xyz=1
8.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）Ifsex="男"Andage=4OAndRight（duty，2）="教授"Thenn=n+l
（D）Ifsex="男"Andage=4OAndduty="教授"Andduty="副教授"Thenn=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
（A）DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次
（B）DoWhile…Loop循环和Do…LoopUntil循环可能都不执行
（C）DoWhile…Loop循环至少执行一次和Do…LoopUntil循环可能不执行
（D）DoWhile…Loop循环可能不执行和Do…LoopUntil循环至少执行一次
11.以下 B 是正确的For…Next结构。
（A）Forx=1ToStep10 （B）Forx=3To-3Step-3
… …
Nextx Nextx
（C）Forx=1To10 （D）Forx=3to10step3
re:
… …
Nextx Nexty
Ifi=10ThenGoTOre
12.如下数组声明语句， B 是正确的。
（A）Dima[3,4]AsInteger
（B）Dima（3,4）AsInteger
（C）Dima（n,n）AsInteger
（D）Dima（34）AsInteger
13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A 。
（A）Dima（）AsInteger （B）Dima（）AsInteger
ReDima（n） ReDima（n）AsString
（C）Dima（）AsInteger （D）Dima（10）AsInteger
ReDima（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%）
15.设有如下程序段：
PublicSubF1（n%）
…
n=3*n+4
…
EndSub
PrivateSubCommand1_Click（）
Dimn%,m%
n=3
m=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）FontSize
17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。
DimxAsInteger
SubTimer1_Timer（）
Fori=1to10
x=x+1
Nexti
EndSub
（A）1000 （B）10000 （C）10 （D）以上都不对
18.在下列关于通用对话框的叙述中，错误的是 B 。
（A）CommonDialog1.ShowFont显示“字体”对话框
（B）在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
（C）在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回
（D）
19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C 。
（A）KeyPress、KeyDown、KeyUp
（B）KeyDown、KeyUp、KeyPress
（C）KeyDown、KeyPress、KeyUp
（D）没有规律
20.在下面关于顺序文件的描述中，正确的是 C 。
（A）顺序文件中每行的长度都是相同的。
（B）可以通过编程对文件中的某行方便地进行修改
（C）数据以ASCII码的形式存放在文件中，所以可通过记事本打开
（D）文件的组织结构复杂
21.随机文件是因为 C 。
（A）文件中的内容是通过随机数产生的
（B）文件中的记录号通过随机数产生的
（C）可对文件中的记录根据记录号随机地读/写
（D）文件的每条记录的长度是随机的
22.从磁盘上读入一个文件名为“c:
\t1.txt”顺序文件，如下 A 正确。
（A）F=“c:
\t1.txt”
OpenFForInputAs#1
（B）F=“c:
\t1.txt”
Open“F”ForInputAs#2
（C）Open“c:
\t1.txt”ForInputAs#1
（D）Openc:
\t1.txtForInputAs#2
23.坐标度量单位可由通过来 D 改变。
（A）Drawstyle属性 （B）DrawWidth属性
（C）Scale方法 （D）ScaleMode属性
24.指令“Circle（1000,1000）,500,8,-6,-3”将绘制 A 。
（A）画圆 （B）椭圆 （C）圆弧 （D）扇形
25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。
①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源
（A）①②③④ （B）②③④①
（C）③①②④ （D）①③②④
二、填空题
1．VB是建立在BASIC语言基础上的 可见 化编程语言或编程环境。
2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0 。
3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形 、 长整形 、 单精度 、 双精度 类型。
4．表示x是5的倍数或是9的倍数的逻辑表达式为 xmod5=0orxmod9=0 。
5．数组声明时下标下界默认为0，利用 Opation Base1 语句可以使下标为1。
6．传地址方式是当过程被调用时，形参和实参共享 存储单元 。
7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的 全局范围 。
8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。
9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ -（减号） ”符号，那么显示时形成一个分隔符。
10．使用 Scale 方法可以自定义坐标系。
11．使用Line方法画矩形，不许在指令中使用关键字 B 。
12．使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 1（adCmdText）或者（adCmdUnknown） 。
13．为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为__Hide_____。
14．如果要将某个命令按钮不显示，则可将___Visible________属性设置为False
15．在VB中窗体文件的扩展名为_____.FRM______。
三、编程应用题
1.程序阅读，写出下列程序的运行结果。
（1）
PrivateSubCommand1_Click（）
Dima,i%,min%,imin%,sum%,t%
a=Array（26,43,61,87,33,19,37,59,76,69）
min=a（0）:
imin=0:
sum=a（0）
Fori=1toUBound（a）
sum=sum+a（i）
Ifa（i）imin=i
Nexti
t=a（0）:
a（0）=a（imin）:
a（imin）=t
Printsum;a（0）
EndSub
输出结果：
51019
（2）
PrivateSubCommand1_Click（）
DimchasString*1
ch=＂8＂
IfUCase（ch）>=＂A＂AndUCase<=＂Z＂Then
VB程序设计试题及答案
（二）
一、单选题
1.VB6.0集成开发环境不包括 A 窗口。
（A）DOS界面窗口 （B）窗体窗口
（C）代码窗口 （D）属性窗口
2.有程序代码如下:
C
Tex1.Text="Tex1.Text"
则Tex1、Text、"Tex1.Text"分别代表
（A）对象、值、属性 （B）对象、方法、属性
（C）对象、属性、值 （D）属性、对象、值
3.下面关于对象的描述中， A 是错误的。
（A）对象就是自定义结构变量
（B）对象代表正在创建的系统中的一个实体
（C）对象是一个特征和操作的封装体
（D）对象之间的信息传递是通过消息进行的
4.要使某控件在运行时不可显示，应对 B 属性进行设置。
（A）EnabIed （B）Visible
（C）Backcolor （D）Caption
5.与数学表达式对应，不正确的VB算术表达式是 D 。
（A）a*b/（3*c*d） （B）a/3*b/c/d
（C）a*b/3/c/d （D）a*b/3*c*d
6.InputBox函数返回值的类型是 B 。
（A）整型数值 （B）字符串 （C）变体 （D）数值或字符串
7.下面正确的赋值语句是 C 。
（A）x+y=30 （B）y= *r*r
（C）y=x+30 （D）3y=x
8.下面程序段运行后，显示的结果是 C 。
Dimx
IfxThenPrintxElsePrintx+1
（A）l （B）O （C）-1 （D）显示出错信息
9.下面程序段，运行后显示的结果是 A 。
Dimx
x=Int（Rnd）+5
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"通过"
CaseEElse
Print"不通过"
EndSelect
（A）优秀 （B）良好 （C）通过 （D）不通过
10.下列循环结构能正常结束循环的是 C 。
（A）i=5 （B）i=1
Do Do
i=i+1 i=i+2
LoopUntili<0 LoopUntili=10
（C）i=10 （D）i=6
Do Do
i=i+1 i=i-2
LoopUntili>0 LoopUntili=1
11.下面的程序段的运行结果为多少？
D
PrivateSubCommand1_Click（）
Fori=1to5
n=0
Forj=ito5
n=n+1
Nextj
Nexti
Printn
EndSub
（A）10 （B）5 （C）15 （D）1
12.要分配存放如下矩阵的数据， C 数组声明语句能实现（不浪费空间）。
1.1 2.2 3.3
4.4 5.5 6.6
7.7 8.8 9.9
（A）Dima（9）AsSingle
（B）Dima（3,3）AsSingle
（C）Dima（-1to1,-5to-3）AsSingle
（D）Dima（-3to-1,5to7）AsInteger
13.在窗体的通用声明段自定义了数据类型Students，下列 A 定义方式是正确的。
（A）PrivateTypeStudents （B）TypeStudents
NameAsSting*10 NameAsSting*10
StudnoAsInteger StudnoAsInteger
EndType EndStudents
（C）TypeStudents （D）TypeStudents
NameString*10 NameAsSting*10
StudnoInteger StudnoAsInteger
升级会员 