Imports System.Console
 
Module Module1
    Dim zahl As Integer
    Sub Main()
        Write("Bitte geben Sie eine Zahl ein: ")
        zahl = ReadLine()
        If zahl Mod 2 = 0 Then
            If zahl Mod 4 = 0 Then
                If zahl Mod 5 = 0 Then
                    If zahl Mod 8 = 0 Then
                        WriteLine("Die Zahl ist durch 8 teilbar")
                    Else
                        WriteLine("Die Zahl ist nicht durch 8 teilbar")
 
                    End If
                    WriteLine("Die Zahl ist durch 5 teilbar")
                Else
                    WriteLine("Die Zahl ist nicht durch 5 teilbar")
 
                End If
                WriteLine("Die Zahl ist durch 4 teilbar")
            Else
                WriteLine("Die Zahl ist nicht durch 4 teilbar")
 
            End If
            WriteLine("Die Zahl ist durch 2 teilbar")
        Else
            WriteLine("Die Zahl ist nicht durch 2 teilbar")
 
        End If
        WriteLine("Bitte EINGABE drücken")
        ReadLine()
 
    End Sub
 
End Module

Imports System.Console
Module Module1
    Sub Main()
        Dim zahl As Integer
        Write("Bitte Zahl eingeben: ")
        zahl = ReadLine()
        WriteLine(Test(zahl))
        Warten()
    End Sub
 
    Function Test(ByVal zahl As Integer)
        Dim rrrichtig As String
        If zahl Mod 2 = 0 Then
            If zahl Mod 4 = 0 Then
                If zahl Mod 5 = 0 Then
                    If zahl Mod 8 = 0 Then
                        rrrichtig = "Die Zahl ist durch 8 teilbar"
                    Else
                        rrrichtig = "Die Zahl ist nicht durch 8 teilbar"
                    End If
                    rrrichtig = "Die Zahl ist durch 5 teilbar"
                Else
                    rrrichtig = "Die Zahl ist nicht durch 5 teilbar"
                End If
                rrrichtig = "Die Zahl ist durch 4 teilbar"
            Else
                rrrichtig = "Die Zahl ist nicht durch 4 teilbar"
            End If
            rrrichtig = "Die Zahl ist durch 2 teilbar"
        Else
            rrrichtig = "Die Zahl ist nicht durch 2 teilbar"
        End If
 
        Return rrrichtig
    End Function
 
    Sub Warten()
        Write("Bitte EINGABE drücken: ")
        ReadLine()
    End Sub
 
 
End Module