數塔問題。一組數字構成如圖a所示的數塔，從數塔頂層出發，每個結點可以選擇移動至左下方或右下方結點，一直走到塔底為1條路徑。求從數塔頂層到塔底各條路徑上數字和的最大值。解決此問題可采用自底至頂分析的方法。如圖a所示的數塔中，先從第3層開始分析：如果路徑經過第3層的第1個數字12，那么從12到尾結點的路徑上數字之和的最大值是當前結點值加上該結點左下方、右下方結點中的較大值，記作f（3，1）=12+14：同理，f（3，2）=7+15，f（3，3）=26+15；再分析第2層，計算f（2，1）、f（2，2）；最后計算出第一層f（1，1），即為所求結果。
（1）如圖a所示數塔各條路徑上的數字和的最大值為

58

58

。

（2）編寫VB程序，運行界面如圖b所示，程序代碼如下，請在橫線處填入合適的代碼，將程序補充完整。
Const n=5
Dim a（1 To n^2）As Integer’數組a存儲數塔數據，存儲結構如圖c所示
Dim f（1 To n^2）As Integer’數組f存儲從第i層第J個數到底層尾結點的最大數字之和，其存儲結構與數組a一樣
Private Sub Command l_Click

（　?。?/div>

（　?。?/div>
’生成數塔，將數據存入a數組中，代碼略
End Sub
Private Sub Command2_Click（　　）
      Dim i As Integer,j As Integer,k As Integer
      For j=1 To n
            f（（n-1）*n+j）=

①

①

      Next j
      For i=

②

②

            For j=1 To i
                  k=（i-1）*n+j
                  f（k）=

③

③

            Next j
      Next i
      Label1．Caption=“路徑上的數字和最大值為：“+Str（f（1））
End Sub
Function max（a As Integer,b As Integer） As Integer
      If a＞b Then max=a Else max=b
End Function