두 개의 다른 숫자의 공통 배수를 인쇄하는 프로그램

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 

모든 것이 잘 컴파일되지만 숫자는 1에서 100까지만 인쇄됩니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까?

Answer 1

두 가지 문제가 있습니다. 먼저 Console.WriteLine은 If 문에 포함되어 있지 않으므로 X를 아무 것도 쓰지 않으므로 인쇄 된 모든 숫자가 표시됩니다.

이렇게 한 가지 문제가 있습니다. 다음 문제는 If 문 자체가 올바르지 않다는 것입니다. 당신이 원하는, 내가 그런 경우 임의의 숫자가 2 및 3으로 나눌 경우에 당신이 찾고있는 가정

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

: 난 당신의 숫자가 다른 숫자로 나누어 질 경우 테스트 Mod 찾고있는 생각 다른 번호 = 0으로 더 분할 수는 그 수 자체가이 작동 0

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