
Private Sub Commandl_Click()
Dim s As Integer, cz As Integer 'cz存储超重克数
Dim k As Integer
'依次从1~5号瓶中取出1、2、4、8、16粒药,并计算总重量,存储在变量s中,代码略
cz=s-310
Text1.Text=__①__
k=0
Do While cz<>0
k=k+1If ___②__Then List 1.Addltem"第"+Str(k)+"瓶"
cz=cz\2
Loop
End Sub(1)代码 List1.AddItem 中的 AddItem 是______(单选,填字母:A.属性名/B.方法名/C.事件名)
(2)请在划线处填入合适代码。
①_______________________________
②_______________________________
(3)假如超重为 10 克,则受潮的药瓶编号是_____(填数字,若有多瓶,用“,”隔开)。

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

