vb中将二维数组中每一列的元素从小到大排序
答案:2 悬赏:60 手机版
解决时间 2021-02-18 04:23
- 提问者网友：鼻尖触碰
- 2021-02-17 17:11
vb中将二维数组中每一列的元素从小到大排序
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-02-17 18:29
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Picture1.Cls
Picture2.Cls
Randomize
'产生10个二位随机整数，并在Picture1输出
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Picture1.Print a(i);
Next
'选择法排序
For i = 1 To 9
j = i
For k = i + 1 To 10
If a(j) > a(k) Then j = k
Next
If i <> j Then
k = a(i)
a(i) = a(j)
a(j) = k
End If
Next
'在Picture2输出排序后的数组
For i = 1 To 10
Picture2.Print a(i);
Next
End Sub
Dim a(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Picture1.Cls
Picture2.Cls
Randomize
'产生10个二位随机整数，并在Picture1输出
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Picture1.Print a(i);
Next
'选择法排序
For i = 1 To 9
j = i
For k = i + 1 To 10
If a(j) > a(k) Then j = k
Next
If i <> j Then
k = a(i)
a(i) = a(j)
a(j) = k
End If
Next
'在Picture2输出排序后的数组
For i = 1 To 10
Picture2.Print a(i);
Next
End Sub
全部回答
- 1楼网友：逐風
- 2021-02-17 20:03
可以私聊我~
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯