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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Data Type » 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
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.