用VB编程验证“角谷猜想”.“角谷猜想”指出,对于一个自然数,若该数字为偶数,则除以2;若该数为奇数,则乘以3并加1;将得到的数再重复按该规则运算,最终可得到1.编写程序,对给定的一个

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/13 15:30:22

用VB编程验证“角谷猜想”.“角谷猜想”指出,对于一个自然数,若该数字为偶数,则除以2;若该数为奇数,则乘以3并加1;将得到的数再重复按该规则运算,最终可得到1.编写程序,对给定的一个数n,验证这一过程.

Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入n:")
Do
If n Mod 2 = 0 Then
Call ous(n)
Else
Call jis(n)
End If
Loop Until n