题型：综合题 题类：常考题 难易度：普通
【bj】高中信息技术综合库——解析算法1
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+1
If ② Then List 1.Addltem"第"+Str(k)+"瓶"
cz=cz\2
Loop
End Sub
① ②
⑴分别将十进制数x,y转换为二进制,并将转换的每位二进制数存储到数组a,b中；如果两个二进制位数不相等，则位数较少的前面用“0”补足，使之a,b数组元素个数一致；
⑵取出数组a,b中下标相同的数组元素进行运算，若值相同，则结果为0，否则为1；
根据上述运算方法,示例如表所示。
变量 | 十进制 | 二进制 | ||||
x | 19 | 1 | 0 | 0 | 1 | 1 |
数组a | a(1) | a(2) | a(3) | a(4) | a(5) | |
y | 9 | 0 | 1 | 0 | 0 | 1 |
数组b | b(1) | b(2) | b(3) | b(4) | b(5) | |
x xor y | 1 | 1 | 0 | 1 | 0 | |
小明编写了一个VB程序，功能如下：在文本框Text1、Text2中分别输入x、y的值，单击“异或”按钮Command1，程序对数据进行异或运算，并将结果显示在列表框List1中。
试题篮
