Hvordan opprette en divisjons-tabell, og skrive den ut?

[Gr0v]

Jeg prøver å opprette en divisjonstabell, men får feilmelding som sier at "Arithmetic operation resulted in an overflow."

 

Tips for å få det til å virke?

 

 Dim tall1, tall2 As Integer

       For tall1 = 0 To 9
           For tall2 = 0 To 9
               divisjon(tall1, tall2) = tall1 / tall2
           Next tall2
       Next tall1
       MsgBox("Tabell opprettet")

 

Dim i As Integer

       For i = 0 To 9
           lstUtskrift.Items.Add(divisjon(i, i))
       Next i

[backup]

For tall2 = 0 To 9
divisjon(tall1, tall2) = tall1 / tall2
Next tall2

I matematikken er divisjon med null ikke tillatt, derfor feilmeldinga.

[Manfred]

Dele på null blir tull

 

...for å sitere en gammel matematikk-frøken...

[Gr0v]

hehe,okay. Hvordan gjr jeg da? Setter løkka til 1 to 9?

[Manfred]

...det pleier å hjelpe, hvis du ikke skal dele på null det, ja...

[Gr0v]

okay, nå klarer jeg å skrive ut hele tabellen, bortsett fra at alle tallene er 0,00. Hva kan det komme av?

[Manfred]

Du bruker heltall. Heltall kan ikke inneholde komma, og alle tall etter komma blir da kuttet.

 

Eks: 1/2 skal gi: 0.5, men siden den gjøres om til heltall ser systemet bort ifra tallene etter komma, og gir deg: 0

[Degeim]

Kanskje fordi det er integer. Prøv å deklarere i som double eller float.

[Manfred]

Jeg vant!

[Degeim]

Isj... ditt troll!