Exercise
Multiples
Objetive
Create a Visual Basic (VB.Net) program to display on the screen the numbers from 1 to 500 that are multiples of both 3 and 5. (Hint: Use the modulo operator to check for divisibility by both 3 and 5.)
Code
Imports System
Public Class Exercise28
Public Shared Sub Main()
Dim i As Integer = 1
While i <= 500
If (i Mod 3 = 0) AndAlso (i Mod 5 = 0) Then Console.Write("{0} ", i)
i += 1
End While
End Sub
End Class
Public Class Exercise28
Public Shared Sub Main()
Dim i As Integer = 1
For i = 1 To 500
If (i Mod 3 = 0) AndAlso (i Mod 5 = 0) Then Console.Write("{0} ", i)
Next
End Sub
End Class
Public Class Exercise28
Public Shared Sub Main()
For i As Integer = 15 To 500 Step 15
Console.Write("{0} ", i)
Next
End Sub
End Class