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
|
Attribute VB_Name = "ModTask_01"
Option Explicit
Public Const strMyTitle As String = "Eric Cheung"
Sub Task_01()
Dim nTriArr() As Variant
Dim nPathSum As Integer, nSubMin As Integer
Dim nLoop As Integer, nCount As Integer, nStep As Integer
'' nTriArr = Array(1, 5, 3, 2, 3, 4, 7, 1, 0, 2, 6, 4, 5, 2, 8) '' Example 1
nTriArr = Array(5, 2, 3, 4, 1, 5, 0, 1, 2, 3, 7, 2, 4, 1, 9) '' Example 2
nCount = 0
nStep = 1
nSubMin = 10000
For nLoop = LBound(nTriArr) To UBound(nTriArr)
nCount = nCount + 1
If nTriArr(nLoop) < nSubMin Then
nSubMin = nTriArr(nLoop)
End If
If nStep = nCount Then
nPathSum = nPathSum + nSubMin
nCount = 0
nStep = nStep + 1
nSubMin = 10000
End If
Next nLoop
MsgBox nPathSum, vbOKOnly, strMyTitle
End Sub
|
