在Visual Basic中，有整型变量a=5，b=3，要在标签控件中显示结果为8，则执行下列语句能正确显示结果的是：（ ）
| A．Label1.Caption=Str(a+b) |
| B．Text1.Text=Len(a)+Val(b) |
| C．Text1.Text= Sqr(a+b) |
| D．Label1.Caption=" Str(a)+" Str(b) |
某VB程序在调试中弹出以下错误窗口，产生该错误的可能原因是（ ）
| A．该VB程序代码中缺少Next |
| B．该VB程序窗体界面中，缺少某控件 |
| C．该VB程序代码中，某个常量或变量没有声明 |
| D．该VB程序设计软件没有正确安装 |
在Visual Basic中，下列能产生一个[1，100]之间随机正整数的表达式是（ ）
| A．Rnd*100 | B．1+Rnd*99 |
| C．Int(Rnd*100) | D．1+Int(Rnd*100) |
求两个整数的最大公约数分析：求最大公约数的算法思想：
（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
（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