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

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

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