Ⅰ 我是VB初学者,但是现在有个程序需要用MICROSOFT VISUAL BASIC 2010软件编程。 紧急求教该怎么编谢谢
首先我们观察一下这个变换规则。二进制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