我是VB初学者,但是现在有个程序需要用MICROSOFT VISUAL BASIC 2010软件编程。 紧急求教该怎么编?谢谢
用VB2010编程如下下面是16个4位2进制数的迭代变化规则如下0000得到00010001得到00100010得到00110011得到01000100得到0110010...
用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 展开
下面是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 展开
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
先来一个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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询