Übungsaufgaben und Lösungen zu „Get the BASICs, Visual Basic für Einsteiger und Umsteiger“, Teil 1-3


“Get the BASICs, Visual Basic für Einsteiger und Umsteiger”, Teil 1


Aufgabe


Schreiben Sie ein Programm, das mit den Zeichen + I und ein kleines Fenster ausgibt.


Verwenden Sie die Befehle Console.WriteLine() und/oder Console.Write()


+——————–+


I                    I


I  VB.NET ist cool!  I


I                    I


+——————–+


Lösung


Option Strict On


Option Explicit On


 


Module Module1


 


    Sub Main()


 


        ‘ VB.NET ist cool! in einer Box auf der Console ausgeben


        System.Console.WriteLine(“+——————–+”)


        System.Console.WriteLine(“+                    +”)


        System.Console.Write(“+  )


        System.Console.Write(“VB.NET ist cool!”)


        System.Console.WriteLine(  +”)


        System.Console.WriteLine(“+                    +”)


        System.Console.WriteLine(“+——————–+”)


 


    End Sub


 


End Module


“Get the BASICs, Visual Basic für Einsteiger und Umsteiger”, Teil 2


Aufgabe


Schreiben Sie ein Programm welches den Kreisinhalt (A) berechnet.
A = πr²


Verwenden Sie die Befehle Console.WriteLine() und/oder Console.Write() und/oder Console.ReadLine() und System.Math.PI.


Bitte geben Sie den Radius des Kreises in cm ein: 5


Der Kreisinhalt eines Kreises mit Radius 5cm beträgt ca. 78,5cm².


Lösung


Option Strict On


Option Explicit On


 


Module Module1


 


    Sub Main()


 


        Dim Radius As Double


        Dim Kreisinhalt As Double


 


        Console.Write(“Bitte geben Sie den Radius des Kreises in cm ein: “)


        Radius = Convert.ToDouble(Console.ReadLine)


 


        ‘ Kreisinhalt berechnen


        Kreisinhalt = Math.PI * Math.Pow(Radius, 2)


 


        Console.WriteLine(“Der Kreisinhalt eines Kreises mit “ & _


        “Radius {0}cm beträgt ca. {1}cm².”, Radius, Kreisinhalt)


 


    End Sub


 


End Module


“Get the BASICs, Visual Basic für Einsteiger und Umsteiger”, Teil 3


Aufgabe


Schreiben Sie ein Programm welches mit Hilfe einer Schleife



  • die Zahlen 1, 4, 7, 10, 13 und 16 ausgibt.

  • die Quadratzahlen von 0 bis 20, jedoch nicht die Quadratzahl von 10, zeilenweise ausgibt

  • einen halben Tannenbaum ausgibt
    *
    **
    ***
    ****
    *****
    ******
    *******
    ********
    *********
    **********
    ***********
    ***
    ***
    ***

Lösung


Option Strict On


Option Explicit On


 


Module Module1


 


    Sub Main()


 


 


        ‘ die erste Aufgabe


        ‘ Schreiben Sie ein Programm welches mit Hilfe einer Schleife


        ‘ die Zahlen 1, 4, 7, 10, 13 und 16 ausgibt.


        Console.WriteLine(“Aufgabe 1”)


        Console.WriteLine(“——————————————“)


 


        ‘ die Lösung der ersten Aufgabe


        For i As Integer = 1 To 16 Step 3


 


            Console.Write(i & ” “)


 


        Next


 


        ‘ zwei leere Zeilen ausgeben


        Console.WriteLine()


        Console.WriteLine()


 


 


        ‘ die zweite Aufgabe


        ‘ Schreiben Sie ein Programm welches mit Hilfe einer Schleife


        ‘ die Quadratzahlen von 0 bis 20 zeilenweise ausgibt


        ‘ Wichtig! Die Quadratzahl der Zahl 10 soll NICHT ausgegeben werden!


        Console.WriteLine(“Aufgabe 2”)


        Console.WriteLine(“——————————————“)


 


        ‘ die Lösung der zweiten Aufgabe


        For i As Integer = 0 To 20


 


            If i <> 10 Then


 


                Console.WriteLine(” Die Quadratzahl von {0} ist {1}.”, i, Math.Pow(i, 2))


 


            End If


 


        Next


 


        ‘ zwei leere Zeilen ausgeben


        Console.WriteLine()


        Console.WriteLine()


 


 


        ‘ die dritte Aufgabe


        ‘ Schreiben Sie ein Programm welches mit Hilfe einer Schleife


        ‘ einen halben Tannenbaum ausgibt


        Console.WriteLine(“Aufgabe 3”)


        Console.WriteLine(“——————————————“)


 


 


        For i As Integer = 0 To 13


 


            For j As Integer = 0 To 13


 


                If i < 11 Then


                    Console.Write(“*”)


 


                    If j = i Then


                        Console.WriteLine()


                        Exit For


                    End If


 


                Else


                    Console.WriteLine(“***”)


                    Exit For


 


                End If


 


            Next    ‘ j


 


        Next    ‘ i


 


    End Sub


 


End Module

Comments (1)

  1. says:

    Aufgabe: Implementieren Sie Fehlerbehandlung für das Programm "Kreisinhalt berechnen" aus Webcast #2