Page 124 -

附錄四：11900 電腦軟體設計丙級學科題庫(105 年新版)

附錄三：電腦軟體設計丙級術科解題技巧

11900-940301 物件名稱(Name) 物件屬性
b01 Text=第一題
【物件內容】 t01 MultiLine=True
物件項目
Button
TextBox

【程式碼-For-Next 迴圈】

Dim x, y, z As Long
FileOpen(1, "c:\丙設磁片\940301.sm", OpenMode.Input)
Input(1, x)
FileClose(1)
z=x
For i = 1 To 9

y = y & (x Mod 10)
x = x \ 10
If x = 0 Then Exit For
Next
If z = y Then
t01.Text = "第一題結果：" & z & " is a palindrome."
Else
t01.Text = "第一題結果：" & z & " is not a palindrome."
End If

120