随机数组

Option ExplicitDim cnt As IntegerDim numarr() As IntegerPrivate Sub Form_Load()cmdprint.Enabled = False cnt = 5 ReDim numarr(4) Dim i As Integer For i = 0 To 4 numarr(i) = Int(Rnd * 49 + 1) Next i txtrnd.Text = numarr(0) For i = 1 To cnt - 1 txtrnd.Text = txtrnd.Text & "," & numarr(i) Next