Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long
FileOpen(1, "C:\1060301.txt", OpenMode.Input)
Input(1, n)
FileClose()
Dim Q, n1 As Long
Q = n
For i = 1 To 9
n1 = n1 * 10 + Q Mod 10
Q = Q \ 10
If Q = 0 Then Exit For
Next
If n = n1 Then
TextBox1.Text = "第一題結果：" & n & " is a palindrome"
Else
TextBox1.Text = "第一題結果：" & n & " is not a palindrome"
End If
End Sub
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
本人所使用之會計軟體為文中會計師輔助系統16.10版
其內容會隨所操作之軟體而不同
詳細操作說明，請另外爬文，謝謝。
7/21更新：為避免檔案濫用，請需要使用的網友放心申請閱讀權限，小弟會在24小時內回覆訊息，當您收到通知信之後，即可開始使用，謝謝。
8/6更新：這份檔案是小弟在去年(2017)七月第一次製作的檔案，因發現錯誤過多，即日起開放「編輯模式」，歡迎各位先進在上面更新檔案，提供網友使用，謝謝。(不需來信通知，直接更新即可)
8/9更新：因前幾天開啟編輯模式後，發現有網友誤刪資料夾內的檔案，故仍回到最原始的閱讀模式，可下載，但不能在上面修改，如發現有錯誤的地方，請直接將內容寄至以下信箱，謝謝。
s515107@tchcvs.tw，來信時請註明題組編號及修改內容，謝謝。
放回去的版本為2017年練習時的版本。
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
類別：會計事務--人工記帳
發證日期：中華民國106年8月30日
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
時間：民國106年9月16日 至 106年9月17日
地點：科技部中部科學工業園區管理局
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim id$ = "jack"
Dim pw$ = "luck007"
If TextBox1.Text = id And TextBox2.Text = pw Then
MsgBox("歡迎進入圖書資訊系統", , "系統提示")
Else
MsgBox("帳號或密碼輸入錯誤，請重新輸入", , "系統提示")
End If
台中家商 小柯 發表在 痞客邦 留言(0) 人氣()
{{ article.title }}
研究報告 (8)