vb 产生10个两位随机整数,用冒泡排序法对10个数按升序排序

Question

如题所述

Answer 1

Option Explicit
Private Sub Command1_Click()
Const n = 10
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, t As Integer, min As Integer
Randomize
For i = 1 To n
a(n) = Int(90 * Rnd) + 10
Next i
For i = 1 To n
Print a(i):
Next i
Print
For i = 1 To n - 1
t = 1
For j = i + 1 To n
If a(j) < a(t) Then t = j
Next j
If t <> 1 Then
min = a(i)
a(i) = a(t)
a(t) = min
End If
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
最佳答案
For i = 1 To n - 1
t = 1 // 把这个t=1换成t=i
For j = i + 1 To n
If a(j) < a(t) Then t = j
Next j
If t <> 1 Then //把这里改成 If t <> i Then
min = a(i)
a(i) = a(t)
a(t) = min
End If
Next i
For i = 1 To n
Print a(i);
Next i

我大致看了一下没什么大的问题,你把上面改了应该就可以了
我不会vb ，但仔细看能看懂，你得先确认它没什么语法问题
这个排出的结果是升序的，即从小到大的

百度上找到的。看看吧本回答被提问者采纳