窗体上添加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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024