Do Until... Loop Loops with Single value : Single « Data Type « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Data Type
  3. Single

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








Related examples in the same category

1.Display in a message box the number of seconds passed since midnight.
2.Save random value to Single data type variable