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

58

58

。

（2）編寫VB程序，運(yùn)行界面如圖b所示，程序代碼如下，請(qǐng)?jiān)跈M線處填入合適的代碼，將程序補(bǔ)充完整。
Const n=5
Dim a（1 To n^2）As Integer’數(shù)組a存儲(chǔ)數(shù)塔數(shù)據(jù)，存儲(chǔ)結(jié)構(gòu)如圖c所示
Dim f（1 To n^2）As Integer’數(shù)組f存儲(chǔ)從第i層第J個(gè)數(shù)到底層尾結(jié)點(diǎn)的最大數(shù)字之和，其存儲(chǔ)結(jié)構(gòu)與數(shù)組a一樣
Private Sub Command l_Click

（　?。?/div>

（　　）

’生成數(shù)塔，將數(shù)據(jù)存入a數(shù)組中，代碼略
End Sub
Private Sub Command2_Click（　?。?br />      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=“路徑上的數(shù)字和最大值為：“+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