用VB编写“拆红包”程序，界面如图所示。在Text1中输入红包金额（元），在Text2中输入人数，点击“Command1”命令按钮，在列表框List1中显示分到的红包情况。

 

（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim i As Integer

Dim num As Integer  '存储红包的个数

Dim money As Single '存储红包的剩余金额

Dim k As Single '存储每次分到的红包金额

money = Val(Text1.Text)

num = Val(Text2.Text)

For i = ①________ To 1 Step -1

If i = 1 Then
k = Int(money * 100) / 100   '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)   
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。

某算法的部分流程图如图所示。执行这部分流程后，变量x，y的值分别是（  ）

A．7，9

B．13，12

C．69，10

D．11，11

黄龙超市举行开业酬宾，购物总金额满500元者，超过部分可优惠10%，满1000者，超过部分可优惠15%，满2000者，超过部分可优惠20%。用算法描述这次酬宾活动的话，最合适的算法结构是（  ）

A．顺序模式

B．循环模式

C．树型模式

D．选择模式

用物理天平测量物体的质量。待测物体的质量为X克（X为小于1000的整数），以下程序功能为计算天平砝码盘中所需的砝码。已知天平可用的砝码为500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如图所示。

Private Sub Command1_Click()

Dim a(1 To 12) As Integer, i As Integer, x As Integer

a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20

a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1

i = 1

x = Val(Text1.Text)

List1.Clear

Do While  ①   

If x >= a(i) Then

List1.AddItem Str(a(i))

   ②   

End If

i = i + 1

Loop   

End Sub

（1）上述代码中“List1.Clear”中的Clear是对象List1的
（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为   
画线②处应填入的代码为  
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。

A		B		C

 

分析并完善程序。
计算1+3+5+……+99的值。
Dim  i  As  Integer
s=0
for   i=1  to ①________ step  2
s= ②__________
next  i
print “s=”③_____ ;