有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321

由 n 行数字组成的数字三角形如图所示。设计一个算法，对于由 n 行数字组成的数字三角形（数字范围1，50，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：
按三角形的行划分，若有n 行，则有n-1 个步骤
① 从底层开始，本身数即为最大值
② 倒数第二层的计算取决于底层的数据：
12+6=18,13+14=27,24+15=39,24+8=32；
③ 倒数第三层的计算取决于底二层的数据：
27+12=39,39+7=46,39+26=65；
④ 倒数第四层的计算取决于底三层的数据：
46+11=57,65+8=73；
⑤ 最后的路径：13—8—26—15—24   其和为 86。
根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框 text1 中输出最大值。

依据上述描述设计如下 VB 程序：
Const n = 5
Dim sx As String
Dim i, j, k, a(1 To 100) As Integer
Private Sub Command1_Click()
List1.Clear
For i = 1 To n
For j = 1 To i

__________

sx = sx + Str(a((i - 1) * n + j))

Next j

For k = n To i Step -1

 sx = " " + sx

Next k

List1.AddItem sx

sx = ""

Next i
End Sub
Private Sub Command2_Click()
For i = n To 1 Step -1
For j = 2 To i

If__________Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If

Next j

Next i
__________
End Sub
请回答下列问题：
(1)若数字金字塔如图   ，输出路径最大值是______________________。
(2)请在①②③划线处填入合适的代码。

有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（  ）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub

A．3	B．6
C．10	D．18

学习了VB之后，小明编写了一个三角形面积计算器的程序，其窗体界面如图1所示，代码部分如图2所示：

图1

图2
(1)在图1中当前选定的对象属于_____________________________________类。
(2)根据图2中的代码，可以确定图1中唯一一个按钮的对象名是________。
(3)图2中①所在位置的代码应该是：_________________________。
(4)程序正常运行时，如果输入三角形的三条边长分别为11、25、12，则点击“计算”后，Label5的Caption值将是： ____________________________。

甲乙双方进行一场球类比赛，一局计分的规则是：赢1球得1分，用“1”表示；输1球失1分，用“0”表示。当任一方得分大于等于6分，且领先对方2分及以上，领先方赢一局。如甲选手一局比赛数据为“101110101”，表示甲选手得6分失3分，局比分。
小王用一个字符串记录了甲选手多局比赛数据，其中有一处错误，位于连续多个“0”的最后一个。为了找出错误，小王的处理方法如图a所示，对示例中疑似错误位置6和20分别修改数据，并统计每局比分。他编写了VB程序，功能如下：在窗体Form l的文本框Text l中输入记录数据，单击“分析”按钮Command 1，在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
（1）下列对象中有Text属性的是________（单选，填字母：

A．Command 1/

B．Form 1/

C．Text 1）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
   
图a 图b
Private Sub Command 1_Click（）
Dim sp As String，s As String s    s存储甲选手多局比赛的记录数据，长度小于50
Dim a（1 To 50）As Integer，e（1 To 20）As Integer
Dim I As Integer，j As Integer，k As Integer，n As Integer，m As Integer
Dim fl As Integer，f2 As Integer



（ ① ）
Next i



    找出疑似错误位置

Loop
If   ②  Then

End If

Loop
    对每个疑似错误位置分别修改数据，并统计每局比分






If  Then


End If
Next j

List 1.AddItem sp
  ③ 
Next i
End Sub