VB求数组中最小值

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i%, min%, imin%, t%, n%, say$ : Dim a(0 To 6) As Integer
        a(0) = 8 : a(1) = 4 : a(2) = 6 : a(3) = 7 : a(4) = 9 : a(5) = 1 : a(6) = 4
        n = UBound(a) : min = a(0) : imin = 0

        For i = 0 To n
            If a(i) < min Then
                min = a(i)
                imin = i
            End If
        Next

        say = "" : say = say & "原数据："
        For i = 0 To n
            say = say & a(i) & " "
        Next
        say = say & Chr(13)

        t = a(0) : a(0) = min : a(imin) = t

        say = say & "交换后数据："
        For i = 0 To n
            say = say & a(i) & " "
        Next
        say = say & Chr(13) & "最小值：" & min & " ，最小值下标" & imin

        Label1.Text = say



    End Sub
End Class