Harjoituksia
1. Tee ohjelma, joka arpoo numeroita 1 - 100 välistä ja sijoittaa tuloksen tekstitietoon.
Ohje: Tekstitieto
Painike (jonka alle alla oleva ohjelma)
Lopeta-painike
'arpoo luvun ja sijoittaa text1-olioon
Randomize
Text1.Text = Int(Rnd * 99) + 1
2. Tee ohjelma, joka arpoo 3 numeroa lukujen 1 - 100 väliltä.
Ohje: List-olio (ListBox), johon numerot tulostuvat allekkain
Painike (jonka alle alla oleva ohjelma)
Lopeta-painike
'tyhjentää luetteloruudun
List1.Clear
'arpoo 3 lukua ja sijoittaa list1-olioon
Randomize
For laskuri% = 1 To 3
List1.AddItem Int(Rnd * 99) + 1
Next laskuri%
3. Muuta edellinen ohjelma sellaiseksi, että se arpoo sinulle 7 lottonumeroa ( 1 - 39)
Kiinnitä huomiota ohjelman ulkoasuun.