在界面上建个按钮，叫cmdDo。 建标签的控件数组，名称是lblSeat，Index是0～30。
代码： Private Sub cmdDo_Click() Dim num(30) As Integer '学号 Dim i As Integer, temp As Integer '给学号赋值，现在就用的是1、2、……、31 '定义成Integer是因为写循环比较方便，也可定成String '可以按你们班的实际学号情况赋值 For i = 0 To 30 num(i) = i + 1 Next Dim a Randomize Timer '按座位号循环，为指定的座位抽一个学号 For i = 30 To 0 Step -1 a = Rnd lblSeat(i) = num(Int(a * (i + 1))) '把用过的学号换到数组的后面 temp = num(i) num(i) = num(Int(a * (i + 1))) num(Int(a * (i + 1))) = temp Next End Sub 界面比较简单，仅供参考。
答：这个用excel可以办到，将名单列出，然后另选一列，输入随机函数，按生成值进行排序，按该顺序排座位号，完成详情>>
