下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim arr1()
Dim Min As Integer,i As Integer
arr1=Array(12,435,76,-24,78,54,866,43)
Min=______
For i=2 To 8
If arr1(i)<Min Then______
Next i
Textl=Min
End Sub