用物理天平测量物体的质量。待测得物体的质量为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 x<>0
If x >=" a(i)" Then
List1.AddItem Str(a(i))
①End If
i =" i" + 1
Loop
End Sub
(1)如要将程序窗口标题“Form1”修改为“天平测质量”,则应该修改窗体的
属性(选填: Name / Caption / Text / Font)。
(2)为实现上述功能,划线①处应填入的代码为
。
(3)程序正确运行后,在文本框Text1中输入701,并单击“计算”按钮。程序运行结果应为下图中的
(单选,填:A/B/C)。
