11 lines
189 B
Text
11 lines
189 B
Text
|
Public Sub Main()
|
||
|
|
Dim iNum As Long
|
||
|
|
|
||
|
|
For iNum = 1 To 100000
|
||
|
|
If Str(iNum * iNum) Ends "269696" Then Break
|
||
|
|
Next
|
||
|
|
|
||
|
|
Print "The lowest number squared that ends in '269696' is " & Str(iNum)
|
||
|
|
|
||
|
|
End
|