这是朋友问我的问题..
但是我不会程式语言
请各位大大帮帮忙!!!
看某这个...
程式如下:
DIm m0,m1.m2,m3,m4
Fileopen(1,"路径\940301.am",openmode input)
Input(1,m0)
Fileclase(1)
M1=mo
For I = 1 to 9
M2= m1\10
M3= m1 mod 10
M4= m4 & m3
If m2 = 0 then exit for
M1=m2
Next
If m0 = m4 then
Textbox1.texe="第一题结果" & m0 & " is a palindrome."
Textbox1.text="第一题结果" & m0 & " is a not palindrome."