VB常用算法（二）最值問(wèn)題

1、算法說(shuō)明
    在若干數(shù)中求值，一般先取第一個(gè)數(shù)為值的初值（即假設(shè)第一個(gè)數(shù)為值），然后，在循環(huán)體內(nèi)將每一個(gè)數(shù)與值比較，若該數(shù)大于值，將該數(shù)替換為值，直到循環(huán)結(jié)束。
    求最小值的方法類(lèi)同。
    求若干數(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
    解題技巧
    值、最小值、平均值類(lèi)型題目往往和數(shù)組放在一起考！有的不僅求這些值，還要對(duì)具有值或者最小值的行或列或者某個(gè)元素進(jìn)行處理，這時(shí)就要在記錄、最小值時(shí)，同時(shí)記錄該值所在的行號(hào)和列號(hào)。