While

Slingan For Next används när man vet mellan vilka värden en variabel skall gå. Om man inte vet det, kan man använda sig av While, som betyder att så länge ett villkor är uppfyllt skall programslingan upprepas. För att visa detta kan vi använda oss av en slumptalsgenerator. Skapa en form med tre labels och en knapp.

Meningen är att programmet skall generera två slumptal. Dessa tal adderas och om summan är större än 50 så ökar en räknare med ett, varpå två nya slumptal genereras. Detta upprepas tills summan är <=50. Då skall de båda talen visas i Textboxarna, och i Label1.Text får man ett meddelande om hur många slumpningar som behövdes innan summan blev <=50.

Om vi dubbelklickar på Button, som vi tilldelat "Nytt tal" i dess egenskap Text, kan vi skriva följande kod

Dim tal1, tal2, summa, antal As Integer
antal = 0
summa = 100
Randomize()

While summa > 50
   tal1 = Int(Rnd() * 100) + 1
   tal2 = Int(Rnd() * 100) + 1
   summa = tal1 + tal2
   antal += 1
End While

Label1.Text = tal1
Label2.Text = tal2
Label3.Text = "Antal kast innan summa är < 50 är " & antal & " stycken"

Variabeln "antal" nollställs

Variabeln "summa" skall från början ha ett värde över 50, annars uppfylls ju inte villkoret och slingan påbörjas aldrig.

Vi säger åt datorn att så länge variabeln summa är >50, skall slingan efter While utföras fram till End While.

Vi tilldelar "tal1" och "tal2" ett slumptal mellan 1 och 100. Rnd är själva slumptalet mellan 0 och 1. Detta multipliceras med det tal som man vill ha som största slumptal, i detta fallet 100. Int() betyder att man tar heltalsdelen av talet Rnd*100. Detta ger ett slumptal mellan 0 och 99. Om man vill ha talet mellan 1 och 100 adderar man talet med 1.

Sedan tilldelas variabeln summa=tal1 + tal2 och variabeln "antal" ökas med ett. Antal += 1 är samma sak som antal = antal + 1 som man gjorde i VB6.

Om summa är >50 upprepas slingan, annars hoppar programmet ur slingan. Där tilldelas textboxarna sina värden - TextBox1.Text får värdet som finns i tal1 och TextBox2.Text får värdet i tal2.

Label1.Text tilldelas en text som skall stå mellan " ". &-tecknet betyder att efter texten skall värdet på variabeln "antal" stå. Nästa & säger att efter värdet skall det stå "stycken".

© SupportData.Net