VB：随机产生10个两位数，按大到小递减次序排列，并将排序结果显示出来！要求编写子程序
答案:2 悬赏:0
解决时间 2021-12-20 06:46
- 提问者网友：敏感魔鬼
- 2021-12-19 20:57
VB：随机产生10个两位数，按大到小递减次序排列，并将排序结果显示出来！要求编写子程序
最佳答案
- 二级知识专家网友：青灯壁纸妹
- 2021-12-19 21:34
Private Sub Sorting(a() As Integer)
Dim i As Integer, j As Integer, tmp As Integer
For i = 0 To 8
For j = 8 To i Step -1
If a(j) < a(j + 1) Then
tmp = a(j)
a(j) = a(j + 1)
a(j + 1) = tmp
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer
For i = 0 To 9
Randomize
a(i) = Int(Rnd * 90 + 10)
Next i
Sorting a
Print
For i = 0 To 9
Print a(i);
Next i
End Sub
Dim i As Integer, j As Integer, tmp As Integer
For i = 0 To 8
For j = 8 To i Step -1
If a(j) < a(j + 1) Then
tmp = a(j)
a(j) = a(j + 1)
a(j + 1) = tmp
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer
For i = 0 To 9
Randomize
a(i) = Int(Rnd * 90 + 10)
Next i
Sorting a
For i = 0 To 9
Print a(i);
Next i
End Sub
全部回答
- 1楼网友：猖狂的痴情人
- 2021-12-19 21:50
dim a(10) as integer
private sub getarray()
dim i as integer
for i = 0 to 10
a(i) = int(rnd * 11)
next i
end sub
private sub pntarray(a() as integer)
dim i as integer, b as variant
cls
b = a
for i = 0 to 10
print b(i)
next i
end sub
private sub command1_click()
call getarray
call pntarray(a())
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯