已知出租车计费方法如下：路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：

图一

在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then  ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then    ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码，在①，②处填入正确的语句
①________________________________
②________________________________
完善程序代码后，若输入路程数为10，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）

数塔问题。一组数字构成如图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所示数塔各条路径上的数字和的最大值为___________。

(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()
’生成数塔，将数据存入a数组中，代码略

①___________________________________
②__________________________________
③__________________________________

公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：公鸡5钱1只，母鸡3钱1只，小鸡3只1钱，有人用100钱买了100只鸡。请编写一段代码求其中公鸡，母鸡，小鸡各多少只？
Private Sub Command1_Click()
For i =" 0" To 20
For j =" 0" To 33
k =    
If     Then Print i, j, k
Next j
Next i
End Sub

在VB中，如果要定义变量p用于存储年级学生总数，那么变量p的数据类型是(   )。

A．String

B．Integer

C．Boolean

D．Date

在Visual Basic中定义一个二维的而且最多可以存储100个单精度实数型数值型数组s，正确的数组定义语句是（   ）

A．Dim s(1 to 100) As Integer

B．Dim s(1 to 100) As Single

C．Dim s(1 to 10,1 to 10) As Single

D．Dim a(1 To 100,1 to 100) As Double