A-A+
设有如下程序： Option Base 1 Pfivme Sub Command1_Clic
问题详情
设有如下程序： Option Base 1 Pfivme Sub Command1_Click() Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min=【 】 For i=2 TO 8 If arr1(i)＜Min Then【 】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：srr1(0) Min=arr1(i)
此题的功能是计算数组中的最小值，首先，把数组的第一个元素给Nin，然后分别和剩下的元素进行比较，如果哪一个元素比Min小，就交换，把这个元素的值给Min，直到最后。所以[12]应该是把数组的第一个元素给Min，即Min=arrl(0)。[13]是把和Min比较后较小的值赋给Min，所以为Min=arr1(i)。
