Visual Basicの私はVisual Basicの上だ

Question

を分割し、私は私の先生が書いたコードのいくつかの作品を読んだ、彼はこのコードのchunckを持っていましたと数=数-2私はそれを変更することで、それを簡素化しようとしたので、私は実際にその部分を理解していない：

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をクリックした後、凍結し続けます

提案がありますか？

Answer 1

それはあなたがそれ無限ループ作られたので、フリーズ：

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

ループはnumberの値をチェックしますが、ループ内で変更したコードは決して修正numberの値。したがって、条件が最初にチェックされたときに条件が真であれば、常に真となります。 、それは最終的にループ条件が偽の製造、0に等しくなる（それもだと仮定して）であろうnumberので

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

は、ループの各反復で2だけデクリメントされ、ループが終了します：元のコード値を変更し。

基本的に、ループは何らかの形で条件でチェックされている値を変更する必要があります（またはループを終了するための他の制御ステートメントがある）か、ループが無限に実行されます。