1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Attribute VB_Name = "ModTask_01"
Option Explicit
Public Const strMyTitle As String = "Eric Cheung"
Sub Task_01()
Dim nArrInt() As Variant
Dim strMsg As String
Dim nLoop As Integer, nElemCount As Integer
Dim nAMSum As Integer, nGMSum As Long
Dim dHMSum As Double
'' nArrInt = Array(1, 3, 5, 6, 9) '' Example 1:
'' nArrInt = Array(2, 4, 6, 8, 10) '' Example 2:
nArrInt = Array(1, 2, 3, 4, 5) '' Example 3:
nElemCount = UBound(nArrInt) - LBound(nArrInt) + 1
nAMSum = 0
nGMSum = 1
dHMSum = 0
For nLoop = LBound(nArrInt) To UBound(nArrInt)
nAMSum = nAMSum + nArrInt(nLoop)
nGMSum = nGMSum * nArrInt(nLoop)
dHMSum = dHMSum + 1 / nArrInt(nLoop)
Next nLoop
strMsg = "AM: " & Round(nAMSum / nElemCount, 1) _
& ", GM: " & Round(nGMSum ^ (1 / nElemCount), 1) _
& ", HM: " & Round(nElemCount / dHMSum, 1)
MsgBox strMsg, vbOKOnly, strMyTitle
End Sub
|
