1.模組

在編輯模式下連按二下 開始作答 ，系統會要求輸入 VBA 的密碼，請輸入 aleck，按Enter 即可進入 VBA 編輯器

按二下左欄最下方的 Module1 ，即可顯示 Module1 的程式碼

黑色：程式碼藍色：說明

Public rt, er, ans, flow, itmno, den, num, ano, tea, anset As Integer

公開的整數變數：

Public sum As Byte

公開的整數變數：總分，Byte格式的整數

Public nam, erstring, erstn, rtstn, eropstn, tru, fal, submit, mg, seta As String

公開的字串變數：

Public Sub nex() 名為 nex 的副程式

SlideShowWindows(Index:=1).View.Next 到下一頁

Slide1.Label2 = "程式設計：Aleck"

Slide1.Label2.Width = 669

Slide1.Label2.Top = 502

Slide1.Label2.ForeColor = &H0&

Slide1.Label2.Left = 24.25

Slide1.Label2.Height = 18

以上為首頁下方的版權宣告，請自行修改

Slide2.Label1 = "版權宣告:" & vbCr & "歡迎使用" & vbCr & "作者: 中華民國桃園市楊心國民小學教師" & vbCr & "aleckgm@gmail.com" & vbCr & "2005.02"

Slide2.Label1.Width = 192

Slide2.Label1.Top = 5

Slide2.Label1.Left = 507

Slide2.Label1.Height = 55

以上為試卷設定頁右上角的作者資訊，請自行修改

End Sub nex 副程式結束

Public Sub fist() 名為 fist 的副程式（其實應該是 first，但為免與下方的程式碼混淆故用

sum = 0

rt = 0

er = 0

ano = 0

erstring = ""

Slide3.Label2 = ""

Slide3.Label3 = ""

Slide3.Label4 = ""

Slide3.Label5 = ""

Slide3.Label6 = ""

Slide3.Label7 = ""

tea = 0

anset = 0

各項變數歸零、清空各項資訊

SlideShowWindows(Index:=1).View.First 到第一頁

End Sub 結束程式

Public Sub lst()

名為 lst 的副程式 (可以不要的副程式，只要用下一列的程式碼就可以，當時想說有頭有尾就做了

SlideShowWindows(Index:=1).View.Last 到最後一頁

End Sub 結束程式