如何用VB编写一个将数字1到8随机排序的程序？

怎么用VB编写一个将数字1到8随机排序的程序？~

先把1到8放到数组里
然后用random函数（1-8） 随机取1个数
然后放到另一个数组的第一个
然后把第一个数组的最后一个数移动到随机数的那个地址
然后重复


你这样也行 程序能用就行 没固定方法

在窗体里添加label1和按钮command1,然后粘贴以下代码。以下代码实现了1-8八个数随机不重复排序。如果数字可以重复的话，更简单些。

Dim flag(8) As Integer, InitNum(8) As Integer, Num(8) As Integer
Dim i As Integer, j As Integer
Private Sub Command1_Click()
For i = 0 To 7
flag(i) = 0
Next i

i = 0
Do
j = Int(Rnd() * 8)
If flag(j) = 0 Then
Num(i) = InitNum(j)
flag(j) = 1
i = i + 1
End If

Loop Until i = 8

Label1.Caption = ""
For i = 0 To 7
Label1.Caption = Label1.Caption & Num(i)
Next i

End Sub

Private Sub Form_Load()
Randomize
For i = 0 To 7
InitNum(i) = i + 1
Next i
End Sub

在窗体里添加label1和按钮command1,然后粘贴以下代码。以下代码实现了1-8八个数随机不重复排序。如果数字可以重复的话，更简单些。

Dim flag(8) As Integer, InitNum(8) As Integer, Num(8) As Integer
Dim i As Integer, j As Integer
Private Sub Command1_Click()
For i = 0 To 7 '为各个数加个标志，flag=1就表示这个数已经被随机取出
flag(i) = 0
Next i

i = 0
Do
j = Int(Rnd() * 8) '随机从8个数中取，但是可能取到重复的
If flag(j) = 0 Then ' 这里根据标志flag判定，这个数是否已经取过，0就是没取过
Num(i) = InitNum(j) '追加到结果数组中
flag(j) = 1 '给这个数加上获取标记，下次就会跳过这个数
i = i + 1 '为下次存放做准备
End If

Loop Until i = 8

Label1.Caption = ""
For i = 0 To 7
Label1.Caption = Label1.Caption & Num(i) '将结果显示在标签中
Next i

End Sub

Private Sub Form_Load()
Randomize
For i = 0 To 7
InitNum(i) = i + 1 '1到8的数放在数组initnum中
Next i
End Sub

'程序各部分已经做了解释，不懂的可以给我留言

添加一个按钮Command1
然后添加如下代码，运行后点击按钮就出来了。我相信你很容易理解这代码。
Private Sub Command1_Click()
Dim i As Integer, s As String
For i = 1 To 8
Randomize ’初始化随机数发生器
s = s & Int(Rnd * 8) + 1 & ","
Next i
Print s
End Sub
兄弟，不好意思，我理解错了。给你补上。是要数组，代码如下
Private Sub Command1_Click()
Me.Cls
Dim i, j As Integer, S(1 To 8) As Integer '声名
Randomize '初始化随机数
i = 1
Do While (i <= 8) '这是Do循环，循环条件是i<=8
bo = False
S(i) = Int(Rnd * 8 + 1) '随机从8个数中取一个数，可能会取到重复的。
For j = 1 To i - 1 '检查先前有没有重复的
If S(j) = S(i) Then '找到重复的数，则跳到A位置
GoTo A '跳到A位置
End If
Next j

Print S(i) '如果上面一直没找到重复的数，则会执行打印
i = i + 1
A:
Loop
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer, tmp As Integer, a1(8) As Integer, flag As Integer
i = 1
Randomize
While (i <= 8)
tmp = Rnd() * 8
For j = 1 To 8
If a1(j) = tmp Then
flag = 0
Exit For
End If
flag = 1
Next
If flag = 1 Then
a1(i) = tmp
i = i + 1
End If
Wend
For i = 1 To 8
Print Str(a1(i))
Next
End Sub

num(1)=x1
num(2)=x2
num(3)=X3
num(4)=X4
num(5)=X5
num(6)=x6
num(7)=x4
num(8)=x8

for i=1 to 7
for j=i+1 to 7
if num(i)<num(j) then
x=num(j)
num(j)=num(i)
num(i)=x
end if
next
next
X1~8是你的随机8个数

Private Sub Command1_Click()
Dim myStr As String, myOutput As String, myTemp As String, a As Integer
myStr = "12345678"
Randomize (Timer)
Do Until myStr = ""
a = Int(Rnd * Len(myStr)) + 1
myTemp = Mid(myStr, a, 1)
myOutput = myOutput & myTemp
myStr = Replace(myStr, myTemp, "")
Loop
Print myOutput
End Sub

---

如何用VB编写一个将数字1到8随机排序的程序？视频