vb()

Private Sub Command1_Click()
Cls
Dim a(1 To 100) As Long
Dim i As Long
Dim j As Long
Dim t As Long

For i = 1 To 100
    a(i) = 10 + Rnd() * 100
Next i
For i = 1 To 100
    Print a(i);
Next i
Print
For i = 1 To 99
    For j = i + 1 To 100
        If a(i) < a(j) Then
            t = a(i): a(i) = a(j): a(j) = t
        End If
    Next j
Next i
For i = 1 To 100
    Print a(i);
Next i

Open "D:\22\01.txt" For Output As #1
Print #1, "Visual Basic 6.0", 666.88, Date, True
For i = 1 To 100
    Print #1, a(i);
Next i

Write #1, "Visual Basic 6.0", 666.88, Date, True
Print #1, "Visual Basic 6.0", 666.88, Date; True
Write #1, "Visual Basic 6.0", 666.88, Date; True
Close #1
End Sub