Múltiplos Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Múltiplos 29


Objetivo:

Cree un programa en Visual Basic para escribir en pantalla los números del 1 al 500 que son múltiplos de 3 y también múltiplos de 5 (sugerencia: use el resto de la división).


Código:

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