18 lines
283 B
Text
18 lines
283 B
Text
|
Dim Shared seed As Integer = 675248
|
||
|
|
Dim i As Integer
|
||
|
|
Declare Function Rand As Integer
|
||
|
|
For i = 1 To 5
|
||
|
|
Print Rand
|
||
|
|
Next i
|
||
|
|
Sleep
|
||
|
|
|
||
|
|
Function Rand As Integer
|
||
|
|
Dim s As String
|
||
|
|
s = Str(seed ^ 2)
|
||
|
|
Do While Len(s) <> 12
|
||
|
|
s = "0" + s
|
||
|
|
Loop
|
||
|
|
seed = Val(Mid(s, 4, 6))
|
||
|
|
Rand = seed
|
||
|
|
End Function
|