求助！！！！！！！！！！！

•Private Sub Form_click()
Dim a(100) As Integer, b%, c(100) As Integer, d%, f%, g%, e$
•For b = 1 To 100 •a(b) = Int(((99 - 10) * Rnd) + 10)
•Next
•Open "c:\num.txt" For Output As #1
•For b = 1 To 100
•Print #1, a(b); ",";
•Next
•Close #1
•Open "c:\num.txt" For Input As #1
•For d = 1 To 100
•Input #1, e
•c(d) = Val(e)
•Next
•Close #1
•For d = 1 To 99
• For f = 1 To 100 - d
• If c(f) > c(f + 1) Then
• g = c(f): c(f) = c(f + 1): c(f + 1) = g
• End If
• Next f
•Next d
•For d = 1 To 100
•Print c(d);
•If d Mod 5 = 0 Then
•Print
•End If
•Next
•End Sub