小柯的文章貼簿

    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

請點選此連結進入google drive下載
本人所使用之會計軟體為文中會計師輔助系統16.10版其內容會隨所操作之軟體而不同詳細操作說明，請另外爬文，謝謝。
7/21更新：為避免檔案濫用，請需要使用的網友放心申請閱讀權限，小弟會在24小時內回覆訊息，當您收到通知信之後，即可開始使用，謝謝。
8/6更新：這份檔案是小弟在去年(2017)七月第一次製作的檔案，因發現錯誤過多，即日起開放「編輯模式」，歡迎各位先進在上面更新檔案，提供網友使用，謝謝。(不需來信通知，直接更新即可)
8/9更新：因前幾天開啟編輯模式後，發現有網友誤刪資料夾內的檔案，故仍回到最原始的閱讀模式，可下載，但不能在上面修改，如發現有錯誤的地方，請直接將內容寄至以下信箱，謝謝。
s515107@tchcvs.tw，來信時請註明題組編號及修改內容，謝謝。
放回去的版本為2017年練習時的版本。

類別：會計事務--人工記帳
發證日期：中華民國106年8月30日

時間：民國106年9月16日 至 106年9月17日
地點：科技部中部科學工業園區管理局

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