Office中國論壇/Access中國論壇

標題: 【新手進階】之二：基礎算法（二） [打印本頁]

作者: roych 時間: 2015-1-26 17:02
標題: 【新手進階】之二：基礎算法（二）

通過前面的學習，我們知道，數(shù)組是按一定順序（序號）排列的元素集合。例如s(0)之后就是s(1),s(1)之后是s(2)……等等。那么，由此看來，根據(jù)序號，就可以對它進行一些統(tǒng)計量的計算了。

例如，設置一個變量，當這個數(shù)組的元素符合某個條件時，這個變量就累加1，那么當遍歷元素之后，這個變量就是符合這個條件的元素個數(shù)了。這就是“計數(shù)”；求和也類似，不同的是，不是累加1，而是把數(shù)組的值進行累加；至于平均值嘛，把總和除以個數(shù)不就是了？^_^

最大值、最小值怎么辦？這個也簡單。就拿最大值來說吧，我們可以設置一個遠遠小于數(shù)組中所有元素的值（想一想：為什么不是遠遠比它們大的值？），后然后跟數(shù)組中的值進行比較，如果比它大，就替換掉，否則就保留起來；那么最后得到的這個值就是最大值了。

這里只列出求和的算法，其它算法由大家思考吧：

定義一個變量lngSum，初始化為0。
定義數(shù)組元素序號變量i，初始化為0。
當i<數(shù)組元素個數(shù)時，重復執(zhí)行4、5。
當元素＞0時，計算lngSum+arr(i)的值，并保存到lngSum中。
i加1。

Function getAvg(ByRef arr()) As String
Dim lngCnt As Long
Dim lngSum As Long
Dim dblAvg As Double
Dim i As Long
Dim lngMax As Long
Dim lngMin As Long
'這里用長整型的范圍來設置，實際操作中只需要設置一個
lngMax = -2147483647
lngMin = 2147483647
For i = LBound(arr) To UBound(arr)
If arr(i) > 0 Then
lngCnt = lngCnt + 1
lngSum = lngSum + arr(i)
lngMax = arr(i)
Else
lngMin = arr(i)
End If
Next
getAvg = "符合條件的個數(shù)：" & lngCnt & vbCrLf & "合計：" & lngSum _
& vbCrLf & "平均：" & lngSum / lngCnt & vbCrLf & "最大值：" & lngMax & vbCrLf & "最小值：" & lngMin
End Function

復制代碼

可以用以下代碼進行測試：

Sub test()
Dim myarr()
myarr = Array(1, 2, 3, 4, -10)
Msgbox getAvg(myarr)
End Sub

復制代碼

需要注意的是：1、數(shù)組變量只能是傳址過程（ByRef），因此測試時不要指定變量類型（例如Dim myarr() As Long），否則會出錯。2、也不能直接輸入數(shù)組【例如：Msgbox getAvg(Array(1, 2, 3, 4, -10))】，而是要先定義數(shù)組，再進行輸入。

作者: 盜夢 時間: 2015-1-26 17:04
可以參考快速排序法，弄一個去最大值最小值的方法

作者: roych 時間: 2015-1-26 17:13

盜夢發(fā)表于 2015-1-26 17:04
可以參考快速排序法，弄一個去最大值最小值的方法

這個后面會具體說的。
由于代碼部分是需要我親手寫的，所以可能會慢一些，別急哈。

作者: todaynew 時間: 2015-1-26 17:13
做教程之間的鏈接

作者: 盜夢 時間: 2015-1-26 17:16

roych 發(fā)表于 2015-1-26 17:13
這個后面會具體說的。
由于代碼部分是需要我親手寫的，所以可能會慢一些，別急哈。

哈哈，你的舞臺，看你表演

歡迎光臨 Office中國論壇/Access中國論壇 (http://www.mzhfr.cn/)