用VB编程验证“角谷猜想”。

答案:2 悬赏:10 手机版

解决时间 2021-11-21 18:47

提问者网友：雪舞兮
2021-11-20 22:38

用VB编程验证“角谷猜想”。

最佳答案

五星知识达人网友：忘川信使
2021-11-20 23:10

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 <= 1
Print n
End Sub

Private Sub ous(m As Integer)
m = m / 2
End Sub

Private Sub jis(m As Integer)
m = m * 3 + 1
End Sub追问能不能显示过程，比如输入10就显示：
10 5 16 8 4 2 1追答Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入n：")
Do
Print n;
If n Mod 2 = 0 Then
Call ous(n)
Else
Call jis(n)
End If
Loop Until n <= 1
Print n
End Sub

Private Sub ous(m As Integer)
m = m / 2
End Sub

Private Sub jis(m As Integer)
m = m * 3 + 1
End Sub追问能不能把结果显示在Picture1里追答Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入n：")
Do
Picture1.Print n;
If n Mod 2 = 0 Then
Call ous(n)
Else
Call jis(n)
End If
Loop Until n <= 1
Picture1.Print n
End Sub

Private Sub ous(m As Integer)
m = m / 2
End Sub

Private Sub jis(m As Integer)
m = m * 3 + 1
End Sub

全部回答

1楼网友：怀裏藏嬌
2021-11-21 00:20

你好：
很简单
Private Sub form_load()
Dim a As Long
a = Val(InputBox("请输入自然数"))
Do
Select Case a Mod 2
Case 0
a = a / 2
Case 1
a = a * 3 + 1
End Select
Loop While a <> 1
Print a
End Sub
最后都能得到1，欢迎追问！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息