Question

求一个vb程序,按一下按钮,将1到35随机排序并分成7组,每组5个数,并在5个lab

求一个vb程序,按一下按钮,将1到35随机排序并分成7组,每组5个数,并在5个label中显示出来

Answer 1

Private Sub Command1_Click()

  For i = 0 To 6

    Label1(i).Caption = ""

  Next i

  Randomize (Timer)

  Dim a(34) As Integer

  For i = 0 To 34

10    a(i) = Int(Rnd(i + 1) * 35)

    For j = 0 To i - 1

      If a(i) = a(j) Then GoTo 10

    Next j

  Next i

  For i = 0 To 34

    Label1(i \ 5).Caption = Label1(i \ 5) + Format(CStr(a(i)) + 1, "00") + Space(1)

  Next i

End Sub