vb改错求镜反平方数在线等

11 |

1 | 2010-6-13 10:17:53 | 显示全部楼层 |阅读模式

n与m 都不含0 不相等 n的反序数m 例如12和21 他们平方 144 和411 正好相反改错下面代码 private sub command1click
dim n as integer fn as integer st as string
for n=11 to 99
ifinstr(cstr(n)),
"0")0 then
fn=fx(n)
if validate(n,fn)and n0）fx=fx*10+(n mod 10)n=n/10loopend function

使用道具举报