(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 Command2Click()
‘生成数塔,将数据存入a数组中,代码略
End Sub
Private Sub Command2Click()
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=(1-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