VB复习题.docx
- 文档编号:2572546
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:31
- 大小:29.33KB
VB复习题.docx
《VB复习题.docx》由会员分享,可在线阅读,更多相关《VB复习题.docx(31页珍藏版)》请在冰点文库上搜索。
VB复习题
VB复习题
一、单选题
1.以下叙述中错误的是
A)VisualBasic是事件驱动型可视化编程工具
B)VisualBasic应用程序不具有明显的开始和结束语句
C)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D)VisualBasic中控件的某些属性只能在运行时设置
2.设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:
A)text1.maxlength=0B)text1.enabled=flase
C)text1.visible=flaseD)text1.width=0
3.以下叙述中错误的是
A)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B)以.BAS为扩展名的文件是标准模块文件
C)窗体文件包含该窗体及其控件的属性
D)一个工程中可以含有多个标准模块文件
4.以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是
A)Form1.Name="VisualBasic窗体"B)Form1.Title="VisualBasic窗体"
C)Form1.Caption="VisualBasic窗体"D)Form1.Text="VisualBasic窗体”
5.以下叙述中错误的是
A)双击鼠标可以触发DblClick事件B)窗体或控件的事件的名称可以由编程人员确定
C)移动鼠标时,会触发MouseMove事件D)控件的名称可以由编程人员设定
6.如果要改变窗体的标题,则需要设置的属性是
A)CaptionB)NameC)BackColorD)BorderStyle
7.以下不属于VisualBasic系统的文件类型是
A).frmB).batC).vbgD).vbp
8.设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键,即按下Alt及字母O时,能够执行"Open"命令,则在菜单编辑器中设置“Open"命令的方式是
A)把Caption属性设置为&OB)把Caption属性设置为O&
C)把Name属性设置为&OpenD)把Name属性设置为O&pen
9.以下叙述中错误的是
A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B)保存VisualBasic程序时,应分别保存窗体文件及工程文件
C)VisualBasic应用程序只能以解释方式执行
D)事件可以由用户引发,也可以由系统引发
10.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=InputBox("Input")
SelectCasex
Case1,3
Print"分支1"
CaseIs>4
Print"分支2"
CaseElse
Print"Else分支"
EndSelect
EndSub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是
A)分支1B)分支2C)Else分支D)程序出错
11.以下能正确定义数据类型TelBook的代码是
A)TypeTelBookB)TypeTelBook
NameAsString*10NameAsString*10
TelNumAsIntegerNumAsInteger
EndTypeEndTelBook
C)TypeTelBookD)TypedefTelBook
NameString*10NameString*10
TelNumIntegerTelNumInteger
EndTypeTelBookEndType
12.以下关于MsgBox的叙述中,错误的是
A)MsgBox函数返回一个整数
B)通过MsgBox函数可以设置信息框中图标和按钮的类型
C)MsgBox语句没有返回值
D)MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量
13.以下声明语句中错误的是
A)Constvar1=123B)Dimvar2='ABC'C)DefInta-zD)Staticvar3AsInteger
14.在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
A)Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer.Interval=50D)Timer1.Interval=500
15.设窗体上有一个列表框控件List1,且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是
A)List1.ListB)List1.ListIndexC)List1.IndexD)List1.Text
16.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
StaticxAsInteger
Cls
Fori=1To2
y=y+x
x=x+2
Next
Printx,y
EndSub
程序运行后,连续三次单击Command1按钮后,窗体上显示的是
A)42B)1218C)1230D)46
17.程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是
A)MouseDownB)MouseUpC)LoadD)Click
18.以下关于多重窗体程序的叙述中,错误的是
A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
B)在多重窗体程序中,各窗体的菜单是彼此独立的
C)在多重窗体程序中,可以根据需要指定启动窗体
D)对于多重窗体程序中,而且单独保存每个窗体
19.设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是
A)TrueB)FalseC)1D)出错信息
20.以下关于文件的叙述中,错误的是
A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的
C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返回给文件分配的字节数
21.VB语言中关于过程或函数的形参用法说明不正确的是:
A)ByVal类别的形参,是按参数的值进行传递的
B)在传址调用时,实参可以是变量,也可以是常数
C)一般调用时,所给定的实参需与形参的顺序及类型相容或相同
D)形参的类型可以用已知的或用户已定义的类型来指定,也可以不指定
22.以下叙述中错误的是
A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法
C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定
23.以下能判断是否到达文件尾的函数是
A)BOFB)LOCC)LOFD)EOF
24.以下合法的VisualBasic标识符是
A)ForLoopB)ConstC)9abcD)a#x
25.如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是
A)如果工程中含有SubMain过程,则程序一定首先执行该过程
B)不能把标准模块设置为启动模块
C)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D)任何时刻最多只有一个窗体是活动窗体
26.当一个复选框被选中时,它的Value属性的值是
A)3B)2C)1D)0
27.窗体的MouseDown事件过程
Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
有4个参数,关于这些参数,正确的描述是
A)通过Button参数判定当前按下的是哪一个鼠标键B)Shift参数只能用来确定是否按下Shift键
C)Shift参数只能用来确定是否按下Alt和Ctrl键D)参数x,y用来设置鼠标当前位置的坐标
28.表达式5Mod3+3\5*2的值是
A)0B)2C)4D)6
29.设组合框Combo1中有3个项目,则以下能删除最后一项的语句是
A)Combo1.RemoveItemTextB)Combo1.RemoveItem2
C)Combo1.RemoveItem3D)Combo1.RemoveItemCombo1.Listcount-1
30.设x=4,y=8,z=7,以下表达式的值是x A)1B)-1C)TrueD)False 31.以下关于焦点的叙述中,错误的是 A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据 B)当文本框失去焦点时,触发LostFocus事件 C)当文本框的Enabled属性为False时,其Tab顺序不起作用 D)可以用TabIndex属性改变Tab顺序 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() a$="VisualBasic" PrintString(3,a$) EndSub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)VVVB)VisC)sicD)11 33.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为 A)=B)*C)&D)- 34.设有如下程序段: x=2 Fori=1To10Step2 x=x+i Next 运行以上程序后,x的值是 A)26B)27C)38D)57 35.执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是 A)只能写,不能读B)只能读,不能写C)既可以读,也可以写D)不能读,不能写 36.以下叙述中错误的是 A)在KeyPress事件过程中不能识别键盘的按下与释放 B)在KeyPress事件过程中不能识别回车键 C)在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母 D)在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符 37.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Text1.Text SelectCasen Case1To20 x=10 Case2,4,6 x=20 CaseIs<10 x=30 Case10 x=40 EndSelect Text2.Text=x EndSub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是 A)10B)20C)30D)40 38.执行如下两条语句,窗体上显示的是 a=9.8596 PrintFormat(a,"$00,00.00") A)0,009.86B)$9.86C)9.86D)$0,009.86 39.设有以下循环结构 Do 循环体 LoopWhile<条件> 则以下叙述中错误的是 A)若"条件"是一个为0的常数,则一次也不执行循环体 B)"条件"可以是关系表达式、逻辑表达式或常数 C)循环体中可以使用ExitDo语句 D)如果"条件"总是为True,则不停地执行循环体 40.在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。 然后编写如下事件过程: PrivateSubCommand1_Click() CommonDialog1.FileName="" CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1 EndSub 对于这个程序,以下叙述中错误的是 A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空 C)该对话框的标题为VBTestD)在该对话框中指定的默认文件类型为文本文件(*.Txt) 41.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimnumAsInteger num=1 DoUntilnum>6 Printnum; num=num+2.4 Loop EndSub 程序运行后,单击命令按钮,则窗体上显示的内容是 A)13.45.8B)135C)147D)无数据输出 42.设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。 窗体Form1的程序代码如下: PrivateSubCommand1_Click() DimaAsInteger a=10 Callg(Form2,a) EndSub PrivateSubg(fAsForm,xAsInteger) y=IIf(x>10,100,-100) f,Show f.Caption=y EndSub 运行以上程序,正确的结果是 A)Form1的Caption属性值为100B)Form2的Caption属性值为-100 C)Form1的Caption属性值为-100D)Form2的Caption属性值为100 43.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimaAsInteger,sAsInteger a=8 s=1 Do s=s+a a=a-1 LoopWhilea<=0 Prints;a EndSub 程序运行后,单击命令按钮,则窗体上显示的内容是 A)79B)340C)97D)死循环 44.在窗体上画一个名称为Command1的命令按钮,并编写如下程序: PrivateSubCommand1_Click() DimxAsInteger StaticyAsInteger x=10 y=5 Callf1(x,y) Printx,y EndSub PrivateSubf1(ByRefx1AsInteger,y1AsInteger) x1=x1+2 y1=y1+2 EndSub 程序运行后,单击命令按钮,在窗体上显示的内容是 A)105B)125C)107D)127 45.设有如下通用过程: PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*y EndFunction 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() StaticxAsInteger x=10 y=5 y=f(x) Printx;y EndSub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A)105B)205C)2040D)1040 46.设有如下程序 OptionBase1 PrivateSubCommand1_Click() Dima(10)AsInteger DimnAsInteger n=InputBox("输入数据") Ifn<10Then CallGetArray(a,n) EndIf EndSub PrivateSubGetArray(b()AsInteger,nAsInteger) Dimc(10)AsInteger j=0 Fori=1Ton b(i)=CInt(Rnd()*100) Ifb(i)/2=b(i)\2Then j=j+1 c(j)=b(i) EndIf Next Printj EndSub 以下叙述中错误的是 A)数组b中的偶数被保存在数组c中B)程序运行结束后,在窗体上显示的是c数组中元素的个数 C)GetArray过程的参数n是按值传送的D)如果输入的数据大于10,则窗体上不显示任何显示 47.设有如下通用过程: PublicSubFun(a(),ByValxAsInteger) Fori=1To5 x=x+a(i) Next EndSub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: PrivateSubCommand1_Click() Dimarr(5)AsVariant Fori=1To5 arr(i)=i Next n=10 CallFun(arr(),n) Text1.Text=n EndSub 程序运行后,单击命令按钮,则在文本框中显示的内容是 A)10B)15C)25D)24 48.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: OptionBase1 PrivateSubCommand1_Click() Dima a=Array(1,2,3,4,5) Fori=1ToUBound(a) a(i)=a(i)+i-1 Next Printa(3) EndSub 程序运行后,单击命令按钮,则在窗体上显示的内容是 A)4B)5C)6D)7 49.在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: OptionBase1 PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=1To5 Ifx(i)>cThen d=d+x(i) c=x(i) Else d=d-c EndIf Nexti Printd EndSub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为 A)89B)99C)23D)77 50.阅读程序 OptionBase1 PrivateSubForm_Click() Dimarr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) Fori=1To10 Ifarr(i)/3=arr(i)\3Then Sum=Sum+arr(i) EndIf Nexti PrintSum EndSub 程序运行后,单击窗体,输入结果为 A)13B)14C)27D)15 51.在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2;六个标签,名称分别为Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label4~Label6分别显示"A"、"B"、"A*B"等文字信息,标签Label1、Label2分别显示其右侧的滚动条的数值,Label3显示A*B的计算结果。 当移动滚动框时,在相应的标签中显示滚动条的值。 当单击命令按钮"计算"时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。 以下不能实现上述功能的事件过程是 A)PrivateSubCommand1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) EndSub B)PrivateSubCommand1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value EndSub C)PrivateSubCommand1_Click() Label3.Caption=HScroll1*HScroll2 EndSub D)PrivateSubCommand1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text EndSub 52.在窗体上画一个名称为File1的文件列表框,并编写如下程序: PrivateSubFile1_DblClick() x=Shell(File1.FileName,1) EndSub 以下关于该程序的叙述中,错误的是 A)x没有实际作用,因此可以将该语句写为: CallShell(File1,FileName,1) B)双击文件列表框中的文件,将触发该事件过程 C)要执行的文件的名字通过File1.FileName指定 D)File1中显示的是当前驱动器、当前目录下的文件 53.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenm=m+n\3 Nextn Printn EndSub 程序运行后,如果单击命令按钮,则窗体上显示的内容是 A)15B)18C)21D)24 54.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500。 编写如下程序: PrivateSubForm_Load() Timer1.Enabled=False EndSub PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubTimer1_Timer() IfLabel1.Lef
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 复习题
![提示](https://static.bingdoc.com/images/bang_tan.gif)