VB 數列
111看上一行為一個121在看上一行為兩個11211看上一行為一個2一個1111221請問該如何寫出上面的結果在某些部份..卡住了更新:忘了說輸入NN=3時顯示111211211第一行不算更新2:冰封大..小弟沒摸過.NET更新3:請問冰封為何我顯示出來是12112112112112..............更新4:是該修煉一下..我後來有自己在修改為我要的功能111211211
.Net 版, 請自行修改為VB6 Sub Main() Do Dim s$ = Console.ReadLine().ToCharArray() For i& = 1 To 10 s = x(s.ToCharArray()) Console.WriteLine(s) Next i Loop End Sub Function x$(s() As Char) Dim cnt@ = 1, tc As Char = s(0), rt$ = "" For i& = 1 To s.Length - 1 If s(i) = tc Then cnt += 1 Else rt &= cnt & tc tc = s(i) cnt = 1 End If Next i rt &= cnt & tc Return rt End Function 2011-11-14 20:31:28 補充： 其實這段跟VB6 差不多 Sub Command1_Click() Dim s$, i& s = Text1.Text For i = 1 to 10 s = x(s) Print s Next i End Sub 2011-11-14 20:35:50 補充： Function x$(s$) Dim cnt&, tc$, rt$, i& cnt = 1 tc = Mid(s, 1,1) '忘了第一個字是1還是0 For i = 2 to len(s) if mid(s,i,1) = tc then cnt = cnt + 1 Else rt = rt & tc tc = mid(s,i,1) cnt = 1 End if next i x = rt & cnt & tc end function 2011-11-14 23:01:23 補充： - - 樓主有必要先修練一下debug 的功夫 我只是把 rt &= cnt & tc 錯譯成 rt = rt & tc 少了一個cnt --> rt = rt & cnt & tc
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20111112000010KK05829