當計數器是3,6,9,12時，我想彈出一個MsgBox ....... 99

Question

當計數器是3,6,9,12時，我想彈出一個MsgBox ..... ..99。

以下代碼需要補充。

Dim Counter As Integer 
    Do While Counter Is threefold 
     MsgBox("Hello") 
     Counter = Counter + 1 
    Loop 

Answer 1

假設99是你的極限，使用下面的mod將會有所幫助。

國防部給你找了一些除數的能力，作爲剩餘部分，始終爲0（在你的情況，你是經過「國防部3」）

Dim counter As Integer = 1 
While counter < 100 
    If (counter mod 3) = 0 Then 
     MsgBox("Hello") 
    End If 
    Counter += 1 
End While 

小提琴這裏：https://dotnetfiddle.net/gvFjGV

的另一種方式做到這一點是有For循環 - 這將節省宣佈計數器&記住的循環

Answer 2

您必須使用Mod操作符。

我不知道什麼是三倍，但你可以測試這個循環：

For i As Integer = 0 To 99 
    If i > 0 Then 
     If i Mod 3 = 0 Then 
      MsgBox(i) 
     End If 
    End if 
Next 

編輯：作爲魯本斯所提到的，這也是可能的：

For i As Integer = 3 To 99 Step 3 
    If i Mod 3 = 0 Then 
     MsgBox(i) 
    End If 
Next