兔子吃萝卜。兔子拔了一堆萝卜，第一天吃了一半，还嫌不过瘾，又吃了一个，第二天又将剩下的萝卜吃掉一半，又多吃了一个，以后每天如此。到第10天想再吃时，见只剩下一个萝卜了。求第一天共拔了多少萝卜。小明编写了一个VB程序，用于计算兔子第一天拔的萝卜总数。程序运行界面如图所示。

Private Sub Command1_Click()
Dim i As Integer，sum As Integer
sum＝1
For i＝9 To 1 ____①____
____②____
Next i
Text1.Text＝Str(sum)
End Sub
回答下列问题：
(1)该程序采用的算法是________(填：解析算法/枚举算法)
(2)显示计算结果的控件属于________类，该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。

（加试题）一个简单的四则混合运算式子（算式中只包含整数、+、-、*、/、=）的运算规则是先进行“*”或“/”，再进行“+”或“-”，下列是用 VB编写的简单四则混合运算的程序，运行程序时在文本框 Text1 中输入四则运算式子，单击命令按钮 Command1，在标签Label1 中输出结果。程序界面及代码如下。请回答以下问题。
(1) 若在文本框 Text1 中输入式子“12*5-32/4+20=”，则运行程序后在标签 Label1 中显示的内容是_________。

(2) 请在划线①②③处填入合适的代码，让程序能实现计算功能。
Private Sub Command1Click
Dim a(1 To 100) As Single, b(0 To 100) As String
Dim s As String, c As String   
Dim sz As Integer, i As Integer, k As Integer
s = Text1.Text:k = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

sz = 0
Do While c >= "0" And c <= "9"
sz= ①________
i = i + 1
c = Mid(s, i, 1)
Loop
k = k + 1: a(k) = sz: b(k) = c
End If
Do While k > 1 And ②________
If b(k - 1) = "+" Then a(k - 1) = a(k - 1) + a(k)
If b(k - 1) = "-" Then a(k - 1) = a(k - 1) - a(k)
If b(k - 1) = "*" Then a(k - 1) = a(k - 1) * a(k)
If b(k - 1) = "/" Then a(k - 1) = a(k - 1) / a(k)
b(k-1) = b(k)
k = k - 1
Loop
Next i
Label1.Caption = "运算的结果是：" + Str(a(1))
End Sub
Function yxj(x As String) As Integer

If x = "*" Or x = "/" Then

yxj = 1

ElseIf x = "+" Or x = "-" Then

yxj = 2

Else

 ③________

End If

End Function

求1，100内的所有能被7整除的数。

在流程图的空白处应填入 ________   。

本程序要求完成的功能是：计算
s=1/1+2/(1*2)+3/(1*2*3)+…+ n/(1*2*3*…*n)的值。
请将已有VB代码补充完整。
n = inputbox(“请输入n的值”)
s = 0
________(1)________
For i =" 1" to n
t =" t" * i
s =" s" + ______(2)_______
Next i
Print s
（1）__________  （2）__________

若字符串a是在字符串s的任意位置插入多个字符后构成的新字符串，则称字符串a为字符串 S的扩展字符串。判断扩展字符串的VB程序界面如图所示，在文本框Text1和Text2 中分别输入字符串s和a，单击“判断”按钮Command1，如果字符串a为字符串S的扩展字符串，则在文本框Text3中输出“是”和插入字符的内容，否则输出“否”。
①结合题意，窗体中属于TextBox类的对象共有_________个（填数字）。
②实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String，ss As String，cc As String
Dim i As Integer，As Integer，res As String
s= Text1.Text
c = Text2.Text
i=l：j=l：res =“”
Do While i <= Len(s)

ss = Mid(s, i, l)

cc = Mid(c, j, l)

If ss = cc Then i = i + l Else res = res + cc

①________

If j > Len (c) Then Exit Do   ‘Exit Do 执行退出循环

Loop
If ②_________ Then

Text3.Text ="是，增加了：" + res + Mid( c，j，Len(c) -j+l)

Else

Text3.Text = "否"

End If
End Sub
（3）运行该程序，输入如第l4题图中所示的数据，程序执行结束时，变量j的值是____