题目

寻找受潮药瓶。现有5瓶药，每瓶有20粒药丸，每粒药丸重10克，其中有几瓶受潮了，受潮的每粒药丸重11克，如何用天平只称一次找出受潮的那几瓶药？ 解决此问题的方法是：将5瓶药编号为1～5号，从中分别取出1、2、4、8、16粒药丸进行称重。在不受潮时应是（1+2+4+8+16）×10=310（克）。假如称出的重量是315克，那么超出的重量是5克，说明有5粒超重，（5）10=（00101）2 ， 因此受潮的是第1瓶和第3瓶。编写程序模拟此过程，程序运行时，单击“模拟”按钮Command1，在文本框Text1中输出超重克数，在列表框List1中输出药瓶编号，运行界面如图所示。 （1） 代码中List1.AddItem中的AddItem是。（选，填字母：A .属性名 / B .方法名 /C .事件名） （2） 实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Sub Command1_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 + 1         If  Then             List1.AddItem "第" + Str(k) + "瓶"         End If          cz = cz \ 2     Loop End Sub （3） 假如超重为10克，则受潮的药瓶编号是（填数字：若有多瓶，用“，”号隔开） 答案： 【1】B 【1】str(cz)【2】cz mod 2=1 或cz mod 2<>0 【1】2，4

查看本题答案和解析