以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）

A．穷举法、公式法	B．循环法、递归法
C．查找法、函数法	D．枚举法、解析法

辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。它是已知最古老的算法之一，其可追溯至3000年前。用辗转相除法来得一个分数的约分后的最简形式的算法如下：

第一步：设两数为a、b，且令a>b；
第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；
第三步：即为约分后的最简形式。
编写VB程序，程序运行界面如第6题图1所示，请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0，则提示“分母不能为0”并退出该过程
r = ① （3分）
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
② （3分）
End Function

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（   ）

Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer    '①
a(0) = 1   '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub

A．①	B．②
C．③	D．④

第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：

空白矩形框中应该填入的是 (   )

A．s←s+2

B．s←s+3

C．s←s+j

D．s←s*3

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）  
（2）  
（3）  
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t )  （3）
End Sub