高手进!!!小弟求教

来源：百度知道 编辑：UC知道 时间：2024/05/16 00:19:04
说废话的就别进了,等者用的,早来多拿分
任给一个三位数abc（10进制），算出abc与cba之和。若该和数不是回文数（即从左向右读与从右向左读是同一个数，如19391），再按上述方法求和。以此类推，直到得到回文形式的和数或者和数位数已超过15位时中止计算。
pascal

Private Sub Command1_Click()

Dim i As Long
i = Val(InputBox("请输入一个三位数"))

Do
If Len(Trim(Str(i))) > 15 Then Exit Do

i = i + Val(StrReverse(Str(i)))

Loop While i <> Val(StrReverse(Str(i)))

MsgBox i

End Sub

-----------------

function StrReverse(const AText: string): string;
var
I: Integer;
P: PChar;
begin
SetLength(Result, Length(AText));
P := PChar(Result);
for I := Length(AText) downto 1 do
begin
P^ := AText[I];
Inc(P);
end;
end;

不想学习啊，别学了啊。手机上空中网玩会吧