问题描述

VB6.0计算整数排序的相关问题

设计一个如图所示的程序。单击“随机产生10个整数”菜单时，随机产生10个整数并显示在列表框List1中；单击“排序”菜单时，将产生的10个随机数按从大到小的顺序显示在列表框List2中。

解决方案

第一个按钮：
for i = 1 to 10
list1.add int(rnd * 100) '产生0~100的随机数
next
第二个按钮：
for i = 1 to 10
list2.add list1.list(i)
next
list2.sorted = true

解决方案二：

Option Explicit
Private Sub Command1_Click()
''随机产生10个整数---100~999
''注意List1需要在设计界面设置sorted=true
Dim i As Integer
List1.Clear
With List1
For i = 1 To 10
.AddItem Int(Rnd * 1000) + 100
Next
End With
End Sub
Private Sub Command2_Click()
Dim i As Integer
List2.Clear
For i = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.List(i)
Next
End Sub