10 lines
189 B
Text
10 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
|