随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 20:53:05
![随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列](/uploads/image/z/3866429-29-9.jpg?t=%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F1-33%E4%B9%8B%E9%97%B4%E7%9A%846%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B0%EF%BC%88%E4%BF%9D%E8%AF%816%E4%B8%AA%E6%95%B0%E5%AD%97%E4%B8%8D%E9%87%8D%E5%A4%8D%EF%BC%89%E6%8C%89%E7%85%A7%E4%BB%8E%E5%A4%A7%E5%88%B0%E5%B0%8F%E7%9A%84%E9%A1%BA%E5%BA%8F%E6%8E%92%E5%88%97)
随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
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