用什么才能实现一个随机八位的二进制0 1代码的输入，让其在屏幕中显示，然后将这个八位的代码转换成两位的16进制数显示出来！（这个八位的俄二进制数上面有八个灯泡与之对应，如果是1的话，灯泡就变亮）
急用阿！！！！

[这个贴子最后由寒秋在 2006/05/29 10:24pm 第 3 次编辑]

repeat with kk:=1 to 8  --生成一个随机的二进制数
    aa:=aa ^ String(Random(0, 1, 1))
end repeat
aa1:=SubStr(aa,1,4) --分离出前四个字符
aa2:=SubStr(aa,5,8) --分离出后四个字符
aa3:="0000\r0001\r0010\r0011\r0100\r0101\r0110\r0111\r1000\r1001\r1010\r1011\r1100\r1101\r1110\r1111"  --转化为16进制的数值
repeat with Kk:=1 to linecount(aa3)  --转化前四个二进制为十六进制
    if getline(aa3,kk)=aa1 then
        if kk>=11 then
           jieguo1=char(54+kk)
        else
           jieguo1=string(kk-1)
         end if
        exit repeat
      end if
end repeat
repeat with Kk:=1 to linecount(aa3) --转化后四个二进制为十六进制
    if getline(aa3,kk)=aa2 then
        if kk=11 then
              jieguo2:=char(54+kk)
        else
              jieguo2=string(kk-1)
        end if
        exit repeat
      end if
end repeat
trace(jieguo1 ^ jieguo2)
至于让灯亮的话,自己写吧.