vb模拟.docx
- 文档编号:29225113
- 上传时间:2023-07-21
- 格式:DOCX
- 页数:17
- 大小:20.10KB
vb模拟.docx
《vb模拟.docx》由会员分享,可在线阅读,更多相关《vb模拟.docx(17页珍藏版)》请在冰豆网上搜索。
vb模拟
2010vb模拟
满分:
70分
姓名:
________
1、单项选择题(本题共计40分)
1、一只白色的足球踢进球门,则白色、足球、踢、进球门是________。
()
A、属性、对象、方法、事件
B、属性、对象、事件、方法
C、对象、属性、方法、事件
D、对象、属性、事件、方法
2、VisualBasic中的窗体文件的扩展名是____________。
()
A、.reg
B、.frm
C、.bas
D、.vbp
3、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。
()
A、Listl.Addltem"China",0
B、Listl.Addltem"China",1
C、Listl.Addltem0,"China"
D、Listl.Addltem1,"China"
4、以下使用方法的语句中,正确的是____________。
()
A、List1.Clear
B、Form1.Clear
C、Combo1.Cls
D、Picture1.Clear
5、设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能正确执行的是________。
()
A、Text1=a/b*a
B、Text1=a*a/b
C、Text1=“200”*a/b
D、Text1=a&b&a
6、函数Cint(–3.5),Int(–3.5),Fix(–3.5)的值分别是________。
()
A、-3,–4,–3
B、-4,–4,–3
C、-3,–4,–4
D、-4,–3,–3
7、对正实数X的第四位小数四舍五入的VB表达式是________。
()
A、0.001*Int(x+0.0005)
B、0.001*(1000*x+0.5)
C、0.001*Int(1000*x+5)
D、0.001*Int(1000*(x+0.0005))
8、设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能正确执行的是________。
()
A、Text1=a/b*a
B、Text1=a*a/b
C、Text1=“200”*a/b
D、Text1=a&b&a
9、下列程序的执行结果是____________。
x=–6^2
PrintSgn(x)+Abs(x)+Int(x)()
A、–36
B、–1
C、0
D、–72
10、语句Print4+5\6*7/8Mod9的值是____________。
()
A、4
B、5
C、6
D、7
11、下列可以将变量A、B互换的语句是____________。
()
A、A=B:
B=C:
C=A
B、A=C:
C=A
C、A=(A+B)/2:
B=(A-B)/2
D、A=A+B:
B=A-B:
A=A-B
12、在Form_Click事件中执行PrintFormat(1236.54,"+##,##0.0%"语句正确结果是________.。
()
A、123456
B、+123,654.0%
C、+123,6.54%
D、+123,654
13、执行下面的程序,单击窗体后在窗体上显示的结果是________。
PrivateSubForm_Click()
DimStrlAsString,Str2AsString,IAsInteger
Str1=”ab”
ForI=Len(Str1)To1Step-1
Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)
NextI
PrintStr1
EndSub()
A、abce
B、abcd
C、abdb
D、abfd
14、下面是计算1~100奇数的和的程序,请补充完整,填空应为_______。
PrivateSubCommand1_Click()
DimsAsLong,xAsInteger
s=0
Forx=____________Step-2
s=s+x
Nextx
Prints
EndSub()
A、100To1
B、1To100
C、99To1
D、1To99
15、VB也提供了结构化程序设计的三种基本结构,三种基本结构是________。
()
A、递归结构、选择结构、循环结构
B、选择结构、过程结构、顺序结构
C、过程结构、输入、输出结构、转向结构
D、选择结构、循环结构、顺序结构
16、下列循环能正常结束循环的是____________。
()
A、i=5
Do
i=i+1
LoopUntili<0
B、i=1
Do
i=i+2
LoopUntili=10
C、i=10
Do
i=i+1
LoopUntili>0
D、i=6
Do
i=i-2
LoopUntili=1
17、语句Ifx=1Theny=1,下列说法正确的是____________。
()
A、x=1和y=1均为赋值语句
B、x=1和y=l均为关系表达式
C、x=1为关系表达式,y=1为赋值语句
D、x=1为赋值语句,y=l为关系表达式
18、在窗体中添加一个命令按钮,并编写如下程序代码:
PrivateSubCommand1_Click()
DimyAsInteger
y=0
DoWhiley<7
y=y+2
Loop
MsgBoxy
EndSub
程序运行后,消息对话框中显示__________。
()
A、0
B、7
C、8
D、2
19、程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是_________。
OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger
Dimx(3,3)AsInteger
Fori=1To3
Forj=1To3
x(i,j)=(i-1)*3+j
Nextj
Nexti
Fori=1To3
Printx(i,4-i)
Nexti
EndSub()
A、159
B、147
C、357
D、369
20、以下程序段的输出结果是____________。
DimB(2,2)AsInteger
Dimi,j,tAsInteger
Fori=1To2
Forj=0To2
B(i,j)=j
Nextj
Nexti
t=1
Fori=0To2
Forj=0To2
t=t+B(i,B(j,j))
Nextj
Nexti
Printt()
A、3
B、4
C、1
D、7
21、
①PrivateSubTest(StAsString*8)
②PrivateSubTest(Sarray()AsString*5)
③PrivateSubTest(Sarray()AsString)
④PrivateSubTest(StAsString)()
A、
B、
C、
D、
22、
()
A、
B、
C、
D、
23、
()
A、
B、
C、
D、
24、对于所定义的Sub过程:
PrivateSubConvert(YAsInteger),下列哪种传递方式参数X的值是按址传递的________。
()
A、CallConvert((X))
B、CallConvert(X*1)
C、Convert(X)
D、ConvertX
25、Sub过程和Function过程最根本的区别是________________。
()
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
B、Function过程可以有参数,Sub过程不可以
C、两种过程参数的传递方式不同
D、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
26、假定已定义了一个过程SubAdd(aAsSingle,bAsSingle),则正确的调用语句是________。
()
A、Add(12,12)
B、CallAdd(2*x,Sin(1.57))
C、CallAddx,y
D、CallAdd(12,12,x)
27、
()
A、
B、
C、
D、
28、要从自定义对话框Form2中退出,可以在该对话框的“退出”按钮的Click事件过程中使用的语句是________。
()
A、UnloadForm2
B、HideForm2
C、Unload.Form2
D、Form2.Unload
29、有应用代码:
Text1.Text="VisualBasic",其中的Text1、Text和"VisualBasic"分别代表____。
()
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
30、下列程序段的输出结果是________。
DimA(5)
ForI=0TO4
A(I)=I+1
M=I+1
IfM=3Then
A(M-1)=A(I-1)
Else
A(M)=A(I)
EndIf
IfI=3ThenA(I+1)=A(M-4)
PrintA(I);
NextI()
A、11122
B、21144
C、12245
D、22141
31、
()
A、
B、
C、
D、
32、以下____________情况不会进入中断状态。
()
A、在程序运行中,按Ctrl+C键。
B、程序运行中,发生了运行错误。
C、用户在程序中设置了断点,当程序运行到断点时。
D、采用单步调试方式,每运行一个可执行代码行后。
33、函数Cint(–3.5),Int(–3.5),Fix(–3.5)的值分别是________。
()
A、-3,–4,–3
B、-4,–4,–3
C、-3,–4,–4
D、-4,–3,–3
34、VisualBasic中的控件分为________和________两类。
()
A、标准控件;ActiveX控件
B、标准控件;内部控件
C、内部控件;外部控件
D、外部控件;ActiveX控件
35、如下程序,运行的结果是____________。
PublicFunctionpi!
(x!
n%)
Ifn=0Then
pi=1
ElseIfnMod2=1Then
pi=x*pi(x,n\2)
Else
pi=pi(x,n\2)\x
EndIf
EndFunction
PrivateSubCommand1_Click()
Printpi(3,7)
EndSub()
A、18
B、7
C、14
D、27
36、下面叙述中正确的是______________.()
A、Spc函数能用于Print方法中,也能用于表达式
B、Space函数能用于Print方法中,也能用于表达式
C、Spc函数与Space函数均生成空格,没有区别
D、以上说法均不对
37、下面属性中,用来设置对一个图形的引用的是________。
()
A、DownPicture
B、DisabledPicture
C、Picture
D、Default
38、下列语句运行时系统给出错误提示的是________。
()
A、Print-32000-769
B、Print"1E2"+8
C、Print"AB"&128
D、Print3=2=4
39、一个对象可以执行的动作与可被对象的特性描述分别称为________。
()
A、事件、方法
B、方法、事件
C、方法、属性
D、过程、事件
40、以下__________操作不能打开属性窗口。
()
A、按下F4键
B、单击工具栏上的“属性窗口”按钮
C、执行“视图”菜单中的“属性窗口”命令
D、双击任何一个对象
2、填空题(本题共计30分)
1、执行下面的程序,击窗体后在窗体上显示的第一行结果是___
(1)______,第三行结果是____
(2)_______。
PrivateSubForm_click()
Dimmystr,mystr1,mysrr2AsString
mystr1="B"
Fori=1To3
mystr2=LCase(mystr1)
mystr1=mystr1&mystr2
mystr=mysre&mystr1
Printmystr
mystr1=Chr(Asc(mystr1)+i)
Nexti
EndSub
2、下列程序的功能是输出如下数列的前20项,按每行5个数的形式输出。
1,1,2,3,5,8,13,......
DimaAsInteger,bAsInteger
DimiAsInteger
a=1:
b=1:
i=3
Printa,b,
DoWhile(i<=20)
c=a+b
t=b
b=a+b
____
(1)____
Printc,
If____
(2)____Then
EndIf
_____(3)_____
Loop
3、下面程序的功能是判断100~999之间的所有素数,所谓素数是指只能被1和它本身整除的数。
完善下列程序。
PrivateSubForm_Click()
DimiAsInteger
DimkAsinteger
Fori=100To999
Fork=2Toi-1
If________Then
_________
EndIf
Nextk
If________Then
Printi
EndIf
Nexti
EndSub
4、当sub过程value形参表中存在byval关键字时,执行本程序,单击窗体在窗体上显示的第一行内容是____
(1)______;若将形参表的byval关键字删掉,在执行本程序,单击窗体后在窗体上显示的第一行内容是____
(2)________;第二行内容是____(3)_______。
PrivateSubvalue(ByValmAsInteger,ByValnAsInteger)
m=m*2
n=n-5
Print"m=";m,"n=";n
EndSub
PrivateSubForm_Click()
DimxAsInteger,yAsInteger
x=10:
y=15
Callvalue(x,y)
Print"x=";x,"y=";y
EndSub
5、已知数组A(4,4),各个元素在运行程序时,被赋值并打印,形成四阶方阵。
程序执行后,产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。
请完善下列程序。
例如:
1234------->1111
1234------->2222
1234------->3333
1234------->4444
PrivateSubCommand1_Click()
Dima(4,4)
Fork=1To4
Forj=1To4
a(k,j)=j
Printa(k,j);
Nextj
Nextk
Fork=2To4
Forj=1To_______
t=a(j,k)
a(j,k)=_______
a(k,j)=t
Nextj
Nextk
EndSub
6、
PrivateFunctiont(nAsInteger,kAsInteger)AsInteger
t=0
DoWhilek>0
t=nMod10
n=n\10
k=k-1
Loop
EndFunction
Privat
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 模拟