Private Sub Command1_Click()
Dim num(6) As Integer
Dim i As Integer, j As Integer
Dim tmp As Integer
Randomize '防止每次生出随机数一样
For i = 0 To 5
num(i) = Int(Rnd * 53) + 1
Next
PrintNum "新生成的6个随机数为:", num()
For i = 0 To 5
For j = 0 To 5
If num(j) < num(j + 1) Then
tmp = num(j)
num(j) = num(j + 1)
num(j + 1) = tmp
End If
Next
Next
PrintNum "排序后的6个随机数为:", num()
End Sub
'------------------------------------------------------------------------以下用于打印数组
Public Function PrintNum(str As String, num() As Integer)
Dim tmpString As String
Dim i As Integer
For i = 0 To 5
tmpString = tmpString & " " & num(i)
Next
Print str & tmpString
End Function
追问说PRINTNUM子函数未定义?
追答我把完整工程发上来了,你自己下载了运行就可以了,希望有帮助