1、算法說(shuō)明
在若干數(shù)中求最大值,一般先取第一個(gè)數(shù)為最大值的初值(即假設(shè)第一個(gè)數(shù)為最大值),然后,在循環(huán)體內(nèi)將每一個(gè)數(shù)與最大值比較,若該數(shù)大于最大值,將該數(shù)替換為最大值,直到循環(huán)結(jié)束。
求最小值的方法類同。
求若干數(shù)平均值,實(shí)質(zhì)上就是先求和,再除以這些數(shù)的個(gè)數(shù)。
應(yīng)用舉例
隨機(jī)產(chǎn)生n個(gè)1-100(包括1和100)的數(shù),求它們的最大值、最小值和平均值。
Private Sub Command1_Click()
Dim n As Integer, i As Integer, min As Integer, max As Integer, aver As Single, s As Integer
n = Val(InputBox("輸入個(gè)數(shù):"))
s = Int(Rnd * 100) + 1
max = s
min = s
aver = s
Print "第1個(gè)數(shù)是:" & s
For i = 2 To n
s = Int(Rnd * 100) + 1
Print "第" & i & "個(gè)數(shù)是:" & s
If s > max Then max = s
If s < min Then min = s
aver = aver + s
Next i
aver = aver / n
Print "max="; max; "min="; min; "aver="; aver
End Sub
解題技巧
最大值、最小值、平均值類型題目往往和數(shù)組放在一起考!有的不僅求這些值,還要對(duì)具有最大值或者最小值的行或列或者某個(gè)元素進(jìn)行處理,這時(shí)就要在記錄最大、最小值時(shí),同時(shí)記錄該值所在的行號(hào)和列號(hào)。