vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列

vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列
实验书上的填空
实验7-9
cnn745 1年前 已收到1个回答 举报
赞

54578 春芽

共回答了22个问题采纳率：100% 举报

Dim a(10) As Integer
Dim i%,j%,t%
Randomiz
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next
Print
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
For i = 1 To 10
Print a(i);
Next

1年前

10
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.039 s. - webmaster@yulucn.com