填空题 设有如下程序:
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= 【12】
For i=2 TO 8
If arr1(i)<Min Then 【13】
Next i
Print“最小值是:”;Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的小值。请填空。

  • 1、
【正确答案】 1、{{*HTML*}}[12]srr1(0)
[13] Min=arr1(i)    
【答案解析】[解析] 此题的功能是计算数组中的最小值,首先,把数组的第一个元素给Nin,然后分别和剩下的元素进行比较,如果哪一个元素比Min小,就交换,把这个元素的值给Min,直到最后。所以[12]应该是把数组的第一个元素给Min,即Min=arrl(0)。[13]是把和 Min比较后较小的值赋给Min,所以为Min=arr1(i)。