分析完善程序。
考拉兹猜想又称为3n+1猜想,是指对于每一个正整数,如果它是奇数,则对它乘3再加1;如果它是偶数,则对它除以2;........;如此循环,最终都能够得到1。
如n=6,根据上述规则,得出6→3→10→5→16→8→4→2→1。(共有8个步骤)
以下是验证考拉兹猜想的主要VB程序片段,请你补全代码:
n = Val(InputBox("n="))
Cnt = 0
Do While n > 1
Cnt = Cnt + 1
If n Mod 2 = 0 Then
n =
Else
n =
End If
Loop
Print Cnt ‘输出步骤数