在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程.
 Privat Sub Command1 Click
 Dim array1(10,10) As Integer
 Dim  i  AS  integer,j As Integer
 For i = 1 To 3
 For j = 2 To 4
 array1(i,j) = i + j
 Next j
 Next i
 Text1.Text=array1(2,3)+array1(3,4)
 End Sub
程序运行后，单击命令按钮，在文本框中显示的值(  ）


A．12

B．13

C．14

D．15

“某商场的店庆促销活动之一：店庆日购物满500元可在5折优惠后再减100元，否则只打5折”。用算法描述这一问题，可采用的算法结构是（   ）

A．顺序结构

B．选择结构

C．循环结构

D．树形结构

有如下VB程序段：
i = 1: j = 6: c = 0: f = False
key = Val(Text1.Text)
Do While i<= j And Not f
c = c + 1
m = Int((i + j) / 2)
If key = a(m) Then f = True
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是

A．变量c的值为3

B．变量i的值为4

C．变量j的值为4

D．变量m的值为4

有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then

m=m+1

ElseIf t Mod 5=0 Then

n=n+1

End If
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（   ）

A．6：2

B．6：1

C．5：2

D．4：3

求两个整数的最大公约数分析：求最大公约数的算法思想：
（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