'''' OEFENING 1 '''''
Module Module1
Sub Main()
'declaratie
Dim keuze, teller, teller2 As Integer
Dim lijn As String
'invoer
Console.WriteLine("Wat kies je?")
Console.WriteLine(ControlChars.Tab & "1. Lijn")
Console.WriteLine(ControlChars.Tab & "2. Stippellijn")
Console.WriteLine(ControlChars.Tab & "3. Vierkant")
Console.WriteLine(ControlChars.Tab & "4. Driehoek")
Console.WriteLine(ControlChars.Tab & "5. Omgekeerde driehoek")
Console.WriteLine(ControlChars.Tab & "9. Stoppen" & ControlChars.NewLine)
keuze = Console.ReadLine
'verwerking
Select Case keuze
Case 1
For teller = 1 To 20
Console.Write("-")
Next
Case 2
For teller = 1 To 10
Console.Write("-*")
Next
Case 3
For teller = 1 To 10
lijn &= "*"
Next
For teller2 = 1 To 10
console.writeline(lijn)
Next
Case 4
For teller = 1 To 5
lijn &= "*"
Console.WriteLine(lijn)
Next
Case 5
For teller = 5 To 1 Step -1
For teller2 = 1 To teller
Console.Write("*")
Next
Console.WriteLine()
Next
Case 9
Console.ReadLine()
End
Case Else
Console.WriteLine("Geen geldige keuze")
End Select
'uitvoer
'wacht op enter
Console.ReadLine()
End Sub
End Module
'''' OEFENING 2 '''''
Module Module1
Sub Main()
'declaratie
Dim keuze As String
Dim teller, teller2 As Integer
'invoer
Console.Write("Wens je een tekening te maken? (j/n) ")
keuze = Console.ReadLine.ToLower
'verwerking en uitvoer
Do While Not keuze = "n"
Console.WriteLine()
Console.WriteLine("hier komt de driehoek:")
For teller = 1 To 9
For teller2 = 1 To teller
Console.Write(teller)
Next
Console.WriteLine()
Next
Console.Write("Wens je een tekening te maken? (j/n)")
keuze = Console.ReadLine.ToLower
Loop
Console.Clear()
'wachten op enter
Console.Write("druk op enter")
Console.ReadLine()
End Sub
End Module