2 qq 24463503 qq_24463503 于 2014.12.12 22:01 提问

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

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

2个回答

caozhy
caozhy   Ds   Rxr 2014.12.13 00:05

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

Topc008
Topc008   Rxr 2014.12.13 14:10

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
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!