中职VB语言程序设计选择题综合练习三.docx
《中职VB语言程序设计选择题综合练习三.docx》由会员分享，可在线阅读，更多相关《中职VB语言程序设计选择题综合练习三.docx（12页珍藏版）》请在冰点文库上搜索。
中职VB语言程序设计选择题综合练习三
VB语言程序设计综合练习：
选择题
21窗体上已有命令按钮Command1和标签Label1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是_____。
Optionbase0
PrivateSubCommand1_Click（）
Dima（5）AsInteger，nAsInteger
Fori=1To5
a（i）=i
n=n+a（i）
Nexti
Label1=n
EndSub
A）5B）10C）15D）程序报错，Label1不能输出结果
23在窗体上画一个名称为Label1的标签，然后编写如下事件过程_____。
PrivateSubForm_Click（）
Dimarr（10，10）AsInteger
DimiAsInteger，jAsInteger
Fori=2To4
Forj=2To4
arr（i，j）=i*j
Nextj
Nexti
Label1.Caption=Str（arr（2，2）+arr（3，3））
EndSub
程序运行后，单击窗体，在标签中显示的内容是_____。
A）12B）13C）14D）15
24设有如下程序，其功能是用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值，请选择程序中空处应为_____。
OptionBase1
PrivateSubCommand1_Click（）
Dimarr1
DimMinAsInteger，iAsInteger
arr1=Array（12，435，76，-24，78，54，866，43）
Min=_____
Fori=2To8
Ifarr1（i）《MinThenMin=arr1（i）
Nexti
Print“最小值是：
”;Min
EndSub
A）-24B）886C）arr1
（1）D）arr1（0）
25以下程序的输出结果是_____。
OptionBase1
PrivateSubCommand1_Click（）
Dima（10），p（3）AsInteger
k=5
Fori=1To10
a（i）=I
Nexti
Fori=1To3
p（i）=a（i*i）
NextI
Fori=1To3
k=k+p（i）*2
Nexti
Printk
Endsub
A）33B）28C）35D）37
26以下程序段运行的结果是________。
Dima（-1To5）AsBoolean
DimflagAsBoolean
flag=false
DimiAsInteger
DimjAsInteger
DoUntilflag=True
Fori=-1to5
j=j+1
Ifa（i）=FalseThen
a（i）=True
ExitFor
EndIf
Ifi=5Then
flag=True
EndIf
Next
Loop
Printj
A）20B）7C）35D）8
27以下有关数组定义的语句序列中，错误的是______。
A）Staticarr1（3）
Arr1
（1）=100
Arr1
（2）=“Hello”
Arr1（3）=123.45
B）Dimarr2（）AsInteger
DimsizeAsInteger
PrivateSubCommand2_Click（）
size=InputBox（“输入：
”）
ReDimarr2（size）
。
。
.。
。
.
EndSub
C）OptionBase1
PrivateSubCommand3_Click（）
Dimarr3（）AsInteger
。
。
.。
。
.
EndSub
D）DimnAsInteger
PrivateSubCommand4_Click（）
Dimarr4（n）AsInteger
。
。
.。
。
.
EndSub
28下述语句定义的数组元素有______个。
OPTIONBASE1
DIMA（12，8）
A）117B）128C）96D）20
29下列程序段的执行结果为______。
DimA（10，10）
ForI=1To8
ForJ=6To8
A（I，J）=I*J
NextJ
NextI
PrintA（4，6）+A（3，8）+A（8，7）
A）104B）114C）无法输出D）报错溢出
30阅读程序
OptionBase1
PrivateSubForm_Click（）
Dimarr，Sum
Sum=0
arr=Array（1，3，5，7，9，11，13，15，17，19）
Fori=1To10
Ifarr（i）/3=arr（i）\3Then
Sum=Sum+arr（i）
EndIf
Nexti
PrintSum
EndSub
程序运行后，单击窗体，输出结果为______。
A）13B）14C）27D）15
31在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarray1（10，10）AsInteger
DimiAsInteger，jAsinteger
Fori=1To3
Forj=2To4
array1（i，j）=i+j
Nextj
Nexti
Text1.Text=array1（2，3）+array1（3，4）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是______。
A）15B）14C）13D）12
32窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimA（10），B（5）
ForI=1To10
A（I）=I
NextI
ForJ=1To5
B（J）=J*20
NextJ
A（5）=B
（2）
Print“A（5）=”，A（5）
EndSub
窗体运行后，单击命令按钮，输出结果是______。
A）A（5）=40B）A（5）=20C）A（5）=10D）A（5）=5
33在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
OptionBase0
PrivateSubCommand1_Click（）
DimcityAsVariant
city=Array（“北京”，“上海”，“天津”，“重庆”）
Printcity
（1）
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A）空白B）错误提示C）北京D）上海
34窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimA（5，5）
ForI=1To3
ForJ=1To4
A（I，J）=I*J
NextJ
NextI
ForN=1To2
ForM=1To3
PrintA（M，N）;
NextM
NextN
EndSub
窗体运行后，单击命令按钮，输入结果是______。
A）123424B）123468C）123246D）123636
35设有命令按钮Command1的单击事件过程
PrivateSubCommand1_Click（）
Dima（3，3）ASInteger
Fori=1To3
Forj=1To3
a（i，j）=i*j+i
Nextj
Nexti
Sum=O
Fori=1To3
Sum=Sum+a（i，4-i）
Nexti
PrintSum
EndSub
运行程序，单击命令按钮，输出结果是______。
A）20B）7C）16D）17
36在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
DimcAsInteger，dAsInteger
d=0
c=6
x=Array（2，4，6，8，10，12）
Fori=1To6
Ifx（i）>=cThen
d=d+x（i）
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A）10B）16C）12D）20
37阅读程序：
OptionBase1
Dimarr（）AsInteger
PrivateSubForm_Click（）
DimiAsInteger，jAsInteger
ReDimarr（3，2）
Fori=1To3
Forj=1To2
arr（i，j）=i*2+j
Nextj
Nexti
ReDimPreservearr（3，4）
Forj=3To4
arr（3，j）=j+9
Nextj
Printarr（3，2）+arr（3，4）
EndSub
程序运行后，单击窗体，输出结果为
A）21B）13C）8D）25
38窗体中新建立一个命令按钮（Command1），其事件代码如下：
PrivateSubCommand1_Click（）
Dima（4）AsInteger，b（4）AsInteger
ForK=0To2
a（K+1）=Val（InputBox（“请输入数据”））
b（3-K）=a（K+1）
NextK
Printb（K）
EndSub
窗体运行后，单击命令按钮，依次输入1、3、5，执行结果为______。
A）0B）1C）3D）5
39在窗体上画一个名称为Command1命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
DimiAsInteger，jAsInteger
Dima（10，10）AsInteger
Fori=1To3
Forj=1To3
a（i，j）=（i-1）*3+j
Printa（i，j）;
Next
Print
Nexti
EndSub
程序运行后，单击命令按钮，窗体上显示的是______。
A）123
246
369
B）234
345
456
C）147
258
369
D）123
456
789
40对窗体编写如下代码：
OptionBase1
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
a=Array（237，126，87，48，498）
m1=a
（1）
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa（i）》m1Then
m1=a（i）
m2=i
EndIf
Nexti
EndIf
Printm1
Printm2
EndSub
程序运行后，按回车键，输出结果为______。
A）484
B）237
1
C）498
5
D）498
升级会员 