为什么还会产生重复的数字

算法错误
            Do While c(i) = c(j)
               c(i) = Int(Rnd * Total) + 1
            Loop
这只能保证当前c(j)<>c(i)，却不能保证c(i)也能不等于已经比较了的c(j),即不能保证c(i)<>c(j-1)。主要是do循环和for循环用反了，正确代码如下（验证时用text1=text2,即全班全部交作业来验证）：
Private Sub Command1_Click()
    Dim Total As Integer, Sel As Integer, c()  As Integer, f As Boolean
    Dim i As Integer, j As Integer, Temp As Integer
    Total = Val(Text1.Text)
    Sel = Val(Text2.Text)
    ReDim c(1 To Sel)
    For i = 1 To Sel
      Do
        c(i) = Int(Rnd * Total) + 1
        f = False
        For j = i - 1 To 1 Step -1
          If c(i) = c(j) Then
            f = True
            Exit For
          End If
        Next
      Loop While f
    Next
    For i = 1 To (Sel - 1)
        For j = (i + 1) To Sel
            If c(i) > c(j) Then
                Temp = c(i)
                c(i) = c(j)
                c(j) = Temp
            End If
        Next j
    Next i
    Text3.Text = "以下学号的同学需要交作业："
    For i = 1 To Sel
        Text3.Text = Text3.Text & vbCrLf & Format(c(i), "00")
    Next i
End Sub