Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Do Until Loop Loops with Single value

Sub Lottery_1()       Dim sngWin As Single       Do Until sngWin > 2000           sngWin = Rnd * 2100           Debug.Print sngWin, , "Lottery"       Loop   End Sub