1.模組

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

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 結束程式