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.text" For Output As #1
Print #1, "Visual Basic 6.0", 666.88, Date, Ture
For i = 1 To 100
Print #1, a(i);
Next i
Write #1, "Visual Basic 6.0", 666.88, Date, Ture
Print #1, "Visual Basic 6.0", 666.88, Date, Ture
Write #1, "Visual Basic 6.0", 666.88, Date, Ture
Close #1
End Sub
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
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.text" For Output As #1
Print #1, "Visual Basic 6.0", 666.88, Date, Ture
For i = 1 To 100
Print #1, a(i);
Next i
Write #1, "Visual Basic 6.0", 666.88, Date, Ture
Print #1, "Visual Basic 6.0", 666.88, Date, Ture
Write #1, "Visual Basic 6.0", 666.88, Date, Ture
Close #1
End Sub