82问答网 > vb程序题：分别用冒泡排序法实现有N个元素数组的排序。N由键盘输入，数组元素的值在1~200之间，随机产生

vb程序题：分别用冒泡排序法实现有N个元素数组的排序。N由键盘输入，数组元素的值在1~200之间，随机产生

2025-04-05 15:41:28

推荐回答（1个）

回答1：

Private Sub Form_Click()
Dim a(), i%, imain%, j%, t%
n = Val(InputBox(""))
ReDim a(n - 1)
For i = 0 To n - 1
a(i) = Int(Rnd * 201 + 1)
Next
For i = 0 To n - 2 '下标 -1 个
For j = 0 To n - 2 - i '下标 -1-i 个
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 0 To n - 1
Print a(i)
Next
End Sub