[VB6 ] 請問一下...程式求解

[zzire (zero)]

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

--

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.117.32.63
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1435763935.A.2DE.html
→ LPH66: 你請你朋友自己上來問吧
→ MOONRAKER: 你朋友要問什麼。
→ dennisxkimo: 我猜他朋友是問每一行在做什麼的解釋
→ MOONRAKER: 我不想用猜的，他應該自己講清楚他想問什麼。
→ MOONRAKER: 以及他是否就是他朋友。
→ rose8500926: 軟體設計丙級題目-_-
推 ClubT: 這是VB嗎?
→ MOONRAKER: 有一些VB.NET的東東。
→ MOONRAKER: 和很多錯字。