Dim NumArray(1 To 7) As Integer′通用中定义 Private Sub Command1_Click() Dim i, j, N As Integer For i = 1 To 7 NumArray(i) = 0 Next i Randomize NumArray(1) = Fix(1 ＋ 32 ＊ (Rnd())) j = 1 Do N = Fix(1 ＋ 32 ＊ (Rnd())) For i = 1 To j If N = NumArray(i) Then Exit For ′重复时 ElseIf i = j Then ′未重复时 NumArray(i ＋ 1) = N j = j ＋ 1 Exit For End If Next i Loop While j < 7 PopSort ′升序排列 For i = 1 To 7 Text1(i － 1).Text = NumArray(i) Next i End Sub Private Sub PopSort() ′气泡排序法 Dim i, j, Temp As Integer For i = 7 To 2 Step －1 For j = 7 － 1 To 1 Step －1 If i >= 7 － j ＋ 1 Then If NumArray(j ＋ 1) < NumArray(j) Then Temp = NumArray(j) NumArray(j) = NumArray(j ＋ 1) NumArray(j ＋ 1) = Temp End If End If Next j Next i End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
