VB求助！编程，输入10个数后，将这10个数按升序排列后写入文本文件，并显示排序结果

来源：百度知道 编辑：UC知道 时间：2024/06/28 10:59:47
VB求助！编程，输入10个数后，将这10个数按升序排列后写入文本文件，并显示排序结果（要求自定义一个SUB过程来实现排序）。要求：单击“输入”按钮，输入10个数到数组（模块级）；单击“排序、保存”按钮，调用自定义过程对数组排序，并存入文本文件；单击“显示”按钮，从文本文件读入各个数，并顺序显示在列表框中。
根本不会！请达人帮助！！！！！要控件摆放步骤及完整代码。
保证能运行的！！！
谢谢达人！！！！！！！！！！！！

Dim i, j, intmin As Integer, n As Integer
Dim sngsq(), sngt As Single '输入原始数据
n = Val(InputBox("请输入排序的个数N的值"))
ReDim sngsq(n) '重新定义数组
Print "排序前"
For i = 1 To n
MsgBox "请输入第" & Str(i) & "个数:"
sngsq(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Print sngsq(i);
Next
Print
Print "排序后"
'排序
For i = 1 To n - 1
intmin = i '对第i遍排序，初始假定第i个元素最小
For j = i + 1 To n '找出最小的元素序号
If sngsq(j) < sngsq(intmin) Then intmin = j
Next j
'将找出的最小元素与第i个元素交换
sngt = sngsq(i)
sngsq(i) = sngsq(intmin)
sngsq(intmin) = sngt
Next i
'打印输出
For i = 1 To n
Print sngsq(i); '不换行输出
Next i
输出后保存就可以了