用VB编程做这个题，求详细过程。

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

左丘未游 春芽

共回答了23个问题采纳率：87% 举报

窗体上添加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 Su

1年前

9
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.342 s. - webmaster@yulucn.com