大学Visual Basic课程VB4.docx
《大学Visual Basic课程VB4.docx》由会员分享，可在线阅读，更多相关《大学Visual Basic课程VB4.docx（11页珍藏版）》请在冰豆网上搜索。
大学VisualBasic课程VB4
VB模拟试题（4）
一、选择题
1、VB的启动有多种方法，下面不能启动VB的是（）
A．使用“开始”菜单中的“程序”命令
B．使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字
C．使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹
D．先打开VB的“文件”菜单，再按Zlt+Q组合键
2、VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（）
A．窗体文件的扩展名为.frm，每个窗体对应一个窗体文件
B．标准模块是一个纯代码性质的文件，它不属于任何一个窗体
C．用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas
D．资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑
3、下列可以打开文件对话框的操作是（）
A．Ctrl+DB、Ctrl+EC、Ctrl+FD、Ctrl+G
4、下面对哪一种变量的类型说明符的使用是正确的（）
A．Dima:
a@=2000B、Dima:
a%=50000
C．Dima:
a&=TrueD、Dima:
a$=”OK”
5、下列变量名中，合法的变量名是（）
A．C24B、ABC、A：
BD、1+2
6、用于获得字符串S从第2个字符开始的3个字符的函数是（）
A．Mid$（S,2,3）B、Middle（S,2,3）C、Right$（S,2,3）D、Left$（S,2,3）
7、计算结果为0的表达式是（）
A．Int（2.4）+Int（-2.8）B、Cint（2.4）+Cint（-2.8）
C．Fix（2.4）+Int（-2.8）D、Fix（2.4）+Fix（-2.8）
8、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
PrivateSubCommand1_Click（）
A=1234
B$=Str$（A）
C=Len（B$）
PrintC
EndSub
程序运行后，单击命令按钮，则在窗体上显示的内容是（）
A．0B．5C．6D．7
9、定义变量如下：
DimMyVar
MyVar=”comeseeme“
若在立即窗口中显示MyVar的值，下面正确的是（）
A．Debug.PrintMyVarB、PictureBox.PrintMyVar
C．Printer.PrintMyVarD、PrintMyVar
10、在以下Form1窗体中没有采用的控件是（）
A．文本框B．水平滚动条C．框架D．选项按钮
11、滚动条控件的LargeChange属性所设置的是（）
A．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量
B．滚动条中滚动块的最大移动位置
C．滚动条中滚动块的最大移动范围
D．滚动条控件无该属性
12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（）
A．CaptionB．NameC．TextD．value
13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：
PrivateSubCommand1_Click（）
a=Text1.text
b=Text2.text
C=Lcase（a）
D=Ucase（b）
PrintC;D
EndSub
程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（）
A．abcEFGB．abcefgC．ABCefgD．ABCEFG
14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（）
A．Label1.BackStyle=0B．Label1.BackStyle=1
Label1.BorderStyle=0Label1.BorderStyle=1
C．Label1.BackStyle=TrueD．Label1.BackStyle=False
Label1.BorderStyle=TrueLabel1.BorderStyle=False
15．选中一个窗体，启动菜单编辑器的方法有（）
A．单击工具栏中的“菜单编辑器”命令
B．执行“工具”菜单中的“菜单编辑器”命令
C．按Ctrl+ED、按Shift+Alt+M
16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（）
A．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C．当图片框（PictureBox）的AutoSize自属性为Jlase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
17．当利用Line方法进行添加图时，以下正确的说法是（）
A．有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B．使用Line（100,100）-（1000,1200）和Line（100,100）-Step（900,1100）将绘制两条相同位置的直线
C．可利用Line方法添加矩形，如Line（300,300）-（2000,2000）,BF
D．可利用Line方法添加矩形，如Line（300,300）-（2300,2300）,B+F
18．下面语句中错误的是（）
A．RedimPreserveMatrix（10,Ubound（Matrix,2）+1）
B．RedimPreserveMatrix（Ubound（Matrix,1）+1,10）
C．RedimPreserveDynArray（Ubound（DynArray）+1）
D．RedimDynArray（Ubound（DynArray）+1）
19．可以惟一标识控件数组中的每一个控件属性的是（）
A．NameB．CaptionC．IndexD．Enabled
20、下面（）不是VB的文件类控件
A．DriveListBox控件B．KirListBox控件
C．FileListBox控件D、MsgBox
21、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是（）
A．PrivateSubCommand1_Click（）B、PrivateSubCommand1_Click（）
Command2.Visible=TrueCommand2.Enabled=True
Command2.Visible=FalseCommand2.Enabled=False
EndSubEndSub
C．PrivateSubCommand1_Click（）D、PrivateSubCommand1_Click（）
Command2.Enable=TrueCommand2.Enabled=False
Command2.Visible=FalseCommand2.Visible=False
EndSubEndSub
23、在窗体中添加一个命令按钮Command1，并编写如下程序：
PrivateSubCommand1_Click（）
x=InputBox（x）
Ifx^2=9Theny=x
Ifx^2<9Theny=1/x
Ifx^2>9Theny=x^2+1
Printy
EndSub
程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是（）
A．3B．0.33C．17D．0.25
24、设有如下程序：
PrivateSubForm_Click（）
Print“*”;Tab（6）;2,5
ForI=15To16
PrintI
Forj=2To6Step3
PrintTab（3*j）;j*I;
Nextj
Print
NextI
EndSub
程序运行后，单击窗体，则在窗体上显示的是（）
25、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序；
PrivateSubCommand1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
Print"12345"
EndIf
EndSub
PrivateSubCommand1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Print"67890"
EndSub]
程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（）
A．12345B．67890C．12345D．67890
6789012345
26、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
PrivateSubCommand1_Click（）
Dima（5）,b（5）
Forj=1to4
A（j）=3*j
B（j）=a（j）*3
Nextj
Text1.text=b（j\2）
EndSub
程序运行后，单击命令按钮，在文本框中显示（）
A．25B．18C．36D．35
27、在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
PrivateFunctionfun（xAsLong）AsBoolean
IfxMod2=0Then
fun=True
Else
fun=False
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimnAsLong
n=Val（text1.Text）
p=IIf（fun（n）,"奇数","偶数"）
Lable1.Caption=n&"是一个"&p
EndSub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（）
A．20是一个奇数B．20C．20是一个偶数D．2
28、在窗体中添加一个命令按钮，并编写如下程序：
PublicEnumworkdays
sunday=5
monday
tuesday
wednesday
thursday
friday
saturday
invalid=-1
EndEnum
PrivateSubCommand1_Click（）
DimdayAsworkdays
……
EndSub
程序运行后，单击命令按钮，要使程序的运行结果为10，则程序省略处的程序段应为（）
A．day=FridayB、day=Friday
PrintdayPrintVal（day）
C．Workdays=FridayD．Workdays=Friday
PrintVal（workdays）Printworkdays
29、一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。
假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
PrivateSubFun1（）
……
EndSub
Form2中定义的过程：
PrivateSubFun2（）
……
EndSub
Func中定义的过程：
PrivateSubFun3（）
……
EndSub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（）
A．上述三个过程都可以在工程中的任何窗体或模块中被调用
B．Fun1和Fun2过程能够在工程中各个窗体或模块中被调用
C．上述三个过程都只能在各自被定义的模块中调用
D．只在Fun3过程能够被工程中各窗体或模块调用
30、在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码：
PrivateSubCommand1_Click（）
DimsAsString*20
S=Text1.text
……
EndSub
该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是（）
A．Open“dat1.dat”ForInputAs#1B．Open“dat1.dat”ForOutputAs#1
Write#1,SWrite#1,S
Close#1Close#1
C．Open“dat1.dat”ForBinaryAs#1D．Open“dat1.dat”ForRandomAs#1
Write#1,SWrite#1,S
Close#1Close#1
二、填空题
1．随机生成一个1~6的随机整数的表达式是___________________。
2．设置计时器事件之间的间隔要通过计时器的__________________属性。
3．窗体中有两个命令按钮：
“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。
当单击“测试”按钮时，执行的事件的功能是当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮；否则退出，如Form1窗体所示，请在[3]和[4]处填入适当的内容，将程序补充完整。
[相关贴图]
PrivateSubcmdtest_Click（）
Answer=___________[3]（"隐藏按钮",1）
IfAnswer=vbOKThen
cmddisplay.Visible=____________[4]
Else
End
EndIf
EndSub
4．下面的程序用“冒泡”法数组a中的10个整数按升序排列，请在[5]、[6]和[7]处将程序补充完整。
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（-2,5,24,58,43,-10,87,75,27,83）
Fori=__________[5]
Forj=___________[6]
Ifa（i）>=a（j）Then
a1=a（i）
a（i）=a（j）
a（j）=a1
EndIf
Nextj
_______________[7]
Fori=0to9
Printa（i）
Nexti
EndSub
5．下面程序运行后，输出的结果为__________________
PrivateSubCommand1_Click（）
A$=”Beijing”
B$=”dalian”
C$=”shanghai”
C$=Instr（LeftA$,2）+Right$（B$,2）,C$）
PrintC$
EndSub
6．窗体中有一公共对话框Comdialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框。
请在[9]处将程序补充完整。
PrivateSubCommand1_Click（）
ComDialog1.______________[9]
EndSub
7．在VB中，语句定义符rem定义的是___________________
8．窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。
要求选择一个BMP文件即单击文件列表框中的某个文件时，将该文件显示在图片框中，如Form1窗体。
请在[11]、[12]和[13]处填入适当的内容，将程序补充完整。
OptionExplicit
PrivateSubFile1_Click（）
DimfnAsString
IfLen（Dir1.Path）=3Then
Fn=Dir1.Path+File1.FileName
Else
Fn=Dir1.Path&“\”&______________[11]
Endif
Pic1.AutoSize=True
Pic1.ScaleMode=vbPixels
Pic1.Picture=________________[12]
EndSub
PrivateSubForm_Load（）
File1.FileName="*.bmp"
EndSub
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
EndSub
9．设在工程中有一个标准模块，其中定义了如下记录类型：
TypeBooks
NameAsString*10
TelnumAsString*20
EndType
在窗体上添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。
请在[14]和[15]处填入适当的内容，将程序补充完整。
PrivateSubCommand1_Click（）
DimBAs______________[14]
Open“c:
\Person.txt”ForOutputAs#1
B.Name=InputBox（“输入姓名”）
B.TelNum=InputBox（“输入电话号码”）
___________,B.Name,B.TelNum
Close#1
EndSub
答案：
一、选择题：
1---5DCADA
6--10ADCAD
11-15ADAAD
16-20DBBCD
21-25CDACC
26-30BCBDA
二、填空题：
1、INT（（6*RND）+1）
2、INTERVAL
3、MSGBOX
4、FALSE
5、1TO9
6、I+1TO9
7、NEXTI
8、0
9、SHOWCOLOR
10、注释语句
11、FILE1.FILENAME
12、LOADPICTURE（FN）
13、PATTERN
14、BOOKS
15、WRITE#1
升级会员 