VB, square number of reverse order-CodePudding

In front of the two is the topic, the last one I wrote, no response after press the button, who told me what was wrong

CodePudding user response:

Press F8 tracking again, to know;

CodePudding user response:

You this is randomly generated 1 time, not exhaustive, so can the result completely luck;

CodePudding user response:

Is not particularly difficult, here is a simple procedure, estimation is you need, within 1000 square reverse number to:

 
As Integer Dim a, b As an Integer, c As Long, d As Long, C1 As String, D1 As String 

Private Sub Command1_Click () 
'within 1000 square reverse number of 
A=1000: b=1000 
For I=1 To a 
For J=I + 1 To 
=the I ^ 2 c: d=J ^ 2 
C1=CStr (c) : D1=CStr (d) 
If StrReverse (C1)=D1 Then 'the reverse order of C1 and D1 phase at the same time, the print on the screen 
Print the I & amp; "^ 2=" & amp; C & amp; Space (6) & amp; J & amp; "^ 2=" & amp; D 
End the If 
Next J 
Next I 
End Sub