Doing 2009 steps, starting with zero and multiplying by 100 and adding 23, mod 999, gets the same result: 991
DefDbl AZ
Dim crlf$
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
v = 0
For i = 1 To 2009
v = v * 100 + 23
v = v Mod 999
DoEvents
Next
Text1.Text = Text1.Text & v & " done"
DoEvents
End Sub

Posted by Charlie
on 20191118 12:31:20 