If Then Else
For Next 
Kombinera For To med If Then 
Den sats man nog har mest nytta av i ett program är If Then Else. Alltså: Om ett bestämt villkor är uppfyllt, skall en sak inträffa. I annat fall skall något annat inträffa.
Lägg ut en knapp och en label. Koden för Button1 blir
Dim tal As Integer
Randomize
tal = Int(Rnd() * 6) + 1
Label1.Text = "Tärningen visar " & tal
If tal < 4 Then
Label1.BackColor = Color.Green
Else
Label1.BackColor = Color.Red
End If
Först dimensionerar vi en variabel - tal av typen heltal. I den går det inte att lägga decimaltal.
Med Randomize "sår man fröet" till ett slumptal mellan 0 och 1. Om man inte sår detta frö, kommer man att få samma sekvens av slumptal varje gång man startar programmet.
Sedan förstorar vi slumptalet (Rnd() till ett slumptal mellan 0 och 5 genom att skriva Rnd()*6. Använder man bara Rnd()*6 får man även decimaler. Därför sätter vi Int() för att bara få heltalssdelen av slumptalet*6.
Sist adderar vi med 1 och får alltså ett slumptal mellan 1 och 6 som motsvarar att kasta en tärning. Det genererade slumptalet ges till variabeln tal. Texten i Label1 skall bli: "Tärningen visar", och sedan det som finns i variabeln tal.
Sedan kommer If-satsen. Om tal < (är mindre än) 4 skall texten visas på grön bakgrund. I annat fall skall texten visas på röd bakgrund.
For Next Kombinera For To med If Then © SupportData.Net