Keskustelu: Ohjelmointikysymykset: VB6: VB Apuva!!

En pääse tästä nyt yli enkä ympäri, miten saan tehtyä lauseet;

Jos yksi(kin) luvuista on parillinen, ohjelma tulostaa "parillisten summa = parillisten lukujen summa, jonka ohjelma laskee".

Tän jälkeen teksti: "Parittomien summa = parittomien lukujen summa, jonka ohjelma laskee"

Esim: "Parillisten summa = 4" ja "Parittomien summa = 7"

Jos joku viitsisi antaa jotakin mallia, olisin kiitollinen! Itse olen miettinyt tuota jo tuntikaupalla mutta aina siinä on joku virhe.... :-(

Jos meillä on taulukollinen lukuja:

Dim t(1 to 100) As Integer

Ja arvomme niihin arvot:

Dim c As Integer
For c = 1 to 100
  t(c) = Int(Rnd * 12345)
Next c

Lasketaan parittomien lukujen määrä:

Dim parittomat As Integer
For c = 1 to 100
  If t(c) And 1 Then parittomat = parittomat + 1
Next c

Parilliset saadaan erotuksella:

parilliset = 100 - parittomat

Kiitos! Mutta en osaa tehdä noita taulukoita ollenkaan. Ajattelin ihan "tavallista tapaa", esim. jos lukuja on ainoastaan vaikkapa 3 kpl. (Tiedän kyllä, että silloin pitäisi käyttää taulukkoa, jos käsiteltäviä lukuja on paljon, muuta en noista taulukoista sitten tiedäkään.)