有关数组的VB题

来源：百度知道编辑：UC知道时间：2024/05/30 20:33:06

定义一个可以包含10个元素的数组，元素为随机产生的10个1-100之间的整数。在窗体建立一个命令按钮，运行时打印出数组元素和用选择法将数组10个元素升序排列后的数组。

谢谢！

Private Sub Command1_Click()

Dim n(1 To 10) As Integer

Dim i As Integer, j As Integer, t As Integer

For i = 1 To 10 '生成随机数组并打印

Randomize

n(i) = 1 + Int(100 * Rnd)

Print n(i) & " ";

For i = 1 To 9 '排升序并打印

For j = i + 1 To 10

If n(i) > n(j) Then t = n(i): n(i) = n(j): n(j) = t

Print n(i) & " ";

Print n(i)

End Sub