DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
pwr2 = 1
For n = 1 To 20149
pwr2 = (pwr2 * 2) Mod 17
tst = pwr2 - n * n
If tst Mod 17 = 0 Then
ct = ct + 1
End If
Next
Text1.Text = Text1.Text & ct & crlf & " done"
End Sub
finds
2371
|
Posted by Charlie
on 2015-08-12 15:50:13 |