编写一过程,以数组作为参数,实现一维的排序(用VB写)

[复制链接]
查看11 | 回复1 | 2013-7-6 23:02:18 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()
Dim a(9) As Integer
Dim i As Integer
For i = 0 To 9
a(i) = Rnd() * 100
Print a(i);
Next
Print
Sort a, 10
For i = 0 To 9
Print a(i);
Next
PrintEnd SubPrivate Sub Sort(a() As Integer, n As Integer)
Dim i As Integer...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行