num=a
Else
num=b
EndIf
Ifnum>cThennum=c
kk=num
PrivateSubCommand1_Click()
DimxInteger,yAsInteger,zAsInteger
x=200
y=100
z=300
Text1.Text=kk(x,y,z)
EndSub
程序运行时,单击命令按钮Command1后,在文本框Text1中显示的内容是
_________________。
(4分)
23、圣诞节即将来临,某商场欲对仓库某货号商品进行补仓以应对即将举办的促销活动。
6家供货商给出的报价分别为54、48、43、60、58、55,若采用冒泡排序算法对其进行从大到小排序,则第三遍的排序结果是_____________。
(5分)
原始数据
48
54
43
60
55
58
第1遍
60
48
54
43
58
55
第2遍
60
58
48
54
43
55
第3遍
第4遍
60
58
55
54
48
43
第5遍
60
58
55
54
48
43
24、某俱乐部举行射击比赛,最后有十人进入决赛,录入员编制了如下VB程序,功能是根据成绩进行排序,程序中数组a保存所有参赛者的姓名,数组b保存此成绩对应的成绩,第i位参赛者的姓名保存在a(i)中,成绩保存在b(i)中。
程序界面如图9-1所示,左边列表框List1中显示原始数据(姓名和相应的成
绩),单击“排序”按钮(Command1),排序后的结果按成绩从高到低显示
在列表框List2中。
设计应用程序界面时,为添加“排序”按钮,应使用如图24-2所示的
“控件工具箱”中的________(填写相应编号),并在图24-3所示的“属性”
窗口中,将__________属性值设置为“排序”。
(每空4分)
解决此问题的算法流程图如下所示,排序部分的程序段如下:
Dima(1To12)AsString
Dimb(1To12)AsSingle
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAs___①___
Fori=1To11
k=i
Forj=i+1To12
If___②___Thenk=j
Nextj
Ifk<>iThen
y=a(i):
a(i)=a(k):
a(k)=y
___
___
EndIf
Nexti
Fori=1To12
List2.AddItema(i)+” ”+Str(b(i))
Nexti
EndSub
PrivateSubForm_Load()
'此过程用于对数组a和数组b进行初始赋值,代码略
EndSub
(2)解决此问题的算法是____________________。
(4分)
(3)程序中
划线处应填入____________________。
(4分)
(4)程序中
划线处应填入____________________。
(4分)
(5)程序中
划线处应填入____________________。
(4分)