VBA/Excel/Access/Word/Data Type/Single — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Display in a message box the number of seconds passed since midnight.
<source lang="vb">
Sub timerDemo()
Dim seconds As Single seconds = timer MsgBox (seconds)
End Sub
</source>
Do Until... Loop Loops with Single value
<source lang="vb"> Sub Lottery_1() Dim sngWin As Single Do Until sngWin > 2000 sngWin = Rnd * 2100 Debug.Print sngWin, , "Lottery" Loop End Sub </source>
Save random value to Single data type variable
<source lang="vb"> Sub Lottery_1() Dim sngWin As Single Do Until sngWin > 2000 sngWin = Rnd * 2100 Debug.Print sngWin, , "Lottery" Loop End Sub </source>