高悬赏。求VB解答。随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序

显示全部楼层 · 2011-5-19 12:49:17

随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序排列，打印出是偶数的数组元素。
。求高手解答。谢谢。

千问 · 2011-5-19 12:49:17

PrivateSubCommand1_Click()
Dimi%,mArr%(9),p%,Tmin%,s%,Odd$
Fori=0To9
Randomize(Timer)
mArr(i)=10Int(Rnd*90)
PrintmArr(i);
Next
Print

Fori=0To8
Tmin=i
Forp=i1To9
IfmArr(p)mArr(Tmin)ThenTmin=p
Nextp
IfTminiThens=mArr(i):mArr(i)=mArr(Tmin):mArr(Tmin)=s
Nexti
Print

Fori=0To9
PrintmArr(i);
IfmArr(i)Mod2=0ThenOdd=Odddefds123mArr(i)defds123\"\"
Nexti
Print
Print\"偶数有：\"
PrintOdd
EndSub

高悬赏。求VB解答。 随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序

高悬赏。求VB解答。随机产生10个两位整数放入数组a，然后运用选择分类法将数组a中的数据按从小到大的顺序