[填空题] 设有如下程序：Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As Integera

21 查阅

[填空题] 设有如下程序：Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As Integerarrl=Array(12，435，76，-24，78，54，866，43) Min= 【12】 For i=2 TO 8If arr1(i)＜Min Then 【13】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。

参考答案:

[12]srr1(0)

[13] Min=arr1(i) 此题的功能是计算数组中的最小值，首先，把数组的第一个元素给Nin，然后分别和剩下的元素进行比较，如果哪一个元素比Min小，就交换，把这个元素的值给Min，直到最后。所以[12]应该是把数组的第一个元素给Min，即Min=arrl(0)。[13]是把和 Min比较后较小的值赋给Min，所以为Min=arr1(i)。

计算机考试