VB程序设计试卷.docx

文档介绍：《VB程序设计》试卷试卷十五
一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误）
窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按<Enter>键，就相当于履行该命令按钮的Clic，但前者不能经过过程名返回
三、程序填空选择题（共20分，每空2分）
阅读下列程序说明和相应的程序，在每题提供的若干可选答案中，精选一个正确答案。
1．单击命令按钮cmd2，由随机函数产生50个100—300之间（包括100和300）的随机整数。放入第一个数组中，将它们中的偶数放入另一个数组，再对偶数数组按从大到小的次序进行排序，
先后将这三组数值显示在窗体中。
PrivateSubcmd2_Click( )
DimN%(50),M%( ),I%,J%,T%,P%
Cls
Print"原始数组："
ForI=1To50
N(I)=___(21)___
PrintN(I),
IfIMod5=0ThenPrint
IfN(I)Mod2=0ThenJ=J+1:
NextI
Print"偶数数组："
ForI=1ToJ
PrintM(I),
IfIMod5=0ThenPrint
NextI
Print:Print"排序后的偶数数组：
ForI=1ToJ-1
P=I
ForK=___(22)___
If___(23)___ThenP=K
NextK
IfI<>PThen___(24)___
PrintM(I),
IfIMod5=0ThenPrint

"

ReDimPreserve

M(J):M(J)=N(I)
NextI
PrintM(I)
EndSub
(21)

[A]Int(100+Rnd( )*201)

[B]Int(200+Rnd( )
*101)
[C]Int(101+Rnd( )*199)
(22)
(23)

[A]K=I+1To50[D]K=I+1ToJ[A]M(I)<M(K)

[D]Int(100+Rnd( )*200)
[B]J=I+1To50
[B]M(I)>M(K)

[C]J=I+1ToK
[C]M(P)<M(K)

[D]
M(K)<M(P)
(24)

[A]T=M(P):M(I)=M(P):M(I)=T

[B]T=M(I):M(P)
=M(I):M(P)=T
[C]M(I)=T:T=M(P):

M(P)=M(I)