求vb编程题解。按大小顺序排列。

2025-12-25 07:45:41

推荐回答（1个）

回答1：

Cls
Dim
a(10),
n%,
i%,
j%
Randomize
For
i
=
1
To
10
a(i)
=
Int(99
*
Rnd
+
1)
Next
i
For
i
=
1
To
10
For
j
=
i
+
1
To
10
End
IfIf
a(i)
<
a(j)
Then
n
=
a(i)
a(i)
=
a(j)
a(j)
=
n
Next
j
Next
i
For
i
=
1
To
10
Print
a(i)
Next
i

你将以上语句复制上你的按钮上的代码块就可以运行了

你所说的排序法是冒泡排序法

If
a(i)
<
a(j)
Then
n
=
a(i)
a(i)
=
a(j)
a(j)
=
n

这里就是按照你的要求执行的大到小代码，和你写的只是有点不同，因为我这里用的是两层循环，所以不用加1，就是说直接写上循环数！

如果还有什么不明白的，可以随时问我！