题库 高中信息

题干

用物理天平测量物体的质量。待测物体的质量为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
 
上一题 下一题 0.99难度 填空题 更新时间:2019-04-24 10:10:00

答案(点此获取答案解析)