Mencari Bilangan Genap dengan menggunakan Prosedur

Module Module1

Private Sub genap(ByVal a As Integer, ByVal i As Integer)

       Console.Write("bilangan : ")
        i = Console.ReadLine
        For a = 1 To i
            If a Mod 2 = 0 Then
                Console.WriteLine(a)

            End If
        Next
End Sub


Sub Main()
        Dim a, i As Integer
    
        genap(a, i)

        Console.ReadKey()

End Sub

End Module

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...