Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Save random value to Single data type variable

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