Private Sub Command1_Click()
成都创新互联公司主要从事成都网站制作、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务天镇,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
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
下面是你需要的，经过三次随机，可以看一下，直接调用函数返回一个字符就是你要的，看不懂再追问哈
Structure jiqi
Dim num As Integer
Dim num2 As Integer
End Structure
Public Function chansheng() As String
Dim str As String = ""
Dim n As Integer = 0
Dim p68 As Integer
Randomize()
p68 = Int(Rnd() * 2) + 1
Dim a(10), b(8) As Integer
For i = 1 To 6
b(i) = i - 1
Next
b(7) = 7
b(8) = 9
For i = 1 To 6
Randomize()
a(i) = b(Int(Rnd() * 8) + 1)
Next
If p68 = 1 Then
For i = 7 To 10
a(i) = 6
Next
ElseIf p68 = 2 Then
For i = 7 To 10
a(i) = 8
Next
End If
Dim c(10) As Integer
Dim temp As jiqi
Dim pi(10) As jiqi
For i = 1 To 10
pi(i).num = a(i)
pi(i).num2 = Int(Rnd() * 1000) + 10
Next
For i = 1 To 10
For j = 1 To 10 - i
If pi(j).num2 pi(j + 1).num2 Then
temp = pi(j + 1)
pi(j + 1) = pi(j)
pi(j) = temp
End If
Next j
Next i
For i = 1 To 10
str = str pi(i).num
Next
Return str
End Function
想要生成多少个都行。
Randomize()随机打乱
dim a1 as integer=cint(rnd()*32))+1
dim a2 as integer=cint(rnd()*32))+1
dim a3 as integer=cint(rnd()*32))+1
dim a4 as integer=cint(rnd()*32))+1
dim a5 as integer=cint(rnd()*32))+1
'项目：VB中产生在一定正整数范围内的不重复的随机数'作者：qq15495835Private Sub Command1_Click() Max = 100 '随机数上限值 Min = 1 '随机数下限值 Amount = 10 '产生号码数量(数量值应小于随机数上限值-随机数下限值)否则会产生死循环 ReDim a(Amount) Randomize For i = 0 To Amount a(i) = Int((Max - Min + 1) * Rnd + Min) For j = 0 To i If i j And a(i) = a(j) Then i = i - 1 Next Next Text1 = Join(a, vbCrLf)End Sub'请采纳参考！谢谢！
Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))
注：randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
这里，upperbound 是此范围内最大的数，lowerbound 是此范围内最小的数。
下面的代码已经经过测试
Private Sub RandList()
Dim I As Integer
Dim R As New System.Random
ListBox1.Items.Clear()
For I = 1 To 10
ListBox1.Items.Add(R.Next(30, 100).ToString)
Next
End Sub
