RosettaCodeData/Task/Random-number-generator-device-/FreeBASIC/random-number-generator-device-.basic

11 lines
165 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
' FB 1.05.0 Win64
Randomize , 5
'generate 10 cryptographic random integers in the range 1 To 100
For i As Integer = 1 To 10
Print Int(Rnd * 100) + 1
Next
Sleep