在VB中，用于定义单精度型数据类型的关键字是（   ）

A．Integer

B．Double

C．Single

D．Long

在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)

已知a=5，则下列VB表达式值为"False"的是（   ）

A．a>3 Or a<3

B．a>3 And a<6

C．a<>5

D．not (a<>5)

读下列程序段，运行该段程序之后，变量a的值是（   ）。
a=3;
b=4;
if a<b  then  a=0;
else  a=1;
end  if  

A．3

B．4

C．0

D．1

下列能作为Visual Basic变量名的是（    ）

A．b+7

B．Mod

C．3x

D．T_1

下列Visual Basic表达式中计算结果为4的是（   ）

A．Abs(-4.2)

B．Len("a123")

C．Sqr(4)

D．Int（3.5）

某算法的流程图如下所示：

当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（ ）

A．8

B．2

C．5

D．7

在Visual Basic中，下列能产生一个[1，100]之间随机正整数的表达式是（    ）

A．Rnd*100	B．1+Rnd*99
C．Int(Rnd*100)	D．1+Int(Rnd*100)

古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。例如28的因子是1、2、4、7、14，且1+2+4+7+14＝28，则28是一个完全数。编程求解[2，1000]内的所有完全数，用VB编写的程序运行界面如图2-1所示。

图2-1
（1）利用计算机解决问题一般可以分哪三个步骤？     ①      、
②      、 ③      。
（2）图2-1中标注A处的对象类型应为标签类对象   ④    （填：对 / 错）。    
（3）标注B处 Command1对象属性肯定被修改过的是   ⑤   （填：Caption / Font）
（4）在窗体中，创建标签类（Label1）对象时应选择工具箱中的_____⑥_______(如图2-2，填字母: A / B / C / D)

A．

B．

C．

D．

（5）按此要求编写的程序如下，程序划线处⑦应填入    ⑦   （填：Text1_Change() / Command1_Click()），⑧应填入    ⑧  （填：Dim /Define） 。
Private Sub    ⑦ 
  ⑧  a, b, s As Integer
For a =" 2" To 1000
S = 0
For b =" 1" To a - 1
If a Mod b =" 0" Then s =" s" + b
Next
If a =" s" Then List1.Additem str(a) '输出满足条件的完全数a
Next
End Sub
（6）调试正确，编译生成可执行文件后，想把自己的
成果通过QQ传给同学们使用。发送时应该选择如图2-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