Harjoituksia



Toistolauseet Visual Basicissä

Tehtävä 1
Kirjoita (esimerkiksi painikkeen alle) seuraava koodi
Dim I As Integer
' Laskurin nimi voi olla näin lyhyt
For I = 1 To 10
Print ("Risto Reipas")
Next I

Ohjelman toiminta
1) Määritellään muuttujan I tyypiksi kokonaisluku (Integer)
2) Ohjelmaa voi kommnetoida näin - ei vaikuta ohjelman toimintaan
3) Määritellään, mitkä arvot muuttujat saa, tässä tapauksessa yhdestä kymmeneen
4) Jokaisella "kierroksella" lomakkeelle tulostuu lainausmerkeissä annettu teksti.
5) Uusi "kierros" alkaa aina kymmeneen saakka

Tehtävä 2
Muuta ohjelma seuraavaksi
Dim I As Integer
Dim Kpl As Integer
Kpl = 10
For I = 1 To Kpl
Print ("Risto Reipas")
Next I

Toiminta on sama - kappalemäärä annetaan eri tavoin.

Tehtävä 3
Kirjoita ohjelma, jossa käyttäjä määrää, kuinka monta kertaa tulostetaan.
Määrittele tekstiruutu lomakkeelle tätä varten. Tulosta sitten niin monta kertaa näytölle teksti "Ohjelmointi on kivaa"

Vihje:
lkm = Val(Text1.Text)
Dim I As Integer
For I = 1 To lkm
Print I
Next I


Tehtävä 4
Tee tehtävät 1 ja 2 käyttäen sekä

Do .. Loop While ja Do .. Loop Until - rakennetta käyttäen
Katso
Toistolauseet Visual Basicissä

Lisää Vertailulauseista