[VB6 ] 請問一下...程式求解
這是朋友問我的問題..
但是我不會程式語言
請各位大大幫幫忙!!!
看某這個...
程式如下:
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
→
07/01 23:46, , 1F
07/01 23:46, 1F
→
07/02 10:23, , 2F
07/02 10:23, 2F
→
07/02 22:53, , 3F
07/02 22:53, 3F
→
07/03 10:48, , 4F
07/03 10:48, 4F
→
07/03 10:48, , 5F
07/03 10:48, 5F
→
07/07 19:13, , 6F
07/07 19:13, 6F
推
07/08 15:03, , 7F
07/08 15:03, 7F
→
07/08 22:20, , 8F
07/08 22:20, 8F
→
07/08 22:21, , 9F
07/08 22:21, 9F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
