vb编程数组问题

给整型数组a（1To10）赋10－80之间的随机值，并输出，并把数组中的元素按降序排序输出（用两种方法）

追问：来自手机问问不会还乱占座，害我没答案就揍你

答案：Option Explicit
Dim a(1 To 10) As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer, temp As String, temp1 As Integer
    Print "排序前的数据："
    For i = 1 To 10
        temp = temp & a(i) & Space(4)
    Next i
    Print temp
    temp = ""
    Print "选择排序："
    For i = 1 To 9
        For j = i + 1 To 10
            If a(i) < a(j) Then
                temp1 = a(i)
                a(i) = a(j)
                a(j) = temp1
            End If
        Next j
    Next i
    For i = 1 To 10
        temp = temp & a(i) & Space(4)
    Next i
    Print temp
    Print "冒泡排序："
    temp = ""
    For i = 1 To 9
        For j = 1 To 9 - i
            If a(j) < a(j + 1) Then
                temp1 = a(j)
                a(j) = a(j + 1)
                a(j + 1) = temp1
            End If
        Next j
    Next i
    For i = 1 To 10
        temp = temp & a(i) & Space(4)
    Next i
    Print temp
End Sub
Private Sub Form_Load()
Dim i As Integer
Randomize
For i = 1 To 10
    a(i) = Int(Rnd * 71 + 10)
Next i
End Sub
占座，看谁给哈，加油~~

上一个：vb编程小问题
下一个：关于VB编程题