VB模拟试题一.docx
《VB模拟试题一.docx》由会员分享，可在线阅读，更多相关《VB模拟试题一.docx（14页珍藏版）》请在冰点文库上搜索。
VB模拟试题一
VB模拟试题一
一、选择题
1．工程文件的扩展名是（）
A．.vbgB．.vbpC．.vbwD．.vbl
2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）
A．窗体文件（.frm）、项目文件（.vbp/vbw）
B．窗体文件（.frm）、项目文件（.vbp/vbw）和代码文件（.bas）
C．窗体文件（.frm）、项目文件（.vbp/vbw）和模块文件（.bas）
D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx）
3．以下关于窗体描述正确的是（）
A．只有用于启动的窗体可以有菜单
B．窗体事件和其中所有控件事件的代码都放在窗体文件中
C．窗体的名字和存盘的窗体文件名必须相同
D．开始运行时窗体的位置只能是设计阶段时显示的位置
4．VB中控件主要分为3类，下面哪一种不是VB中的控件类（）
A．标准控件B．ActiveXC．可插入控件D．外部控件
5．在VB的基本数据类型中，通用类型（Variant）可以表示任何类型的变量，如果有定义Dima，则以下变量赋值中正确的是（）
A．a=”OK”B．A$=OKC．a=04/01/2001D．a$=”OK”
6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：
PrivateSubCommand1_Click（）
A=1.2
C=Len（Str$（A）+Space（10））
Text1.text=C
EndSub
程序运行后，单击命令按钮，在文本框中显示（）
A．3B．8C．14D．10
7．在MsgBox函数中哪一个参数是必须的（）
A．promptB．buttonsC．titleD．context
8．以下语句的输出结果是（）
PrintFormat$（1234.5,”00,000.00”）
A．1234.5B．01,234.50C．01,234.5D．1,234.50
9．有如下语句：
TypeStudent
NameAsString
AgeAsInteger
SexAsString
EndType
DimStuAsStudent
WithStu
.Name="张红"
.Age=22
.Sex="女"
EndWith
执行PrintStu.Age后的结果是（）
A．张红B．22C．“女”D．Age
10．以下控件中可以作为容器控件的是（）
A．Image图像框控件B．PictureBox图片框控件
C．TextBox文本框控件D．ListBox列表框控件
11．VB提供的选择框（CheckBox）可具有的功能是（）
A．多重选择B．单一选择C．多项选择D．选择一次
12．以下关于作用范围的描述正确的是（）
A．所有变量（Public/Global/Static/Private）都可以放到窗体的通用部分定义
B．所有变量（Public/Global/Static/Private）都可以放到标准模块中定义
C．Public/Global类的变量只能放在标准模块中定义
D．只有Global类的变量必须放在标准模块中定义
13．建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种（中文/英文/日文/其他）及分类（10类，存在重复分类，台一本图书属于1类，也同时属于2类）。
应如何在窗体中利用单选钮和选择框实现（）
A．用一组16个选择框来实现
B．将10种分类用一组10个选择框、借阅情况和语种用6个单选钮实现
C．将10种分类用一组10个单选钮、借阅情况和语种用6个选择框实现
D．将10种分类用一组10个选择框、借阅情况用2个单选钮、语种用4个单选钮实现
14．有关列表框的属性和方法的正确描述是（）
A．列表框的内容由属性ItemData来确定
B．当多选属性（MultiSelect）为True时，可通过Text属性获得所有内容
C．选中的内容应通过List属性来访问
D．选中的内容应通过Text属性来访问，并且每次只能获得一条内容
15．若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置（）
A．Text属性值为*B．Caption属性值为*
C．Password属性值为空D．PasswordChar属性值为*
16．以下关于控件的叙述中，错误的是（）
A．VB允许用户乱设计并使用控件
B．主窗体中工具条中的工具不是工具箱中包含的常用控件
C．若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中
D．使用系统提供的OCX控件进行程序调，其编程的方法与工具箱中常用控件的编程有所不同
17．在菜单设计时，在某菜单项（Caption）中一个字母前加以“&”符号的含义是（）
A．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项
B．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Alt+带下划线的字母选择该菜单项
C．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Shift+带下划线的字母选择该菜单项
D．在此菜单项前加上选择标记
18．VB为命令按钮提供的Cancel属性（）
A．用来指定命令按钮是否为窗体的“取消”按钮
B．用来指定命令按钮的功能是停止一个程序的运行
C．用来指定命令按钮的功能是关闭一个运行程序
D．用来指定命令按钮的功能是中断一个程序的运行
19．有关多文档界面（Multipledocument．nbspInterface）的不正确描述是（）
A．多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口
B．子窗口归属于父窗口
C．如果父窗口关闭，则所有子窗口全部关闭
D．如果所有子窗口全部关闭，则父窗口关闭
20．文件的基本操作指的是文件的删除、拷贝、移动、改名等，对文件进行改名的操作是（）
A．FileCopyB．NameC．ReNameD．Kill
21．在VB中，按下鼠标键触发事件，正确的程序段是（）
A．PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
……
EndSub
B．PrivateSubForm_MouseUP（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
……
EndSub
C．PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
……
EndSub
D．PrivateSubForm_Load（）
……
EndSub
22．以下能够正确计算1+2+3+…+10的程序是（）
A．PrivateSubCommand1_Click（）
B．PrivateSubCommand1_Click（）
Sum=0Sum=0,I=1
ForI=1To10DoWhileI<=10
Sum=Sum+1Sum=Sum+I
NextII=I+1
PrintSumloopPrintSum
EndSubEndSub
C．PrivateSubCommand1_Click（）D．PrivateSubCommand1_Click（）
Sum=0;I=1Sum=0;I=1
DoDo
Sum=Sum+1Sum=Sum+I
I=I+1I=I+1
LoopWhileI<10LoopUntilI<10
PrintSumPrintSum
EndSubEndSub
23．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下程序：
PrivateSubCommand1_Click（）
X=0
DoWhileX<10
X=（X+1）*（X+2）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（X）
EndSub
程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是（）
A．1和0B．2和12C．2和72D．3和12
24．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
a=UCase$（Text1.Text）+Left$（Text2.Text，2）
Printa
EndSub
PrivateSubForm_Load（）
Text1.Text="aB"
Text2.Text="123456"
EndSub
程序运行后，单击命令按钮，输出结果为（）
A．ab12B．AB12C．AB56D．ab56
25．在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest（）
a=a+1:
b=b+1:
c=c+1
Print“Sub:
”;a;b;c
EndSub
PrivateSubCommand1_Click（）
a=2:
b=3:
c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示（）
A．Sub：
3，4，5B．Sub：
2，3，4
Sub：
4，5，6Sub：
2，3，4
C．Sub：
3，1，1D．Sub：
1，1，1
Sub：
4，1，1Sub：
1，1，1
26．在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：
PrivateSubCommand1_Click（）
StaticaAsVariant
a=Array（20,13,45,-10,50,25）
……
EndSub
此程序的功能是求数组a的最小元素值，并把最小值放在文本框中。
为实现程序的功能，省略号处的程序段应该是（）
A．Min=a
（1）B．Min=a（0）
Fori=2To6Fori=1To5
IfMinMin=a（i）Min=a（i）
EndIfEndIf
NextINextI
Text1.Text=MinText1.Text=Min
A．Min=a（0）B．Min=a（0）
Fori=1To5Fori=1To5
IfMinMin=a（i）Min=a（i）
EndIfNextI
NextIText1.Text=Min
Text1.Text=Min
27．设有如下程序：
PrivateStaticFunctionfac（nAsInteger）AsInteger
DimfAsInteger
f=f+n
fac=f
EndFunction
PrivateSubForm_Click（）
DimiAsInteger
Fori=2To3
Print"#";i&"="&fac（i）
Nexti
EndSub
程序运行后，单击窗体，在窗体上显示的是（）
A．#2=2B．#2=2C．#；2=2D．#；2=2
#3=3#3=5#；3=3#；3=5
28．在窗体中添加一个命令按钮Command1，并有以下程序：
Functionretnum（）
nl=Chr（13）+Chr（10）
msg$="1．运行VB应用程序"+nl+"3．计算器"
msg$=msg$+nl+"请输入数字选择"
retnum=InputBox（msg$,Title,Default）
EndFunction
PrivateSubCommand1_Click（）
r=retnum
Ifr=1Then
x=Shell（"c:
\vbp\vbexam.exe",1）
ElseIfr=2Then
z=Shell（"calc.exe",1）
Else
MsgBox"请输入1-2的数"
EndIf
EndSub
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示（）
A．请输入1-2的数B．Windows的计算器
C．调用C:
\vbp\vbexam.exe程序并运行D．出错
29．设在工程中有一个标准模块，其中定义了如下记录类型：
TypeBooks
nameAsString*10
telnumAsString*20
EndType
在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。
下列能够完成该操作的程序段是（）
A．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
B.name=InputBox（"输入姓名"）
B.telnum=InputBox（"输入电话号码"）
Write#1,B.name,B.telnum
Close#1
EndSub
B．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\person.txt"ForInputAs#1
B.name=InputBox（"输入姓名"）
B.telnum=InputBox（"输入电话号码"）
Write#1,B.name,B.telnum
Close#1
EndSub
C．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
B.name=InputBox（"输入姓名"）
B.telnum=InputBox（"输入电话号码"）
Write#1,B
Close#1
EndSub
A．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:
\person.txt"ForOutputAs#1
name=InputBox（"输入姓名"）
telnum=InputBox（"输入电话号码"）
Write#1,name,telnum
Close#1
EndSub
30．一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。
假定在Form1和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
PrivateSubFun1（）
……
EndSub
Func中定义的过程：
PrivateSubFun2（）
……
EndSub
若要在窗体Form2调用Form1和Func中分别建立的自定义过程，则调用格式正确的是（）
A．CallForm1.Fun1（）B．CallForm1.Fun1（）
Func.Fun1（）CallFun1（）
c．Form1.Fun1（）d．Fun1（）
Func.Fun1（）Fun1（）
二、填空题
1．设A=5，B=6，C=7，D=8，计算表达式3>2*BORA=CANDB<>CORC>D的值是______。
2．鼠标的光标在不同的窗口内，其形状是不一样的，光标的形状通过_________属性来设置。
3．下面程序运行时，内层循环的循环总次数是_______________。
Form=1To3
Forn=0Tom-1
Nextn
Nextm
4．定义语句DimA（-3to3）asInteger，定义数组的元素个数是___________
5．执行下面的程序段后，X的值为_____________。
X=5
ForI=1to10Step2
X=X+I\5
NextI
6．在窗体中添加一个命令按钮，然后编写如下过程：
Functionfun（ByValnumAsLong）AsLong
DimkAsLong
k=1
num=Abs（num）
DoWhilenum
k=k*（numMod10）
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click（）
DimnAsLong
DimrAsLong
n=InputBox（"请输入一个数"）
n=CLng（n）
r=fun（n）
Printr
EndSub
程序运行后，单击命令按钮，在对话框中输入234，输出结果为________________。
升级会员 