利用随机函数产生10个【1,100】的随机整数 (1) 打印这10个数 (2) 用选择排序法按从大到小的顺序排列

使用 VB

Private Sub Command1_Click()
Dim a(10)
Randomize
Print "随机产生10个[1,100]之间的整数"
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next
Print
Print "使用选择排序法从大到小排序"
For i = 1 To 10
For j = 1 To i
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next
Next
For i = 1 To 10
Print a(i);
Next
End Sub追问

?

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-04-13
什么语言,随机函数,貌似是C?追问

vb

相似回答