6.比大小

黑色：程式碼 藍色：說明

Dim sno, equ As Integer

宣告 sno, equ 為整數變數

Private Sub CommandButton1_Click() 確定 按鈕的程式

If tea = 1 Then tea = 1 取得教師權限

If Slide2.modify <> True Then Label1 = itmno 如果沒有要修改答案，將itmno寫入題號

CommandButton1.Caption = Slide2.submit.Caption 從試卷設定頁取得按鈕的符號

If anset = 1 Then 如果 anset = 1 就是要設定答案

Label6 = Label9 把 Label9 寫入 Label6

Label6 隱藏的Label，用來儲存答案；Label9畫面上看得見的Label，讓教師、學生寫答案

MsgBox seta & Label9.Caption 訊息盒顯示：設定答案為 Label9 的內容

Else

End If

nex

Label9 = "" 清空Label9

Label1.BackColor = &HFFFFFF 題號背景顏色設為白色

Else 否則，也就是tea ≠ 1，是學生按的

If itmno <> Label1 Then

MsgBox eropstn

fist

Exit Sub

End If

If Label9 = "" Then

MsgBox "尚未作答 Select you'r answer"

Exit Sub

End If

If Label9 = Label6 Then 如果 Label9 = Label6 ，也就是答對了

If sno = flow Then

MsgBox eropstn

nex

Exit Sub

End If

rt = rt + 1

Label1.BackColor = &HFFFFFF

MsgBox rtstn

sno = flow

nex

Else

If sno = flow Then

MsgBox eropstn

nex

Exit Sub

End If

er = er + 1

erstring = erstring & " " & itmno

Label1.BackColor = &HC0C0FF

MsgBox erstn

sno = flow

nex

End If

End If

itmno = itmno + 1

Label5 = "E-test6"

Label5.Width = 78

Label5.Top = 5

Label5.Left = 642

Label5.Height = 32

End Sub

Private Sub Label9_Click() Label9的程式

If equ = 0 Then

Label9 = ">"

Else

If equ = 1 Then

Label9 = "="

Else

If equ = 2 Then

Label9 = "<"

End If

End If

End If

equ = equ + 1 按一下 equ 就+1

If equ = 3 Then equ = 0 如果 equ=3，那麼 equ=0

End Sub