Programming Language https zh wikipedia orgwikiE 7BC96E 7A

程式語言的基本概念 程式語言(Programming Language) 參考：維基百科，關鍵字：程式語言 (https: //zh. wikipedia. org/wiki/%E 7%BC%96%E 7%A 8%8 B%E 8%AF%AD%E 8%A 8%80) 參考： Jacquard loom You. Tube, 關鍵字： marble machine 參考：APCS大學程式設計先修檢測 (https: //apcs. csie. ntnu. edu. tw/index. php)

程式語言的基本語法 • Data types(資料型別) • Constant(常數), Variable(變數) Global (全域的 常數/變數) Local (區域的常數/變數) • Control structures (流程控制結構) • Loop structures (迴圈結構) • Functions (函數) • Recursion (迴圈) • Array and Structures (陣列與結構)

巨集範例：Test 1 ' *************** Sub Test 1() Dim obj. Sheet As Worksheet Set obj. Sheet = Excel. Active. Sheet Dim i. Src. Col. Idx As Integer Dim i. Dest. Col. Idx As Integer i. Src. Col. Idx = 11 ' Column: K i. Dest. Col. Idx = 12 ' Column: L If In. Str(1, obj. Sheet. Cells(4, i. Src. Col. Idx), "標籤") <> 0 Then obj. Sheet. Cells(4, i. Dest. Col. Idx) = "標籤" Else End If

巨集範例：Test 2 ' *************** Sub Test 2() Dim obj. Sheet As Worksheet Set obj. Sheet = Excel. Active. Sheet Dim i. Test. Col. Idx As Integer i. Test. Col. Idx = 1 Dim i. Begin. Row. Idx As Integer i. Begin. Row. Idx = 4 Dim i As Integer For i = i. Begin. Row. Idx To 10000 If obj. Sheet. Cells(i, i. Test. Col. Idx) = "" Then Exit For Else End If Next i Msg. Box "總筆數：" & (i - i. Begin. Row. Idx) End Sub

巨集範例：Test 3 ' *************** Sub Test 3() Dim obj. Sheet As Worksheet Set obj. Sheet = Excel. Active. Sheet Dim i. Test. Col. Idx As Integer i. Test. Col. Idx = 1 Dim i. Begin. Row. Idx As Integer i. Begin. Row. Idx = 4 Dim i. Src. Col. Idx As Integer Dim i. Dest. Col. Idx As Integer i. Src. Col. Idx = 11 ' Column: K i. Dest. Col. Idx = 12 ' Column: L Dim i As Integer For i = i. Begin. Row. Idx To 10000 If obj. Sheet. Cells(i, i. Test. Col. Idx) = "" Then Exit For Else If In. Str(1, obj. Sheet. Cells(i, i. Src. Col. Idx), "標籤") <> 0 Then obj. Sheet. Cells(i, i. Dest. Col. Idx) = "標籤" Else obj. Sheet. Cells(i, i. Dest. Col. Idx) = "其他" End If Next i Msg. Box "總筆數：" & (i - i. Begin. Row. Idx) End Sub