VB读程序题文档格式.docx
- 文档编号:19857684
- 上传时间:2023-01-11
- 格式:DOCX
- 页数:41
- 大小:60.49KB
VB读程序题文档格式.docx
《VB读程序题文档格式.docx》由会员分享,可在线阅读,更多相关《VB读程序题文档格式.docx(41页珍藏版)》请在冰豆网上搜索。
y=10
Fork3=0To2
y=y+10
Nextk3
Nextk2
Nextk1
Printy
A)90
B)60
C)40
D)10
4、设有如下过程:
Subff(x,y,z,)
x=y+z
EndSub
以下所有参数的虚实结合都是传址方式的调用语句是
A)Callff(5,7,z)
B)Callff(x,y,z)
C)Callff(3+x,5+y,z)
D)Callff(x+y,x-y,z)
5、下列程序段的执行结果为
a=1
b=0
SelectCasea
Case1
SelectCaseb
Case0
Print"
**0**"
**1**"
EndSelect
Case2
**2**"
A)**0**
B)**1**
C)**2**
D)0
6、下面程序段执行结果为
x=Int(Rnd()+4)
SelectCasex
Case5
excellent"
Case4
good"
Case3
pass"
CaseElse
fail"
A)excellent
B)good
C)pass
D)fail
7、下列程序段的执行结果为
a=6
Fork=1To0
a=a+k
Nextk
Printk;
a
A)-16
B)-116
C)16
D)1121
8、下列程序段的执行结果为
b=1
ForI=1To3
f=a+b
a=b
b=f
Printf;
NextI
A)236
B)235
C)234
D)228
9、单击命令按钮时,下列程序的执行结果为
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=12:
y=32
CallPCS(x,y)
Printx;
y
PublicSubPCS(ByValnAsInteger,ByValmAsInteger)
n=nMod10
m=mMod10
A)1232
B)232
C)23
D)123
10、单击一次命令按钮后,下列程序的执行结果是
s=P
(1)+P
(2)+P(3)+P(4)
Prints
PublicFunctionP(NAsInteger)
StaticSum
Fori=1ToN
Sum=Sum+i
Nexti
P=Sum
EndFunction
A)15
B)25
C)35
D)45
11、下列程序的执行结果为
Dims1AsString,s2AsString
s1="
abcdef"
CallInvert(s1,s2)
Prints2
PrivateSubInvert(ByValxstrAsString,ystrAsString)
DimtempstrAsString
i=Len(xstr)
DoWhilei>
=1
tempstr=tempstr+Mid(xstr,i,1)
i=i-1
Loop
ystr=tempstr
A)fedcba
B)abcdef
C)afbecd
D)defabc
12、阅读下列程序:
DimiAsInteger,kAsInteger
k=2
Fori=1To3
PrintH(k);
FunctionH(jAsInteger)
a=0
Staticb
a=a+1
b=b+1
H=a*b+j
程序运行后,单击命令按钮输出结果是
A)234
B)345
C)567
D)356
13、执行下列程序段后,输出的结果是
14、下列程序段的执行结果为
15、下列程序段的执行结果为
16、单击命令按钮时,下列程序的执行结果为
17、单击一次命令按钮后,下列程序的执行结果是
18、下列程序的执行结果为
19、在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2的标签,然后编写如下程序代码:
PrivatexAsInteger
PrivateSubCommandl_Click()
x=5:
y=3
Callproc(x,y)
LabeL1.Caption=x
LabeL2.Caption=y
PrivateSubproc(ByValaAsInteger,ByValbAsInteger)
x=a*a
y=b十b
程序运行后,单击命令按钮,则两个标签中显示的内容分别是()。
A)253B)259C)53D)59
20、在窗体上画一个命令按钮,然后编写如下事件过程:
x=0
DoUntilx=-1
a=InputBox("
请输入第一个数字a的值"
)
a=Val(A)
b=InputBox("
请输入第二个数字b的值"
b=Val(b)
请输入第三个数字x的值"
x=Val(x)
a=a+b+x
Printa
21、下列程序段的执行结果为
I=4
x=5
Do
I=I+1
x=x+2
LoopUntilI>
=7
I="
;
I;
x="
x
A)I=4x=5
B)I=7x=15
C)I=6x=8
D)I=7x=11
22、下列程序段的执行结果为
b=5
a=a+b
LoopWhilea<
10
Printa;
b
A)15
B)127
C)ab
D)1025
23、下列程序段的执行结果为
a=75
Ifa>
60ThenI=1
70ThenI=2
80ThenI=3
Ifa<
90ThenI=4
I
A)I=1
B)I=2
C)I=3
D)I=4
24、有如下事件过程:
b=10
DoUntilb=-1
请输入a的值"
请输入b的值"
a=a*b
程序运行后,依次输入数值30,20,10,-1,输出结果为
A)6000
B)-10
C)200
D)-6000
25、下面程序段执行结果为
x=Int(Rnd()+3)
26、定义过程的格式中,Static关键字的作用是指定过程中的局部变量在内存中的存储方式。
若使用了Static关键字,则
A)每次调用此过程,该过程中的局部变量都会被重新初始化
B)在本过程中使用到的,在其他过程中定义的变量也为Statci型
C)每次调用此过程时,该过程中的局部变量的值保持在上一次调用后的值
D)定义了该过程中定义的局部变量为"
自动"
变量
27、单击命令按钮时,下列程序的执行结果为
x=50:
y=78
CallPPP(x,y)
PublicSubPPP(ByValnAsInteger,ByValmAsInteger)
n=n\10
m=m\10
A)08
B)5078
C)450
D)7850
28、单击按钮时,以下程序运行后的输出结果是
PrivateSubproc1(xAsInteger,yAsInteger,zAsInteger)
x=3*z
y=2*z
z=x+y
DimxAsInteger,yAsInteger,zAsInteger
x=1:
y=2:
z=3
Callproc1(x,x,z)
x;
z
Callproc1(x,y,y)
y;
A)6612
61010
B)9510
51010
C)9612
91015
D)91010
5410
29、单击命令按钮时,下列程序的运行结果为
PrintMyFund(20,18)
PublicFunctionMyFund(mAsInteger,nAsInteger)AsInteger
DoWhilem<
>
n
DoWhilem>
n:
m=m-n:
n=n-m:
MyFund=m
A)0
B)2
C)4
D)6
30、在窗体上画一个命令按钮,然后编写如下程序
DimaAsInteger,bAsInteger
a=1
b=2
PrintN(a,b)
FunctionN(xAsInteger,yAsInteger)AsInteger
N=IIf(x>
y,x,y)
程序运行后,单击命令按钮,输出结果为
A)1
C)5
D)8
31、执行下面的程序段,x的值为【7】。
10
Fori=1To9
a=a+i
x=Val(i)
MsgBoxx
32、下列程序段的执行结果为
a=5
C)15
33、下列程序段的执行结果为
a=3
A)436
B)459
C)634
D)728
34、下列程序段的执行结果为
I=9
LoopUntilI>
I,
A)I=4x=5
C)I=6x=8
D)I=10x=7
35、以下程序段运行时从键盘上输入字符"
-"
,则输出结果为
op$=InputBox("
op="
Ifop$="
+"
Thena=a+2
Thena=a-2
Printa
A)2
B)-2
C)0
D)+2
36、以下程序段的输出结果为
Diml,a(10),p(3)
k=5
Fori=0To10
a(i)=i
Nexti
Fori=0To2
p(i)=a(i*(i+1))
k=k+p(i)^2
Printk
A)20
B)21
C)45
D)32
37、下列程序的执行结果为
CallValue(x,y)
PrivateSubValue(ByValmAsInteger,ByValnAsInteger)
m=m*2:
n=n-5
Printm;
A)2012
2015
B)1220
1225
C)2415
1220
D)2412
1215
38、在窗体上画一个命令按钮,然后编写下列程序
Tcl2
Tcl3
Tcl4
SubTcl(aAsInteger)
StaticxAsInteger
x=x+a
A)234
B)259
C)354
D)243
39、下面程序段,运行后的结果是PrivateSubCommand1_Click()
Dimb%(1To4),i%,t#
Fori=1To4
b(i)=i
t=Tof(b())
t="
t,
FunctionTof(a()AsInteger)
Dimt#,i%
t=1
Fori=2ToUBound(A)
t=t*a(i)
Tof=t
A)t=18
B)t=24
C)t=30
D)t=32
40、单击按钮时,以下程序运行后的输出结果是
CallGod(x,x,z)
CallGod(x,y,y)
PrivateSubGod(xAsInteger,yAsInteger,zAsInteger)
x=3*z+1
A)6612
71111
B)8510
51111
C)9612
91015
D)81010
5910
41、下列程序段的执行结果为
X=2
Y=5
IfX*Y<
1ThenY=Y-1ElseY=-1
PrintY-X>
0
A)True
B)False
C)-1
D)1
42、执行下列程序后,鼠标单击窗体,输出结果为。
PrivateSubForm_Click()
Click"
PrivateSubForm_MouseDown(ButtonAsInteger,Shift_
AsInteger,XAsSingle,YAsSingle)
Donw"
PrivateSubForm_MouseUp(ButtonAsInteger,Shift_
Up"
A)DownUpClick
B)ClickDownUp
C)DownClickUp
D)UpDownClick
43、下面程序段的运行结果是
D
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序
![提示](https://static.bdocx.com/images/bang_tan.gif)