Question

VB的一个题，麻烦大家帮我下哈。。。

请设计如下图所示程序运行界面：
程序需要实现的功能为：
1、单击“产生随机数”按钮时，随机产生20个[20，80）之间的随机数，并显示在List1（左边的列表框）中。
2、当单击“从大到小排序”按钮时，将从大到小排序的数据显示在List2（右边的列表框）中。
3、当单击“写入文件”按钮时，将从大到小排序后的数据写入“M:\zg.txt”文件中。

Answer 1

Private Sub Command1_Click()
Randomize
For i = 0 To 19
List1.AddItem 20 + Int(60 * Rnd)
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
For i = 0 To List2.ListCount - 1
For j = i To List2.ListCount - 1
If List2.List(i) < List2.List(j) Then
p = List2.List(i)
List2.List(i) = List2.List(j)
List2.List(j) = p
End If
Next j
Next i

End Sub

Private Sub Command3_Click()
Dim fn As Integer
fn = FreeFile
Open "c:\zg.txt" For Output As fn
For i = 0 To List2.ListCount - 1
Print #fn, List2.List(i)
Next i
Close fn
End Sub

Private Sub Form_Load()
Command1.Caption = "产生随机数"
Command2.Caption = "从大到小排序"
Command3.Caption = "写入文件"
End Sub

Answer 2

大哥这个程序，就算法来说非常简单，但是写出代码，是要花一定的时间的。
[20，80）之间的随机数=20+int（60*rnd）
产生随机数按钮的代码：
for i=1 to 20
a（i)=20+int（60*rnd） 'a数组存放20个随机数
list1.add a(i)
next i

从大到小排序，这个可以用比较法
for i=1 to 19
for j=i+1 to 20
if a(i)<a(j) then swap(a(i),a(j))
next j
next i

写入文件，这个就非常简单了
dim s as string
s=""
for i=1 to 20
s=s+str(a(i))
next i
Open "M:\zg.txt" For Output As #1
Write #1, s
Close #1