練習 1 - 找最小值

問題敘述 
給你一些數，
請幫忙找出這些數中的最小值。


輸入說明 
輸入共有兩列
第一列為一個正整數 N。(N <= 1000000)
第二列共有 N 個正整數，相鄰正整數之間以一個空白分隔，數值不超過 1000000000。


輸出說明 
請輸出第二列輸入中的 N 個正整數之最小值


範例輸入 
5
6 3 4 17 9


範例輸出 
3


(VB6 解題範例 ) Ex-1.rar :  https://dl.dropboxusercontent.com/u/19927831/KH-code/AlgoVB/Ex-1.rar
--------------------------------------------------------------------------------------------------------------------------------------

Private Sub Form_Activate()

Dim i As Integer
Dim B() As String
Dim bn(100) As Integer
Dim ipstr1, ipstr2, opstr As String
Dim n, s As Variant

ipstr1 = "5"
ipstr2 = "6 3 4 17 9"
n = CDec(ipstr1)
B = Split(ipstr2, " ")


For i = 0 To n - 1
  bn(i) = CDec(B(i))
  Print bn(i);
Next i
Print
s = B(0)

  For i = 1 To n - 1
    If bn(i) < s Then
      s = bn(i)
    End If
  Next i

Print s

End Sub