讓一個程序忽略一個數

Question

我有一個程序，確定一個數字是否是奇數，甚至有合適的標籤說總數是什麼，還有一個計數器，但我需要幫助，試圖讓程序忽略0，因爲當你在程序中輸入它，它意味着完成，但也算作偶數，並將其添加到EvenCount，謝謝！

Public Class Form1 
Dim Num, Decider, Oddcount, Oddtotal, Evencount, Eventotal As Integer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Do 
     Num = InputBox("Please enter whole number") 
     Decider = Num Mod 2 
     If Decider > 0 Then 
      MessageBox.Show("Odd") 
      Oddcount += 1 
      Oddtotal += Num 
     Else 
      MessageBox.Show("Even") 
      Evencount += 1 
      Eventotal += Num 
     End If 

    Loop Until Num = 0 
    LabelOdd.Text = Oddtotal 
    LabelEven.Text = Eventotal 
    LabelEvenCount.Text = Evencount 
    LabelOddCount.Text = Oddcount 
End Sub End Class  

Answer 1

如果你想忽略零，你最好使用Do..While語句，它在進入循環之前評估條件。

Public Class Form1 

Dim Num, Decider, Oddcount, Oddtotal, Evencount, Eventotal As Integer 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Num = 1 ' Initialised to force in step into loop 
    Do While Num <> 0 
     Num = InputBox("Please enter whole number") 

     ' Recheck the value inserted - if zero, break. 
     If Num = 0 Then Exit While 

     Decider = Num Mod 2 
     If Decider > 0 Then 
      MessageBox.Show("Odd") 
      Oddcount += 1 
      Oddtotal += Num 
     Else 
      MessageBox.Show("Even") 
      Evencount += 1 
      Eventotal += Num 
     End If 
    Loop 

    LabelOdd.Text = Oddtotal 
    LabelEven.Text = Eventotal 
    LabelEvenCount.Text = Evencount 
    LabelOddCount.Text = Oddcount 
End Sub End Class