VB程序设计试题及答案一.docx
《VB程序设计试题及答案一.docx》由会员分享,可在线阅读,更多相关《VB程序设计试题及答案一.docx(24页珍藏版)》请在冰豆网上搜索。
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