Jag har skrivit detta och längre ner kommer det att den inte gillar en rad, men vad innebär det och vad har jag gjort för fel???

Private Function framtidbefolk(ByVal befolk As Integer, ByVal ökning As Double) As Integer
Return befolk * ökning
End Function

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

Const totbefolk As Single = 10000000000
Dim startbefolk As Single = 6000000000
Dim year As Integer = 1999
Dim ökning As Double = 1.4
Dim i As Integer

Do While startbefolk <= totbefolk
startbefolk = framtidbefolk(startbefolk, ökning) "det är här den markerar"
'year += 1
Loop
txtbefolk.Text = startbefolk
End Sub
Felmeddelandet blir:
An unhandled exception of type 'System.OverflowException' occurred in Inlämningsuppg 3_1.exe

Additional information: Arithmetic operation resulted in an overflow.

Kort och gott så får inte resultatet plats i din variabel. Prova att göra om från <b>Single</b> till <b>Integer</b>. Om du ändå vill behålla små datatyper så kan du juh bara dividera bort storleken (onödigt att räkna med en massa nollor) och multiplicera tillbaka vid visningen

tack för det snabba svaret, nu blev det rätt