vb模拟试题.docx
- 文档编号:30392957
- 上传时间:2023-08-14
- 格式:DOCX
- 页数:8
- 大小:23.93KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 模拟 试题