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

Question

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

Answer 1

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