Beste allen,
Ik heb voor school een opdracht gekregen. Namelijk; ''Lees een getal in totdat het getal 999 wordt ingevoerd. Voer het grootste getal uit.' Ik heb deze opdracht volbracht en het volgende is het resultaat.
Graag zou ik willen weten of er een compactere manier is om dit te programmeren.
Alvast bedankt!
Ik heb voor school een opdracht gekregen. Namelijk; ''Lees een getal in totdat het getal 999 wordt ingevoerd. Voer het grootste getal uit.' Ik heb deze opdracht volbracht en het volgende is het resultaat.
Code:
[INDENT]Public Class Form1
Private Sub Klik_Click(sender As System.Object, e As System.EventArgs) Handles klik.Click
Dim ingave As String
Dim getal As Integer
Dim getallen As New List(Of Integer)
Do ingave = InputBox("Geef een getal in.")
If Integer.TryParse(ingave, getal) Then getallen.Add(getal)
Else MsgBox("U gaf geen getal in.")
End If
Loop Until getal = 999
MsgBox("Het grootste getal is " & getallen.Max())
End Sub
EndClass[/INDENT]
Graag zou ik willen weten of er een compactere manier is om dit te programmeren.
Alvast bedankt!
Laatst bewerkt door een moderator: