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

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

2个回答

第一个按钮:
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

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问