VB 读写文件的问题 如何把读入的数放进数组？

来源：百度知道 编辑：UC知道 时间：2024/06/30 07:49:03
从输入文件in.txt中顺序读入10个数，存放到数组中，将数据用冒泡法排序，排序后的结果显示在列表框中，最后将排序后的结果输出到文件out.txt中。
另添加一个“删除”按钮，在列表框中选择某项即可删除。

界面为：一个列表框；四个命令按钮，分别为“排序”、“保存”、“结束”、“删除”。

谢谢！

Dim x(9) As Single

Private Sub 排序_Click()
For i = 0 To 8
For j = 1 To 9
If x(i) > x(j) Then
t = x(i)
x(i) = x(j)
x(j) = t
End If
Next j
List1.AddItem x(i)
Next i
End Sub

Private Sub 保存_Click()
Open "out.txt" For Output As #1 '路径自己解决
For i = 0 To 9
Print #1, x(i)
Next i
Close #1
End Sub

Private Sub 删除_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then List1.RemoveItem i
Next i
End Sub

Private Sub 结束_Click()
End
End Sub

Private Sub Form_Load()
Open "in.txt" For Input As #1 '路径自己解决
For i = 0 To 9
Input #1, x(i)
Print x(i)'这行可以取消
Next i
Close #1
End Sub