编程
随机产生10个10~100的整数，然后按从大到小顺序输出结果。
VB编程谁帮帮我啊！
答案:2 悬赏:40 手机版
解决时间 2021-08-18 20:54
- 提问者网友：喧嚣尘世
- 2021-08-18 00:10
最佳答案
- 五星知识达人网友：青尢
- 2021-08-18 01:46
Private Sub Command1_Click()
Dim a(9) As Integer
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
Next
For i = 0 To 8
For j = i + 1 To 9
If a(i) > a(j) Then
tmp = a(j): a(j) = a(i): a(i) = tmp
End If
Next
Next
For i = 0 To 9
Print a(i)
Next
End Sub
Dim a(9) As Integer
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 90 + 10)
Next
For i = 0 To 8
For j = i + 1 To 9
If a(i) > a(j) Then
tmp = a(j): a(j) = a(i): a(i) = tmp
End If
Next
Next
For i = 0 To 9
Print a(i)
Next
End Sub
全部回答
- 1楼网友：走死在岁月里
- 2021-08-18 03:06
用冒泡排序法
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯