排序

Dim a(1 To 4, 1 To 4) As Integer

 

 

 

Private Sub Command1_Click()

p = ""

For i = 1 To 9

For j = 1 To 10 - i

If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next

Next

For i = 1 To 10

p = p & Str(a(i)) & ","

Next

Label2.Caption = LTrim(Left(p, Len(p) - 1))

 

 

 

End Sub

 

Private Sub Form_Load()

Dim p As String

Randomize

p = ""

For i = 1 To 10

Do

x = Int(Rnd * 90) + 10

yes = 0

For j = 1 To i - 1

      If x = a(j) Then yes = 1: Exit For   '防止出现重复的数

    Next

Loop While yes = 1

a(i) = x

p = p & Str(a(i)) & ","

Next

Label1.Caption = LTrim(Left(p, Len(p) - 1))

Label2.Caption = ""

 

End Sub