用VB编程做这个题，求详细过程。日本一位中学生发现一个奇妙的“定理”，请角谷教授证明，而教授无能为力，于是产生角谷猜想。猜想的内容是：任给一个自然数，若为偶数除以2，若

Question

用VB编程做这个题，求详细过程。
日本一位中学生发现一个奇妙的“定理”，请角谷教授证明 ，而教授无能为力，于是产生角谷猜想。猜想的内容是：任给一 个自然数，若为偶数除以2，若为奇数则乘3加1，得到一个新的 自然数后按照上面的法则继续演算，若干次后得到的结果必然为 1。请编程验证。

Answer 1

窗体上添加1个按钮，复制下面的代码就可以：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("输入一个自然数"))
Do While n <> 1
If n Mod 2 = 0 Then
n = n \ 2
Else
n = n * 3 + 1
End If
Loop
Print n
End Sub