VB期末考试编程题覆盖范围：r
第一题要求（15分）：r
不用过程，覆盖以下算法：r
1．t求随机10个整数的最大值、最小值、平均值以及和；r
PrivateSubComma
d1_Clickr
DimiAsI
tegerr
Fori1To10r
List1AddItemI
tR
d9010r
Nextr
E
dSubr
PrivateSubComma
d2_Clickr
DimiAsI
tegersumAsI
tegerr
DimmaxAsI
tegermi
AsI
tegerr
maxValList1List0r
mi
ValList1List0r
Fori1To9r
IfmaxValList1ListiThe
maxValList1Listir
Ifmi
ValList1ListiThe
mi
ValList1Listir
Nextr
Text1Textmaxr
Text2Textmi
r
sum0r
Fori0To9r
sumsumValList1Listir
Nextr
Text4Textsumr
Text3Textsum10r
E
dSubr
2．t求水仙花数；r
PrivateSubForm_Clickr
DimpAsI
tegerr
For
100To999r
aI
t
100r
bI
t
a10010r
c
a100b10r
pa3b3c3r
Ifp
The
Pri
tpr
Next
r
E
dSubr
3．t百元买百鸡问题；r
PrivateSubComma
d1_Clickr
DimxAsI
tegeryAsI
tegerzAsI
tegerr
List1AddItem