如1图所示程序的功能是把输入的自然数分解为三个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中，其中“开始处理”按钮的名称是“Command1”。例如输入20，单击“开始处理”按钮后，则在列表框中会显示下列数据：
2 5 13
2 7 11

（1）程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为True，否则返回False。该函数的算法流程图如2图所示，根据流程图，完善程序中Function f(x)部分。

（2）主程序流程图如下图所示。其中n为输入的自然数，a1、a2、a3为分解出的三个正整数，t为a1、a2、a3是否同时为素数且三数相加是否为n的逻辑值。

则主程序流程图中①处应填写的内容是：
（3）在主程序Private Sub Command1_Click()中，主要采用的算法是：__________。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Dim t As Boolean
Function f(x) As Boolean
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
For a1 =" 2" To n
For a2 =" a1+1" To n
For a3 =" a2+1" To n
t="(a1" + a2 + a3 =" n)" And f(a1) And f(a2) And f(a3)
If t  Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub

某书店在5所学校流动售书量（单位，本）分别是88,110,48,64,35。若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（    ）。

A．35   88    110  48   64

B．35   48    88   64   110

C．35   48    88   110  64

D．35   48    64   88   110

有下列 VB 程序段：
Dim strA As String, strB As String strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2 If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2) End If

Next i
该程序段运行后，变量 strB 的值是（ ）

A．"jpfqic "

B．"qicqic"

C．"phbqic"

D．"qicoga"

王老师采用星级制对本班学生的平时表现进行评价，每位同学的评分数据储存在数据库中。学生的得分和星级对照如下表：

成绩	1-20	21-40	41-60	61-80	81-100
星级	一星	二星	三星	四星	五星

 
要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框listl中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。程序运行界面如图所示：

(1)观察代码，实现统计功能的按钮对象名为：_______。
(2)当前读取的数据表名为：_________________
(3)实现上述功能的VB代码如下，划线①、②处请填空。
Const n = 50
Dim a(1 To n) As Integer
Dim b(0 To 4) As Integer
Private Sub Form_Load( )
Dim adocn  As New ADODB. Connection
Dim adors As New AD0DB. Recordset
Dim strl，str2 As String
adocn. ConnectionString =”provider= microsoft. ace. oledb.12.0；data source=” +
App. Path + ”\school. accdb”
adocn.Open
str2 = ”select * from student”
adors.0pen str2，adocn
’以下将每个学生的得分读入组数a中，并在列表框list1中显示，代码略
End Sub
Private Sub Coml_Click()
Dim dd As String
Dim cou As Single
Dim t as integer
dd=“一星二星三星四星五星”
For i = 1 To n
t=______________________
b(t)=b(t)+1
Next i
For i = 0 To 4
cou = Int(b(i)/n * 100 + 0.5)
1ist2. AddItem，_______________+ Str(cou) + “%”
Next i
End Sub

由 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)请在①②③划线处填入合适的代码。