随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 09:44:35
随机产生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
再问: 说PRINTNUM子函数未定义?
再答: 我把完整工程发上来了,你自己下载了运行就可以了,希望有帮助
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子函数未定义?
再答: 我把完整工程发上来了,你自己下载了运行就可以了,希望有帮助
随机产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小的顺序排列
随机产生N个1,1000之间不重复的整数存入数组A中,并按从大到小顺序排列.键入整数X,查找:若无,则插入,
如何产生1000个从1到1000之间的不重复的随机数,用C语言实现!
c#生成6个随机数,要求1到33之间不重复的随机数,要最简单的写法
产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
从(1-33)里任选6个不重复的数字相加之和等于60-150之间任意一个数字.要求计算出所有组合?比如:和值
目标:从(1-33)里任选6个不重复的数字相加之和等于60-150之间任意一个数字.要求计算出所有组合
请问如何用excel产生6组5个3-20的不重复的随机数
EXCEL中,如何从1——49 这49个数值中随机选出25个不重复的的随机数?
java随机生成6位数,要求每次产生的随机数与已生成的随机数不重复,小弟觉得用random产生的数可能重复.
C#,如何生成15个1-15之间的不重复的随机数?