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.