设有如下程序：Option Base 1Private Sub Command1_Click（）Dim arr1Dim Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______For i = 2 To 8If arr1（i） Min Then______NextPrint "最小值是："; MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
设有如下程序：
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
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
相关考题：
设有如下程序Option Base 1Private Sub Command1_Click()Dim arrlDim Min As Integer，i As Integerarrl=Array(12，435，76，-24，78，54， 866， 43)Min=____For i=2 To 8If arrl(i)＜Min ThenNext iPrint “最小值是：”；MinEnd Sub以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
有如下程序，单击command1后窗体显示结果是( )OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=LBound( )ToUBound( )a(i)=i*a(i)NextiPrinti;UBound( )EndSubA.65B.625C.不确定D.程序出错
（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 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=arr1(1) For i=2 To 8 If arr1(1)Min Then Next i Print"最小值："；Min End Sud
下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。Option Base 1Private Sub Command1_Click()Dim arr1()Dim Min As Integer,i As IntegerArr1=Array(12,435,76,-24,78,54,866,43)Min=______For i=2 To 8If arr1(i)＜Min Then______Next iText1=MinEnd Sub
设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = arr1(1)For i=2 To 8If arr1(i)＜Min ThenNext iPrint "最小值是:"; MinEnd Sub
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1()Dim Min As Integer,i As Integerarr1＝Array(12,435,76,-24,78,54,866,43)Min＝______For i＝2 To 8If arr l(i)＜Min Then______Next iText1＝MinEnd Sub
设有以下程序：Option Base 1Private Sub Command1_Click( )Dim arr1 ,Max as Integerart1 = Array(12,435,76,24,78,54,866,43)【 】= arr1(1)For i = 1 To 8If arrl(i)＞Max Then【 】Next iPrint "最大值："； MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1＝Array(12,435,76,24,78,54,866,43)【 】＝arr1(1)For i＝1 To 8If arr1(i)＞Max Then【 】Next iPrint"最大值是:";MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
设有如下程序段A.AB.BC.CD.D