zettekakkers
Gebruiker
- Lid geworden
- 21 jul 2011
- Berichten
- 134
[CPP]Dim intTeller As Integer
Dim dblGetal, dblSom As Double
Dim strInvoer As String
btnStart.Visible = False
dblSom = 0
intTeller = 1
Do
strInvoer = InputBox("Geef getal" & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)
Do Until dblGetal < 0
If dblGetal > 0 Then
intTeller += 1
dblSom += dblGetal
End If
Do
strInvoer = InputBox("Geef getal " & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)
Loop
If dblGetal < 0 Then
lblSom.Text = "De som is:" & dblSom.ToString
End If
[/CPP]
Dit is mijn code maar ik wil het zonder If then?
mijn programma maakt de som van een aantal getallen totdat een negatief getal ingevoerd word. dit negatief getal mag niet bij de som worden bijgeteld.
Nog een klein vraag je wat is een ""venster direct""?
Dim dblGetal, dblSom As Double
Dim strInvoer As String
btnStart.Visible = False
dblSom = 0
intTeller = 1
Do
strInvoer = InputBox("Geef getal" & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)
Do Until dblGetal < 0
If dblGetal > 0 Then
intTeller += 1
dblSom += dblGetal
End If
Do
strInvoer = InputBox("Geef getal " & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)
Loop
If dblGetal < 0 Then
lblSom.Text = "De som is:" & dblSom.ToString
End If
[/CPP]
Dit is mijn code maar ik wil het zonder If then?
mijn programma maakt de som van een aantal getallen totdat een negatief getal ingevoerd word. dit negatief getal mag niet bij de som worden bijgeteld.
Nog een klein vraag je wat is een ""venster direct""?