顺序文件的选用

Dim x(10) As Integer

 

Private Sub Command1_Click()

For i = 1 To 10

Randomize

x(i) = 10 + Int(Rnd() * 90)

If i = 1 Then

Text1.Text = Text1.Text &Trim(Str(x(i)))

Else

Text1.Text = Text1.Text & ","& Trim(Str(x(i)))

End If

Next i

 

End Sub

 

Private Sub Command2_Click()

Open App.Path &"\random.text" For Output As #1

For i = 1 To 10

Print #1, x(i)

Next i

Close #1

 

 

End Sub

 

Private Sub Command3_Click()

Open App.Path &"\random.text" For Input As #1

For i = 1 To 10

Input #1, x(i)

Next i

Close #1

For i = 1 To 9

For j = i + 1 To 10

If x(i) < x(j) Then

t = x(i): x(i) = x(j): x(j) = t

End If

Next j

Next i

Open App.Path & "sort.text"For Output As #1

For k = 1 To 10

If k = 1 Then

Text2.Text = Text2.Text &Trim(Str(x(k)))

Else

Text2.Text = Text2.Text & ","& Trim(Str(x(k)))

End If

Print #1, x(k)

Next k

Close #1

End Sub

 

Private Sub Command4_Click()

End

End Sub