For help, please leaders to help write the following two questions of the VB code-CodePudding

Online etc.! Very urgent! Thank you very much!

CodePudding user response:

For I=2000 to 3000
N1=val (left (CSTR (I), 1))
N2=val (mid (CSTR (I), 2, 1))
N3=val (mid (CSTR (I), 3, 1))
N4 interchange=val (right (CSTR (I), 1)
If n1 + n2=n3 + n4 interchange then debug. The print I
Next
Msgbox "QQ=5507350"

CodePudding user response:

reference 1st floor vansoft response:

for I=2000 to 3000
N1=val (left (CSTR (I), 1))
N2=val (mid (CSTR (I), 2, 1))
N3=val (mid (CSTR (I), 3, 1))
N4 interchange=val (right (CSTR (I), 1)
If n1 + n2=n3 + n4 interchange then debug. The print I
Next
Msgbox "QQ=5507350"

The final msgbox is what to do?