10.角谷猜想。對(duì)任意一個(gè)大于1的正整數(shù)n,進(jìn)行如下運(yùn)算:若n是奇數(shù)時(shí),n的值替換為3n+1,若n是偶數(shù)時(shí),n的值替換為n/2;重復(fù)以上運(yùn)算,n最終變?yōu)?. 下面程序用于驗(yàn)證角谷猜想,程序運(yùn)行界面如圖1所示。在文本框Text1中輸入一個(gè)正整數(shù),單擊“驗(yàn)證”按鈕Command1,在列表框List1中輸出每一步的運(yùn)算過(guò)程。 解決此問(wèn)題的算法流程圖如圖2所示: 程序代碼如下: Private Sub Command1_Click ( ) Dim n As Single,i As Integer n=Val(Text1.Text) List1.Clear'清除列表框List1中的內(nèi)容 If Int(n)<>n Or n<=1Then List1.AddItem“請(qǐng)輸入大于1的正整數(shù)!“ Else i=0 Do While
If n Mod 2=0Then n=
Else n=n*3+1 End If i=i+1 List1.AddItem Str(i)+““+Str(n) Loop End If End Sub (1)解決此問(wèn)題的算法是