1613122602156_01

Private Sub Command1_Click()

    Cls

    Dim n As Integer
    n = Val(InputBox("請輸入多少個數值"))

    Dim min As Integer
    min = Val(InputBox("請輸入數值"))

    Dim i As Integer
    For i = 2 To n

        num = Val(InputBox("請輸入數值"))

        If n < min Then

            min = num

        End If

    Next i

    Print min

End Sub