用VB编程验证“角谷猜想”.“角谷猜想”指出,对于一个自然数,若该数字为偶数,则除以2；若该数为奇数,则乘以3并加1；将得到的数再_其他解答

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

人气：410 ℃　时间：2020-05-10 06:37:52

解答

Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n：")DoIf n Mod 2 = 0 ThenCall ous(n)ElseCall jis(n)End IfLoop Until n 能不能显示过程，比如输入10就显示：10 5 16 8 4 2 1Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n：")DoPrint n;If n Mod 2 = 0 ThenCall ous(n)ElseCall jis(n)End IfLoop Until n <= 1Print nEnd Sub Private Sub ous(m As Integer)m = m / 2End Sub Private Sub jis(m As Integer)m = m * 3 + 1End Sub能不能把结果显示在Picture1里Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n：")DoPicture1.Print n;If n Mod 2 = 0 ThenCall ous(n)ElseCall jis(n)End IfLoop Until n <= 1Picture1.Print nEnd Sub Private Sub ous(m As Integer)m = m / 2End Sub Private Sub jis(m As Integer)m = m * 3 + 1End Sub