写出算法执行结果

两个富翁试图做一笔换钱生意，换钱规则为：富翁A每天给富翁B 10万元，直到满30天；富翁B第一天给富翁A  1分钱，第二天给2分，第三天给4分……富翁B每天给富翁A的钱是前一天的两倍，直到滿30天。要求设计一个程序，在文本框Text1和Text2中分别输入富翁A和富翁B给予对方的钱的数额（万元）。
小青用VB设计了如下图所示的程序界面：

（1）如上图所示，该窗体内有 个对象，这些对象分为 __________类。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim ma as single
Dim mb as single
Dim s as single
Ma =10*30
Mb = 0.000001
For I =  1  to _______①_____
Mb = ____②______
S=" s" + mb
Next I
Text1.text = str(ma)
Text2.text = str(s)
End sub
① 应填的内容是__________ ，②中应填的内容是__________ 。

以下流程图的功能是（   ）

A．输入三个数，输出其中的第一个数

B．输入三个数，输出其中的中间数

C．输入三个数，输出其中的最小数

D．输入三个数，输出其中的最大数

下图为驾驶证考试部分的流程图，该流程图的结构属于________。

A．循环结构

B．选择结构

C．分支结构

D．顺序结构

古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。例如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
中___⑨_____（填完整文件名）。