Question

我是VB初学者，但是现在有个程序需要用MICROSOFT VISUAL BASIC 2010软件编程。 紧急求教该怎么编？谢谢

用VB2010编程如下

下面是16个4位2进制数的迭代变化规则如下

0000 得到 0001

0001 得到 0010

0010 得到 0011

0011 得到 0100

0100 得到 0110

0101 得到 0110

0110 得到 0111

0111 得到 1000

1000 得到 1001

1100 得到 1101

1101 得到 1110

1110 得到 1111

1111 得到 0000

1010 得到 1011

1011 得到 1100

1001 得到 0000

要求任意两个4位的二进制数同时迭代N次，显示每次迭代的结果

举例如下

输入01001001，进行3次迭代，请写出每次迭代的结果

第一次迭代

01001001 得到 01100000

根据规则得到如下

0100 得到 0110 和 1001 得到 0000

第二次迭代

01100000 得到 01110001

根据规则得到如下

0110 得到 0111 和 0000 得到 0001

第三次迭代

01110001 得到 10000010

根据规则得到如下

0111 得到 1000 和 0001 得到 0010

Answer 1

首先我们观察一下这个变换规则。二进制0000就是十进制0，二进制0001就是十进制1，二进制0010就是十进制2……总之，把字符串的前半段和后半段各看为一个2进制数，则每经过一次迭代，这两个数分别加1。迭代三次，加三次1就可以了。但1111接下来是0000，也就是说这两个二进制数不能大于15。如出现大于十五的情况应减十五。
先来一个Textbox(假定为Textbox1)和一个Button(假定为Button1)，定义如下五个变量:a,b,i,j为整数，Tempstr为字符串。然后双击按钮，在按钮中的Click事件下写如下代码：
1.读取字符串
a=0
b=0
For i = 1 To 4
a = a * 2 + Val(GetChar(Textbox1.Text, i))
Next
For i = 5 To 8
b = b * 2 + Val(GetChar(Textbox1.Text, i))
Next
2.处理
tempstr=""
For j=1 To 3
tempstr=tempstr+" 迭代"+str(j)+"次："
a=a+1
b=b+1
if a>15 then a=a-15
if b>15 then b=b-15
For i = 1 To 4
Tempstr = Str(b Mod 2) + Tempstr
b = b \ 2
Next
For i = 1 To 4
Tempstr = Str(a Mod 2) + Tempstr
a = a \ 2
Next
Next
textbox1.text=tempstr