在窗体里添加label1和按钮command1,然后粘贴以下代码。以下代码实现了1-8八个数随机不重复排序。如果数字可以重复的话,更简单些。Dim flag(8) As Integer, InitNum(8) As Integer, Num(8) As IntegerDim i As Integer, j As IntegerPrivate 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 iEnd SubPrivate Sub Form_Load() Randomize For i = 0 To 7 InitNum(i) = i + 1 Next iEnd Sub