UC知道VB编程题 亟待解决 拜托大家了
来源：百度知道 编辑：UC知道 时间：2024/05/07 19:25:40
请帮帮忙，今晚急用，谢谢大家了 ！题目如下：
例9.5* 编写程序，读取文件a.txt中的10个成绩数据，输出这10个数据打印在窗体，对这10个数据排序后，写入到文件b.txt中。 (作业)
假如a.txt文件的内容如下：
56 76 98 45 87 77 69 83 68 85
要求b.txt文件内容为：
98 87 85 83 77 76 69 68 56 45
请写出具体的编程过程和代码，再次谢谢
不好意思，这个我觉得你们的太专业了，我们就是大学的VB基础课程，能不能简单些，有些东西我们没学过
例9.5* 编写程序，读取文件a.txt中的10个成绩数据，输出这10个数据打印在窗体，对这10个数据排序后，写入到文件b.txt中。 (作业)
假如a.txt文件的内容如下：
56 76 98 45 87 77 69 83 68 85
要求b.txt文件内容为：
98 87 85 83 77 76 69 68 56 45
请写出具体的编程过程和代码，再次谢谢
不好意思，这个我觉得你们的太专业了，我们就是大学的VB基础课程，能不能简单些，有些东西我们没学过
新建一个窗体,写入如下代码...
记得建一个a.txt放在程序目录下
Option Explicit
Private Sub Form_Load()
Dim strIn As String
Dim arrIn
'检查a.txt是否存在
If Len(Dir(App.Path & "\a.txt")) < 1 Then
MsgBox App.Path & "\a.txt" & " 不存在!"
Exit Sub
End If
'读取文件内容
Open App.Path & "\a.txt" For Input As #1
Line Input #1, strIn
Close #1
'以空格为依据拆分成数组
arrIn = Split(Trim(strIn), " ")
'冒泡法对数组进行降序排列
Dim Index
&nbs