有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2  Step -1 
s = s*j 
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是(    )

A．1

B．4

C．5

D．6

有如下 VB 程序段：
s = 0
For i = 1 To 10 
s = s + i Mod 2
Next i
Label1.Caption = Str(s) &“-”& str(i) 该程序段运行后，在标签 Label1 上显示的是(   )。

A．5-10

B．5-11

C．55-10

D．1-11

求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n  Then  t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub

DO 循环中当型循环的关键字是（______），直到型循环的关键字是（_________）

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（ ）

A．2

B．4

C．6

D．8