模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（  ）

A．INT（RND（3）+1）

B．INT（RND*2+1）

C．INT（RND（2）+1）

D．INT（RND*3+1）

数塔问题。一组数字构成如图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数组中，代码略

①___________________________________
②__________________________________
③__________________________________

编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。

Private Sub Command1_Click()
Dim s As string
Dim n As Integer,w As Integer
s=Text1.Text
For i=1 To 3

n=Len(s):w=1

For j=2 To n

If ________ Then w=j Else Exit For

Next j

s=Mid(s,1,w-1)+Mid(s,w+l,n-w)

Next i
Text2.Text=s
End Sub
画线处的正确代码为（   ）

A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))

B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))

C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))

D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))

流程图是实现输出1－100之间所有能被 7整除的整数。若再要统计其个数，则要设置一个计数器c, c = 0,如图所示，则计数器c=c+1应置于编号     处。

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = , Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1