Do Loop

Nedan har du ett par alternativ till slingor där man inte vet antalet loopar.

Do
   tal1 = Int(Rnd * 100) + 1
   tal2 = Int(Rnd * 100) + 1
   summa = tal1 + tal2
   antal += 1
Loop Until summa <= 50

Eller också kan man skriva

Do Until summa <= 50
   tal1 = Int(Rnd * 100) + 1
   tal2 = Int(Rnd * 100) + 1
   summa = tal1 + tal2
   antal += 1
Loop

© SupportData.Net