大学Visual Basic课程VB4.docx
- 文档编号:26406194
- 上传时间:2023-06-19
- 格式:DOCX
- 页数:11
- 大小:20.94KB
大学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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 大学Visual Basic课程VB4 大学 Visual Basic 课程 VB4
![提示](https://static.bdocx.com/images/bang_tan.gif)