求助：用VB编写程序。

Question

某次考试需要6名监考人员，一共有10名教师，他们的编号是1-10.编写程序，抽取6名教师作为监考人员，并输出他们的编号。

Answer 1

自己建一个工程，把以下代码放进去即可。Private Sub Command1_Click()
    Dim MyValue As Integer, aa(5) As Integer, i As Integer, j As Integer
    Do While (i <= 5)
Re:
        MyValue = Int((10 * Rnd) + 1)
        For j = 0 To i
            If aa(j) = MyValue Then
                GoTo Re
            End If
        Next
        aa(i) = MyValue
        Me.Print "抽取的6名监考人员编号是：" & aa(i)
        i = i + 1
        DoEvents
    Loop
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
End Sub

Answer 2

作业不怕，怕的是气不死你老师！
Option ExplicitPrivate Sub Command1_Click()
  Dim L() As Byte, I As Long, T As Byte, R As Long, Ti As Long, Ri As Long
  L() = "01 02 03 04 05 06 07 08 09 10"
  Randomize Timer
  For I = 0 To 5
    R = Int(Rnd * 10): Ti = I * 6: Ri = R * 6
    T = L(Ti): L(Ti) = L(Ri): L(Ri) = T
    T = L(Ti + 2): L(Ti + 2) = L(Ri + 2): L(Ri + 2) = T
  Next
  ReDim Preserve L(35)
  Debug.Print CStr(L())
End Sub

Answer 3

Private Sub Command1_Click()
Me.Cls
  Dim a() As Integer
  ReDim a(1 To 10)
  For I = 1 To 10
  a(I) = I
  Next
Randomize
  For I = 1 To 6
  
  Dim teanum As Integer
  teanum = Int(Rnd * UBound(a)) + 1
  CurrentX = 50
  CurrentY = 50 + 200 * I
  Print a(teanum);
  
  For j = teanum To 10 - I
  If teanum = UBound(a) Then
  ReDim Preserve a(1 To 10 - I)
  Else
    a(j) = a(j + 1)
  End If
  Next
    ReDim Preserve a(1 To 10 - I)
  Next
  
End Sub我觉得我这个也可以哎，我是菜鸟，纯属接分啊，呵呵