的Visual Basic將

我在Visual Basic中，我通過一些代碼段我老師寫讀書，他有這chunck代碼：的Visual Basic將

Private Sub btnDividing_Click(sender As Object, e As EventArgs) Handles btnDividing.Click 
    Dim number As Integer = InputBox("Divide number by 2:") 
    Dim result As Integer = 0 

    Do While (number <> 0) 
     result += 1 
     number = number - 2 
    Loop 
    MsgBox("The result is: " & result, MsgBoxStyle.Exclamation) 

End Sub

所以我的老師鍵入結果+ = 1和數=號-2我真的不明白那部分，所以我試圖將其更改爲簡化IT：

Dim number As Integer = InputBox("Divide number by 2:") 
    Dim result As Integer = 0 

    Do While (number <> 0) 
     result = number/2 
    Loop 
    MsgBox("The result is: " & result, MsgBoxStyle.Exclamation) 

End Sub

但它一直在我點擊「OK」

012凍結

有什麼建議嗎？

來源

2017-06-18 KoyaCho

注意：這不是VBA，所以我編輯標籤來說它是VB.Net。（我相當肯定這將是正確的。） – YowE3K

作爲一個方面說明，我會推薦Option Strict https://stackoverflow.com/documentation/vb.net/4022/option-strict和Dim code = Val（InputBox （「Divide number by 2：」））'作爲InputBox返回一個字符串 – Slai

有一個巨大的假設，數字將是偶數。如果不是，它將是一個循環。也許老師的意思是> 0而不是<> 0.讓我們希望如此。 – dbasnett

凍結，因爲你來了一個無限循環：

Do While (number <> 0) 
    result = number/2 
Loop

循環檢查的number的價值，但在循環修改後的代碼永遠不會修改的number值。所以如果在第一次檢查時條件成立，它總會是真的。原始代碼修改的值：

Do While (number <> 0) 
    result += 1 
    number = number - 2 
Loop

由於number由2與循環的每次迭代遞減，它最終將（假設它是偶數）是等於0，使得循環條件爲假並且循環將結束。

基本上，循環需要以某種方式修改在條件中被檢查的值（或者有一些其他控制語句退出循環）或循環將無限運行。

來源

2017-06-18 20:05:57 David

的Visual Basic將

回答

相關問題