跪求赐教

Question

本人有M个题，想随机可以出n个,m≥n，谁给出个注意，可以的话加我QQ52569324  谢谢了

Answer 1

仅供参考Private Sub InitRH(n As Long)
Dim i As Long
Dim a As Long
Dim b As Long
Dim t As Long
    For i = 1 To TTM
        RH(i) = i
    Next
    For i = TTM To 2 Step -1
        a = i
        b = Int(Rnd * i + 1)
        If a <> b Then
            t = RH(a): RH(a) = RH(b): RH(b) = t
        End If
    Next
    For i = 1 To TTM
        Debug.Print i; "r"; RH(i)
    Next
End Sub