"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
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(" +")
End Sub
End Module
"Get the BASICs, Visual Basic für Einsteiger und Umsteiger", Teil 2
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².
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)
"Get the BASICs, Visual Basic für Einsteiger und Umsteiger", Teil 3
Schreiben Sie ein Programm welches mit Hilfe einer Schleife
' 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()
' die zweite Aufgabe
' die Quadratzahlen von 0 bis 20 zeilenweise ausgibt
' Wichtig! Die Quadratzahl der Zahl 10 soll NICHT ausgegeben werden!
Console.WriteLine("Aufgabe 2")
' 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
' die dritte Aufgabe
' einen halben Tannenbaum ausgibt
Console.WriteLine("Aufgabe 3")
For i As Integer = 0 To 13
For j As Integer = 0 To 13
If i < 11 Then
Console.Write("*")
If j = i Then
Exit For
Else
Console.WriteLine("***")
Next ' j
Next ' i
Aufgabe: Implementieren Sie Fehlerbehandlung für das Programm "Kreisinhalt berechnen" aus Webcast #2