vb模拟试题.docx
《vb模拟试题.docx》由会员分享，可在线阅读，更多相关《vb模拟试题.docx（8页珍藏版）》请在冰豆网上搜索。
vb模拟试题
1、选择题（20道×2分＝40分）
1.VB集成开发环境有三种工作状态，不属于三种工作状态之一的是________。
A．设计状态B．编写代码状态C．运行状态D．中断状态
2.以下关于过程的叙述中，错误的是（）
A）事件过程是由某个事件触发而执行的过程
B）函数过程的返回值可以有多个
C）可以在事件过程中调用通用过程
D）不能在事件过程中定义函数过程
3.有程序代码“Text1.Text=”VisualBasic“”，其中的Text1、Text和“VisualBasic”分别代表（）
A）对象、值、属性B）对象、方法、属C）对象、属性、值D）属性、对象、值
4．以下语句中，不能正确执行的是_________。
A．IfOption1.ValueThen
B．IfOption1.Value=TrueThen
C．Check1.Value=0
D．Check1.Value=True
5.下面有关数组的说法中，正确的是。
A．数组的维下界不可以是负数
B．模块通用声明处有OptionBase1，则模块中数组定义语句DimA（0To5）会与之冲突
C．模块通用声明处有OptionBase1，模块中有DimA（0T05），则A数组第一维维下界为0
D．模块通用声明处有OptionBase1，模块中有DimA（0To5），则A数组第一维维下界为1
6.在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，只有_______可使文本框Text3中显示46。
A．Text3.Text=Text1.Text＆Text2.Text
B．Text3.Text=Val（Text1.Text）+Val（Text2.Text）
C．Text3.Text=Text1．Text+Text2.Text
D．Text3.Text=Val（Text1.Text）&Val（Text2.Text）
7.表示“X>Y>Z”，正确的VB逻辑表达式是________。
A．X>YAndY>ZB．X>Y>Z
C．X>YOrY>ZD．X>YAnd>Z
8.程序中的不同过程之间，不能通过________进行数据传递。
①全局变量②窗体或模块级变量③形参与实参结合④静态变量
A．①②④B．①②③C．②④D．④
9．以下使用方法的语句中，正确的是_________。
A．List1．ClearB．Form1．Clear
C．Combo1．ClsD．Picture1．Clear
10.在窗体的通用声明处有语句“DimA（）AsSingle”，以下在某事件过程中重定义此数组的一组正确语句是_________。
A．ReDimA（3，3）ReDimA（4，4）AsInteger
B．ReDimA（3，3）ReDimPreserveA（4,4）
C．ReDimA（3）ReDimA（3，3）AsInteger
D．ReDimA（3,3）ReDimA（3，3）AsInteger
11.针对语句IfI=1ThenJ=1，下列说法正确的是________。
A．I=1和J=1均为赋值语句
B．I=1和J=1均为关系表达式
C．I=1为关系表达式，J=1为赋值语句
D．I=1为赋值语句，J=1为关系表达式
12.求以10为底X的常用对数的表达式为________。
A.LOG（X）/LOG（10）B.LN（X）
C.LOG（X）/LOG（E）D.LOG（X）
13.在下图中，要在窗体Form1标题栏出现“小程序”字样，窗体属性应设置为________。
A．Form1．Name="小程序"
B．Form1．Visible="小程序"
C．Form1．Caption="小程序"
D．Form1．Show="小程序"
14.对正实数X的第四位小数四舍五入的VB表达式是________。
A．0.001*Int（x+0.005）
B．0.001*（1000*x+0.5）
C．0.001*Int（1000*x+5）
D.0.001*Int（1000*（x+0.0005））
15.下列语句所声明的数组的元素个数为_________。
Dima（3To6,-2To2）
A．20B．16C．24D．25
16.名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是_________。
A.PrivateSubsort（a（）AsInteger）
B.PrivateSubsort（a（10）AsInteger）
C.PrivateSubsort（ByVala（）AsInteger）
D.PrivateSubsort（a（,）AsInteger）
17.下面逻辑表达式的值为True的是_________。
A."A">"a"B."9">"a"
C."That">"Thank"D.12>12.1
18.下列表达式中，运算结果与函数Mid（s，i，i）的返回值相同的是________。
A．Left（s,i）＆Right（s,Len（s）-i）
B．Left（Right（s,Len（s）–i+1）,i）
C．Left（Right（s,i）,Len（s）–i+1）
D．Left（s,Len（s）-i）＆Right（s,i）
二、填空题（20道×3分＝60分）
1.执行下面的程序段后，输出的S的值为，i的值为。
PrivateSubCommand1_Click（）
S=5
Fori=2.6To4.9Step0.6
S=S+1
PrintS,i
EndSub
2．下面程序执行后，输出的第一行是，第二行，第三行是 。
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=10:
b=15
Print"a=";a,"b=";b
Calltest（a,b）
Print"a=";a,"b=";b
EndSub
PrivateSubtest（ByValxAsInteger,yAsInteger）
x=x+15
y=y+10
Print"x=";x,"y=";y
EndSub
3．下列程序运行后输出结果是 。
PrivateSubForm_Click（）
K=1
ForI=5to1Step-1
T=T*10+K
S=S+T
NextI
PrintS
EndSub
4.在窗体上画一个名称为Command1的命令按钮，编写以下程序：
PrivateSubCommand1_Click（）
DimaAsInteger
StaticbAsInteger
a=a+b
b=b+4
Printa,b
EndSub
程序运行后，单击该命令按钮三次，屏幕上第三次显示的a值是 ,b值是 。
5.单击按钮Command1，打开通用对话框的打开文件对话框，选择一个文件进行顺序文件的读取，每读一整行就把读取的一整行信息赋值给文本框。
请在空处将程序补充完整。
PrivateSubCommand1_Click（）
CommonDialog1.____________
Text1.Text=""
OpenCommonDialog1.FileNameForAs#1
DoWhileNot
#1,inputdata
Text1.Text=Text1+inputdata+vbCrLf
Loop
Close#1
EndSub
6.在有序数组a中插入数值x
PrivateSubForm_Click（）
Dima（）,i%,k%,x%,n%
a=Array（1,4,7,9,12,23,56）
n=___________
x=14
Fork=0Ton
IfxNextk
ReDim__________a（n+1）
Fori=nTokStep-1
a（i+1）=a（i）
Nexti
__________=x
Fori=0Ton+1
Printa（i）;
Nexti
EndSub
7.下列程序是计算S=1!
+2!
+3!
+…+8!
请完善程序。
PrivateSubForm_Click（）
DimfactAsDouble,sumAsDouble
DimiAsInteger,jAsInteger
ForI=1To8
_______________
Forj=1ToI
_____________
Nextj
Sum=sum+______________
NextI
Print"S=1!
+2!
+3!
+…+8!
=";sum
EndSub
8.下列程序的功能是将一个数的各位数字相乘并输出到窗体上，请补充完善程序。
OptionExplicit
PrivateSubCommand1_Click（）
DimnAsLong
N=InputBox（"请输入一个数"）
Printfun1（n）
EndSub
PrivateFunctionfun1（NumAsLong）AsLong
DimsAsLong
S=1
Num=abs（Num）
DoWhile______________
S=s*（NumMod10）
Num=_____________
Loop
Fun1=______________
EndFunction
参考答案
一．选择题共18道。
1-5BBCDC6-10BADAD11-15CACDDA16-18ACB
2．填空题
1.95
2a=10b=15a=10b=25x=25y=25
312345
4812
5ShowOpenInputEOF
（1）LineInput
6Ubound（a）Preservea（k）
7fact=1fact=fact*jfact
8Num<>0Num\10S
升级会员 