一個打印兩個不同數字的公倍數的程序

Question

這是我的這個項目的代碼。

Module Module1 
Sub Main() 
    Dim X As Integer 
    X = 0 
    Do 
     X = X + 1 
     If X/2 = 0 And X/3 = 0 Then Debug.Print(X) 
     System.Console.WriteLine(X) 
    Loop Until (X = 100) 
    Console.ReadKey() 
End Sub 
End Module 

everthing編譯得很好，但它只是打印數字1到一百。我究竟做錯了什麼？

Answer 1

您有兩個問題。首先，你的Console.WriteLine不是你的If語句的一部分，所以它不管寫X，這就是爲什麼你看到每個打印的數字。

所以這是一個問題。下一個問題是你的If語句本身是不正確的。我認爲你正在尋找Mod測試一個數是另一個整除：

Module Module1 
    Sub Main() 
     Dim X As Integer 
     X = 0 
     Do 
      X = X + 1 
      If X Mod 2 = 0 And X Mod 3 = 0 Then 
       Debug.Print(X) 
       System.Console.WriteLine(X) 
      End If 
     Loop Until (X = 100) 
     Console.ReadKey() 
    End Sub 
End Module 

Answer 2

我假定你正在尋找如有數被2整除和 3.如果是這樣的話，那麼你想使用Mod功能，不/，因爲沒有由任何其他數量= 0除以數，除非該數字本身是0

If x mod 2 = 0 and x mod 3 = 0 then 
    'blah blah blah 
end if