Basic do while循环和if do语句
Basic do while循环和if do语句
提问于 2014-11-10 05:13:32
我需要帮助创建这个程序。我需要:编写一个程序，请求一个正整数作为输入，并执行以下算法。
- 如果数字是偶数，除以2。
- 否则，将该数字乘以3并添加1。
- 使用结果编号重复此过程，并继续重复该过程，直到到达数字1为止。
- 到达数字1后，程序应该显示需要执行多少步。
现在我知道我在输出标签中的行错了，但不知道如何将步骤数放入其中。
Private Sub calcButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles calcButton.Click
Dim inputnum, output2, output3 As Integer
inputnum = inputTextbox.Text
Do
If inputnum <> 1 Then
If inputnum Mod 2 = 0 Then
resultListbox.Items.Add(output2)
Else
resultListbox.Items.Add(output3)
End If
End If
output2 = inputnum / 2
output3 = ((inputnum / 3) + 1)
Loop Until inputnum = 1
outputLabel.Text = "It took " & inputnum & " steps to reach 1."
End Sub程序在列表框中不显示任何数字。
回答 2
Stack Overflow用户
发布于 2014-11-10 05:43:33
您可以使用下面的代码来实现算法，您不会更改inputnum的值，这就是为什么您不能像预期的那样获得输出
Dim iterationCount As Integer = 0 '<--- count the number of iteration
Dim inputnum = inputTextbox.Text '<-- let it be 12
Do
If inputnum <> 1 Then
If inputnum Mod 2 = 0 Then
inputnum /= 2 '<-- If the number is even, divide it by 2.
resultListbox.Items.Add(inputnum)
Else
inputnum = inputnum / 3 + 1 '<--- Otherwise, multiply the number by 3 and add 1.
resultListbox.Items.Add(inputnum)
End If
iterationCount += 1 '<-- increment the iteration counter
End If
Loop Until inputnum = 1
outputLabel.Text = "It took " & iterationCount & " steps to reach 1."Stack Overflow用户
发布于 2014-11-10 05:53:07
试试这个：
Dim inputnum As Integer
Dim count As Integer = 0
inputnum = inputTextbox.Text
resultListbox.Items.Clear() 'clear the list for next input number
While inputnum <> 1
If inputnum Mod 2 = 0 Then
inputnum = inputnum / 2
resultListbox.Items.Add(inputnum)
Else
inputnum = inputnum * 3 + 1
resultListbox.Items.Add(inputnum)
End If
count = count + 1
End While
outputLabel1.Text = "It took " & count & " steps to reach 1."页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/26837181
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号