[填空題] 設(shè)有如下程序

Option Base 1

Private Sub Command1_Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12，435，76，-24，78，54， 866， 43)

Min=____

For i=2 To 8

If arrl(i)＜Min Then

Next i

Print “最小值是：”；Min

End Sub

以上程序的功能是：用Arcay函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的最小值。請(qǐng)?zhí)羁铡?/p>正確答案：

arrl(1)或12 Min=arrl(i)

本題考查考生對(duì)簡(jiǎn)單算法的掌握。題目要求找出數(shù)組的最小值，利用一個(gè)For循環(huán)和條件語句來實(shí)現(xiàn)。首先應(yīng)該給Min賦值，這里注意For循環(huán)是從i=2 To 8，并沒有包含i=1，因此這里的初值應(yīng)該是arrl(1)，也就是12。然后從數(shù)組的第2個(gè)元素開始和Min做比較，如果小于Min則應(yīng)該將兩者進(jìn)行交換，即Min=arrl(i)。這樣Min總是做過比較的元素的最小值，循環(huán)結(jié)束后，它也是整個(gè)數(shù)組的最小值。如果題目的For循環(huán)是Fori=1 To 8，那么 Min的初值可以是任意一個(gè)大于arrl最小值的數(shù)，而不一定是arr(1)。