Input#1,a(i)'逐个读取数据

str=str+CStr(a(i))+""'将数组写入字符串中

Next i

Close#1

Text1.Text=str'将字符串显示在Text1中

End Sub

Private Sub Command2_Click()

Dim tex As String

For i=1 To num'升序排列

temp=a(i)

For j=1 To i

If a(j)>temp Then'读取的数据比原位置的数据大

For k=i To j+1 Step-1

a(k)=a(k-1)'数据向后偏移一个

Next k

a(j)=temp

Exit For

End If

Next j

Next i

tex=""

For i=1 To 40

tex=tex+CStr(a(i))+""

Next i

Text1.Text=tex'在text1中显示排序后的结果

Open"App.Path&＼out5.txt"For Output As#2

Print#2,Text1.Text

Close#1

End Sub

单击按钮运行程序，并按要求保存。