8.試卷設定

上圖有一個不透明的 Label3，輸入教師密碼後會隱藏

黑色：程式碼 藍色：說明

上方文字方塊是 opwd ，中間文字方塊是 npwd，下方文字方塊是 stpwd，按鈕是 setpwd

Private Sub setpwd_Click()

If opwd = pwdbox Then pwdbox 是隱藏的文字方塊，用來儲存教師密碼

If Label3.Visible = True Then Label3：用來遮蔽本頁內容

Label3.Visible = False 隱藏 Label3

setpwd.Caption = "設定密碼 Set pwd" 設定按鈕文字

opwd = "" 清空密碼

Exit Sub

Else

If npwd <> "" Then 如果新密碼不是空的

pwdbox = npwd 把新密碼寫進 pwdbox

stpwdbox = stpwd 把學生密碼寫進 stpwdbox（儲存學生密碼的文字方塊，隱藏）

MsgBox "密碼已變更 Password's changed"

Else 否則，也就是新密碼是空的

stpwdbox = stpwd 把學生密碼寫進 pwdbox，可以是空的

MsgBox "學生密碼已變更 Student password's changed"

End If

End If

Else 否則，也就是 opwd ≠ pwdbox

MsgBox "密碼錯誤 password incrorrect"

End If

opwd = "" 清空所有密碼

npwd = ""

stpwd = ""

End Sub

Private Sub testname_Change()

Slide1.Label1 = testname 直接寫入首頁的 Label1

End Sub

☉中文 是 OptionButton2 ； ☉Other Language 是OptionButton1

執行OptionButton2_Click，所有按鈕套用藍色文字

執行OptionButton1_Click，所有按鈕套用紅色文字

Private Sub OptionButton1_Click() 按下 ☉Other Language

lang = 2 令lang = 2，分數統計頁要用的

以下設定各按鈕的文字 e：紅色文字

go.Caption = goe

Slide1.go.Caption = goe 直接設定 Slide1（首頁）的按鈕文字

submit.Caption = smte

tru.Caption = tue

fal.Caption = fale

resm.Caption = rsme

score.Caption = scre

save.Caption = sae

exitbtn.Caption = exe

Slide3.CommandButton1.Caption = rsme 設定分數統計頁的按鈕

Slide3.CommandButton2.Caption = scre

Slide3.CommandButton3.Caption = sae

Slide3.CommandButton4.Caption = exe

End Sub

Private Sub OptionButton2_Click() 按下 ☉中文 的程式碼，取得藍色文字，說明略

lang = 1

go.Caption = goc

Slide1.go.Caption = go.Caption

submit.Caption = smtc

resm.Caption = rsmc

score.Caption = scrc

save.Caption = sac

exitbtn.Caption = exc

tru.Caption = tuc

fal.Caption = falc

Slide3.CommandButton1.Caption = rsmc

Slide3.CommandButton2.Caption = scrc

Slide3.CommandButton3.Caption = sac

Slide3.CommandButton4.Caption = exc

End Sub

左邊按鈕是 go，上方文字方塊為 goc，下方文字方塊為 goe

Private Sub goc_Change() 藍色文字有改變

OptionButton2_Click 執行OptionButton2 取得藍色文字

OptionButton2.Value = True True：被選取的狀態☉

End Sub

Private Sub goe_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 submit，上方文字方塊為 smtc，下方文字方塊為 smte

Private Sub smtc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub smte_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 tru，上方文字方塊為 tuc，下方文字方塊為 tue

Private Sub tuc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub tue_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 fal，上方文字方塊為 falc，下方文字方塊為 fale

Private Sub falc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub fale_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 resm，上方文字方塊為 rsmc，下方文字方塊為 rsme

Private Sub rsmc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub rsme_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 score，上方文字方塊為 scrc，下方文字方塊為 scre

Private Sub scrc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub scre_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 save，上方文字方塊為 sac，下方文字方塊為 sae

Private Sub sac_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub sae_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

左邊按鈕是 exitbtn，上方文字方塊為 exc，下方文字方塊為 exe

Private Sub exc_Change()

OptionButton2_Click

OptionButton2.Value = True

End Sub

Private Sub exe_Change()

OptionButton1_Click

OptionButton1.Value = True

End Sub

Private Sub modify_Click()

If modify.Value = True Then 核取方塊打勾

modify.BackColor = &HC0C0FF 背景設成紅色

Else

modify.BackColor = &HFFFFFF

End If

End Sub

Private Sub CommandButton1_Click()

fist 到首頁

anset = 1 令 anset = 1 ，也就是要設定答案

setpwd.Caption = "輸入密碼 you'r pwd" 設定第1個按鈕的內容

End Sub

這裡設定選擇題按鈕文字

上圖右下角的文字方塊左至右為 ct1 ~ ct5，左方的☉ 就是 OptionButton5

4/5 按鈕已刪除不用，程式碼已移除

Private Sub OptionButton3_Click() 設定選擇題按鈕文字為ABCDE

ch1.Caption = "A"

ch2.Caption = "B"

ch3.Caption = "C"

ch4.Caption = "D"

ch5.Caption = "E"

End Sub

Private Sub OptionButton4_Click() 設定選擇題按鈕文字為12345

ch1.Caption = "1"

ch2.Caption = "2"

ch3.Caption = "3"

ch4.Caption = "4"

ch5.Caption = "5"

End Sub

Private Sub OptionButton5_Click() 設定選擇題按鈕文字為右下角文字方塊內的文字

ch1.Caption = ct1

ch2.Caption = ct2

ch3.Caption = ct3

ch4.Caption = ct4

ch5.Caption = ct5

End Sub

Private Sub ct1_Change() 如果 ct 內容有改變

OptionButton5_Click 執行 OptionButton5_Click，也就是把內容寫進左邊的按鈕

End Sub

Private Sub ct2_Change()

OptionButton5_Click

End Sub

Private Sub ct3_Change()

OptionButton5_Click

End Sub

Private Sub ct4_Change()

OptionButton5_Click

End Sub

Private Sub ct5_Change()

OptionButton5_Click

End Sub