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

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

  • Comments 1

"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

Leave a Comment
  • Please add 5 and 8 and type the answer here:
  • Post
  • Aufgabe: Implementieren Sie Fehlerbehandlung für das Programm "Kreisinhalt berechnen" aus Webcast #2

Page 1 of 1 (1 items)