Question

VB题，求大神！！！已知,在窗体上有三个命令按钮和两个文本框

已知,在窗体上有三个命令按钮和两个文本框,并且在D盘根目录下已有顺序文件"abc.txt"(自己建立文本文件,输入几个任意数字)程序要求如下
1）click command1 从文件中读出数字并显示在text1中
2）click command2 数字按从小到大的顺序排序，并且把排好的数字写入另一个文件“aaa.txt”中

Answer 1

'前提，你的ABC.TXT文档中的都是数字，而且每一行只有一个数字
dim temNum() as single
dim i,j as integer
private command1_click()
'先看看有多少行数据
open d:\abc.txt for input as #1
do while not eof(1)

i=i+1

loop

close #1
‘重定义数组
redim temNum(i)

'再读取数据到数组
open d:\abc.txt for intput as #2
do while not eof(2)

i=i+1

line input #2，temNum(i)

loop

close #1
’将这些数据排序，插入法
dim temp as single

For i=2 To ubound(temNum())
temp=temNum(i)
j=i-1
Do Until temp<a(j) '第i个元素与第j个元素进行比较
atemNum(j+1)=temNum(j)
j=j-1
Loop
temNum(j+1)=temp
Next i
end sub

private command2_click()
‘写文件

open d:\aaa.txt for output as #3

for i= 1 to ubound(temNum())
print #3,temNum(i)

next i

close #3

end sub