文件名称：随机数组
文件大小：24KB
文件格式：EXE
更新时间：2009-03-15 02:52:39
多媒体技术 控件 源码 资源
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 i cmdprint.Enabled = FalseEnd SubPrivate Sub cmdcreate_click() Dim i As Integer cnt = Val(txtnumber.Text) ReDim numarr(cnt) For i = 0 To cnt - 1 numarr(i) = Int(Rnd * 49 + 1) Next i cmdprint.Enabled = TrueEnd SubPrivate Sub cmdprint_click() Dim i As Integer txtrnd.Text = numarr(i) For i = 1 To cnt - 1 txtrnd.Text = txtrnd.Text & "," & numarr(i) Next iEnd SubPrivate Sub cmdarr_click() Dim i, j, temp As Integer For i = 0 To 3 For j = i + 1 To 4 If numarr(i) < numarr(j) Then temp = numarr(i) numarr(i) = numarr(j) numarr(j) = temp End If Next j Next i i = 0 txtoutput.Text = numarr(0) For i = 1 To cnt - 1 txtoutput.Text = txtoutput.Text & "," & numarr(i) Next iEnd Sub