1.
分析完善程序。
考拉兹猜想又称为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
考拉兹猜想又称为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 ‘输出步骤数
【考点】
运算符、基本运算与表达式;
常量、变量及变量的赋值;
能力提升
变式训练
拓展培优
