Ⅰ 我是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