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

在Visual Basic中，语句x=Val(number.Text)中的number是（   ）

A．对象名	B．类名
C．属性名	D．属性值

Visual Basic中，如果变量p需要存储一首古诗，那么变量p的数据类型应该定义为（   ）

A．Single

B．Boolean

C．String

D．Integer

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then  f = 1  Else  f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（ ）

A．1

B．3

C．5

D．7

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（ ）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good"    '①
b = "bye"     '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

A．①

B．②

C．③

D．④