题库 高中信息
题干
用物理天平测量物体的质量。待测物体的质量为X克（X为小于1000的整数），以下程序功能为计算天平砝码盘中所需的砝码。已知天平可用的砝码为500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如图所示。
（选填： 属性 / 事件 / 方法）。
（2）为实现以上功能，画线①处应填入的代码为
画线②处应填入的代码为
（3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为
（选字母A/B/C）。
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 |
答案(点此获取答案解析）
