這是朋友問我的問題..
但是我不會程式語言
請各位大大幫幫忙!!!
看某這個...
程式如下:
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."