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