用VB写 有一个数组，内放10个整数，要求找出最小的数及其下标，然后把它和数组中最前面的元素对换

Question

如题所述

Answer 1

Private Sub Command1_Click()
    Me.Cls
    Dim a(10) As Integer
    Dim t As Integer
    Dim n As Integer
    t = 200
    For i = 1 To 10
        a(i) = Int(Rnd * 90 + 10)
        If a(i) < t Then
            t = a(i)
            n = i
        End If
        Print a(i);
    Next i
    Print
    If n <> 1 Then
        a(n) = a(1)
        a(1) = t
    End If
    For i = 1 To 10
        Print a(i);
    Next i
    Print
End Sub