求用VB排一个随机座位生成器

Question

我们班六十二人，考试需要每次随机排座位。要求是八乘八的座位，最后一排坐六人。学生号用1到62表示。最后输出形式用文本框输出。每点击一次变化一次座位表。请高手赐教帮忙，谢谢

Answer 1

思路：还是产生随机序列的问题．
1．建立一个有62个元素的一维数组．
2．产生62个(1－－62之间）的随机数，每产生1个要与已经存在的不重复，就存放到数组里．
3．根据数组下标的序号按照8行输出．
1个按钮，1个文本框，代码如下：
Private Sub Command1_Click()
Dim I As Integer
Dim n As Integer
Dim x As Integer
Dim YesNo As Boolean
Dim D(1 To 62) As Integer
Dim MyStr As String

Randomize
n = 0
Do While n < 62
x = Int((62 * Rnd) + 1) ' 生成 1 到 32 之间的随机数值。
YesNo = False
For I = 1 To n
If x = D(I) Then
YesNo = True
Exit For
End If
Next I
If Not YesNo Then
n = n + 1
D(n) = x
End If
Loop

MyStr = ""
For I = 1 To 62
If D(I) < 10 Then
MyStr = MyStr & " " & D(I) & " "
Else
MyStr = MyStr & D(I) & " "
End If
If I Mod 8 = 0 Then
MyStr = MyStr & Chr(13) & Chr(10) & Chr(13) & Chr(10)
End If
Next I
Text1.Text = MyStr

End Sub