VB程序设计试题与答案.docx
《VB程序设计试题与答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计试题与答案.docx（14页珍藏版）》请在冰豆网上搜索。
VB程序设计试题与答案
1.要使一个标签能够显示所需要的文本，应设置该标签的（）属性的值（单）
A.Caption B.Name C.Text D.AutoSize
2.为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为（）（单）
A.5 B.300 C.500 D.5000
3.下列的（）对象支持KeyPress事件（单）
A.文本框 B.命令按钮 C.标签框 D.图像框
4.确定一个控件在窗体上的位置的属性是（）（单）
A.Width或Height B.Top和HeightC.Top或Width D.Top和Left
5.确定一个窗体或控件的大小的属性是（）（单）
A.Width或Height B.Top和WidthC.Top或Left D.Top和Left
6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为（）（单）
A.面向对象的程序设计 B.结构化程序设计C.事件驱动的编程机制 D.程序设计
7.在VB中，工程文件的扩展名是（）（单）
A..frm B..vbp C..bas D..frx
8.在VB中，窗体文件的扩展名是（）（单）
A..frm B..vbp C..bas D..frx
9.VB集成开发环境可以（单）
A.编辑、调试、运行程序，但不能生成可执行程序
B.编辑、生成可执行程序、运行程序，但不能调试程序
C.编辑、调试、生成可执行程序，但不能运行程序
D.编辑、调试、运行程序，也能生成可执行程序
10.英文"VISUAL"的含义是（）（单）
A.可视化 B.集成 C.结构化 D.调试
11.标准模块文件的扩展名是（）（单）
A.frm B.vbp C.bas D.vbg
12.VB集成开发环境中，在（）中编写代码（单）
A.状态栏 B.属性列表框 C.代码框 D.标题栏
13.在面向对象的程序设计过程中，英文缩写"OOP"的含义是（）（单）
A.事件驱动的编程机制 B.结构化程序设计语言C.面向对象的程序设计 D.可视化程序设计
14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（）（单）
A.Timer1.Interval=0.5 B.Timer1.Interval=5C.Timer1.Interval=50 D.Timer1.Interval=500
15在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
a$="VisualBasic"
PrintString（3,a$）
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是（）（单）
A.VVV B.Vis C.sic D.11
16.以下关于多重窗体程序的叙述中，错误的是（）（单）
A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体
B.在多重窗体程序中，各窗体的菜单是彼此独立的
C.在多重窗体程序中，可以根据需要指定启动窗体
D.对于多重窗体程序中，单独保存每个窗体
17以下合法的VisualBasic变量的名称是（）（单）
A.a3 B.Const C.9abc D.a#x!
18.当一个复选框被选中时，它的Value属性的值是（）（单）
A.3 B.2 C.1 D.0
19.表达式5Mod3+5\3的值是（）（单）
A.0 B.3 C.4 D.6
20设x=4,y=8,z=7,表达式：
（x＜y） Orz＜x的值是（）（单）
A.1 B.-1 C.TRUE D.FALSE
21设有如下程序段：
x=2
Forc=1To4Step2
x=x+c
Nextc
运行以上程序后，x的值是（）（单）
A.6 B.7 C.8 D.9
22执行如下两条语句，窗体上显示的是（）（单）
A=9.8596
PrintFormat（a,"000.00"）
A.0,009.86 B.9.86 C.009.86 D.0,009.86
23下列说法中正确的是：
为了保存一个VisualBasic应用程序，应当（）（单）
A.只保存窗体模块文件（.frm）
B.只保存工程文件（.vbp）
C.分别保存工程文件和标准模块文件（.bas）
D.分别保存工程文件、窗体文件和标准模块文件
24.要使一个文本框对象能够显示多行文字，应设置该对象的（）属性值为True（单）
A.Text B.MultiLine C.Style D.Visible
25.若要将窗体从内存中卸载，其实现的方法或语句是（）（单）
A.Show B.Unload C.Load D.Hide
26.以下选项中，不是VB标准控件的是（）（单）
A.命令按钮 B.定时器 C.通用对话框 D.单选框
27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=Sum+a（i-1）
Print"a（i-1）",a（i-1）,Sum
Nexti
x=Sum/5
Fori=1To5
Ifa（i-1）>xThenPrinta（i-1）;x
Nexti
EndSub程序运行后，单击命令按钮，在窗体上显示的内容是（）（单）
A.12 B.123 C.345 D.45
28以下Case语句中错误的是（）（单）
A.Case0To10 B.CaseIs＞10C.CaseIs＞10AndIs＜50 D.Case3,5,Is＞10
29执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是（）（单）
A.Visual B.Basic C.6 D.11
30以下关于变量作用域的叙述中，正确的是（）（单）
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
31以下关系表达式中，其值为False的是（）（单）
A."ABC"＞"AbC" B."the"＜＞"they"C."VISUAL"=UCase（"Visual"） D."Integer"＞"Int"
32.语句Printint（5/4*6\5）Mod2的输出结果是（）（单）
A.0 B.1 C.2 D.3
33在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
strText=InputBox（"请输入"）
Text1.Text=strText
EndSub
PrivateSubText1_Change（）
Label1.Caption=Right（Trim（Text1.Text）,3）
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（）（单）
A.空 B.abcdef C.abc D.def
34在窗体上画一个名称为Text1的文本框，编写以下代码：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii＜65 Or KeyAscii＞90Then
msgBox"请输入大写字母"
KeyAscii=0
EndIf
EndSub
以下能说明该事件过程正确是（）（单）
A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入D.要求文本框只能接收65到90之间的数值的输入
35在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
c="1234"
Fori=1To4
c1=Trim（Str（））
Print c1
Nexti
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为（）（单）
A.Right（c1,i） B.Left（c1,i）C.Mid（c1,i,1） D.Mid（c1,i,i）
36在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。
PrivateSubOption1_Click（IndexAsInteger）
SelectCaseindex
Case0
a="宋体"
Case1
a="黑体"
Case2
a="楷体＿GB2312"
EndSelect
text1.【】=a
EndSub
37在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
PrivateSubText1_LostFocus（）
IfNotIsNumeric（Text1）Then
MsgBox"帐号有非数字字符错误"
Text1.Text=""
Text1.SetFocus
else
MsgBox"帐号正确"
EndIf
EndSub
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为（）（单）
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
38.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
PrivateSubText1_LostFocus（）
IfNotIsNumeric（Text1）Then
MsgBox"帐号有非数字字符错误"
Text1.Text=""
Text1.SetFocus
else
MsgBox"帐号正确"
EndIf
EndSub
当在text1文本框中输入数字123456之后，单击命令按钮，结果为（）（单）
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
39.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
PrivateSubCommand1_Click（）
DimIAsInteger
IfText1.Text＜＞"Gong"Then
I=MsgBox（"密码错误",5+vbExclamation,"输入密码"）
IfI＜＞4Then
End
Else
Text1.Text=""
Text1.SetFocus
EndIf
Else
MsgBox"密码帐号正确！
"
EndIf
EndSub
若在text1中输入字符串"Gong"，则程序运行结果为（）（单）
A.显示对话框，提示"密码帐号正确！
"B.显示对话框，提示"密码错误"
C.程序出错 D.没有任何提示
40.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：
PrivateSubCommand1_Click（）
Dimx!
y!
z!
t!
x=Text1
y=Text2
z=Text3
Ifx＜yThen
t=x
x=y
y=t
EndIf
Ify＜zThen
t=y
y=z
z=t
Ifx＜yThen
t=x
x=y
y=t
EndIf
EndIf
Label1.Caption=x&","&y&","&z
EndSub
当在文本框text1、text2和text3中分别输入5、3和8，则标签显示的结果为（）（单）
A.3,5,8 B.5,3,8C.8,5,3 D.3.8.5
41.
PrivateSubForm_Load（）
DimNopAsInteger,OpAsString*1
Num1=3
Num2=2
Nop=val（Inputbox（"请输入1-4之间的整数"））
SelectCaseNop
Case1
Op="＋"
Result=Num1+Num2
Case2
Op="－"
Result=Num1-Num2
Case3
Op="×"
Result=Num1*Num2
Case4
Op="÷"
Result=Num1/Num2
EndSelect
Label1=Num1&Op&Num2&"="&Result
EndSub
窗体运行后，输入1，则label1的标题显示结果为（）（单）
A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
42在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。
程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是（）（单）
A.PrivateSubHScroll_Change（）
Text1.Text=HScroll1.ValueEndSub
B.PrivateSubHScroll_Click（）
Text1.Text=HScroll1.ValueEndSub
C.PrivateSubHScroll_Change（）
Text1.Text=HScroll.CaptionEndSub
D.PrivateSubHScroll_Click（）
Text1.Text=HScroll.CaptionEndSub
43.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=InputBox（"Input"）
SelectCasex
Case1,3
Print"分支1"
CaseIs＞4
Print"分支2"
CaseElse
Print"Else分支"
EndSelect
EndSub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）
A.分支1 B.分支2 C.Else分支 D.程序出错
44.随机产生10个100～200之间的数，求它们的最大值程序如下：
PrivateSubCommand1_Click（）
Max=100
Fori=1To10
x=int【】
Printx;
Ifx＞MaxThenMax=x
Nexti
Print
Print"最大值=";Max
EndSub
45设a=10，b=5，c=1，执行语句Printa＞b＞c后，窗体上显示的是（）（单）
A.True B.False C.1 D.出错信息
（46）在窗体上建立通用对话框需要添加的控件是
A）Data控件 B）From控件C）CommonDialog控件 D）VBComboBox控件
（47）在VisualBasic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是
A）Load B）ShowC）Hide D）Unload
48）Sub过程与Function过程最根本的区别是
A）Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B）Function过程可以有形参，Sub过程不可以
C）Sub过程不能返回值，而Function过程能返回值
D）两种过程参数的传递方式不同
49保存一个工程至少应保存两个文件，这两个文件分别是）
A）文本文件和工程文件
B）窗体文件和工程文件
C）窗体文件和标准模块文件
D）类模块文件和工程文件
50.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是
A）MousePictureB）StyleC）DownPictureD）DisabledPicture
51假设变量bool_x是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是）
A）bool_x="False"B）bool_x=.False.C）bool_x=#False#D）bool_x=False
52.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）
A）“中华民国”B）“中国人民”C）“中共人民”D）“人民共和”
53下列表达式的值为2123的是（）
A）Val（"123asd"）&2000B）Val（"123asd"）+2000
C）Str（123）&"2000"D）Str（123）+"2000"
54假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程：
PrivateSubCommand1_Click（）
CommonDialog1.Flags=4
CommonDialog1.Filter="allfiles（*.*）|*.*|textFiles（*.Txt）|*.txt|BatchFilse（*.bat）|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBoxCommonDialog1.FileName
EndSub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（）
A）AllFiles（*.*）B）TextFiles（*.Txt）C）BatchFiles（.bat）D）不确定
55当运行程序时，系统自动执行启动窗体的某个事件过程。
这个事件过程是（）
A）LoadB）ClickC）UnloadD）GotFocus
56.无论何控件，都具有一个共同属性。
这个属性是（）
A）TextB）FontC）NameD）Caption
57.在一行内写多条语句时，语句之间要用某个符号分隔。
这个符号是（）
A），B）；C）、D）：
58.表达式12000+"129"&200的值是
A）12329B）"12129200"C）"12000129200"D）"12329"
59.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（）
A）属性、控件和方法B）属性、事件和方法C）窗体、控件和过程D）控件、过程和模块
60表达式String（1,"Iamstudent"）+Replace（"amharass","rass","ppy"）&"!
"的值是（）
A）"Iamhappy!
"
B）"IamstudentIamsamharassstudentamhappy!
"
C）"Iamstudentamharass!
"
D）"Iamstudentamhappy!
"
61.引用列表框（List1）最后一个数据项应使用的表达式是（）
A）List1.List（List1.ListCount）B）List1.List（List1.ListCount-1）C）List1.List（ListCount）D）List1.List（ListCount-1）
62.以下属性和方法中，可重定义坐标系的是）
A）DrawStyle属性B）DrawWidth属性C）Scale方法D）ScaleMode属性
63.下面说法不正确的是（）
A）滚动条的重要事件是Change和Scroll
B）框架的主要作用是将控件进行分组，以完成各自相对独立的功能
C）组合框是组合了文本框和列表框的特性而形成的一种控件
D）计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
64.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
A）TrueB）2C）0D）1
65.下列关于过程叙述不正确的是（）
A）过程的传值调用是将实参的具体值传值递给形参
B）过程的传址调用是将实参在内存的地址传递给形参
C）过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D）无论过程传值调用还是过程传址调用，参数传递都是双向的
66.为了使标签能自动调整大小以显示全部文本内容，应把标签的【】属性设置为true。
67.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【】属性设置为true。
68.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【】.setfocus。
69.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为 图片控件名.picture=【】。
70.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【】属性设置为true。
71.窗体、图片框或图像框中图形通过对象的【】属性设置。
72.计时器事件之间的间隔通过【】属性设置。
73.有时候要暂关闭计时器，这可以通过【】属性设置为false来实现。
74.设a=sqr
（2）,则语句Printformat$（a,"000.0"）的输出结果是【】。
75.设a=sqr（3）,则语句Printformat$（a,"###.0"）的输出结果是【】。
76.VB应用程序通常由3类模块组成，即窗体模块、【】模块和类模块。
77在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private sub command1_click（）
text1.text="vb"
text2.text=text1.text
text1.text="abcd"
EndSub
程序运行后，单击命令按钮，文本框text2中显示的内容为_
升级会员 