Dim TM2(40) As String '多選題記錄
Dim Ti(40) As String '題內容
Private Sub Check1_Click()
Select1
End Sub
Private Sub Check2_Click()
Select1
End Sub
Private Sub Check3_Click()
Select1
End Sub
Private Sub Check4_Click()
Select1
End Sub
Private Sub CmdRec_Click()
TM2(HScroll1.Value) = TM1(HScroll1.Value)
Text2.Text = TM2(HScroll1.Value)
End Sub
Private Sub CmdViewClick()
Text2.Text = TM2(HScroll1.Value)
End Sub
Private Sub CmdEnd_Click()
End
End Sub
Private Sub CmdView_Click()
TM1(HScroll1.Value) = TM2(HScroll1.Value)
Text2.Text = TM2(HScroll1.Value)
Select2
End Sub
Private Sub Form_Load()
Ti(1) = "第（1）題：" & vbCrLf _
& "（計算題）" & vbCrLf _
& vbCrLf _
& "1+1=?" & vbCrLf _
& "（A） 0 （B） 1 （C） 2 （D） 3"
Ti(2) = "第（2）題：" & vbCrLf _
& "（腦筋急轉彎）" & vbCrLf _
& vbCrLf _
& "小明的媽媽有三個孩子，第壹個叫“大毛”，第二個叫“二毛”，問第三個叫什麽？" & vbCrLf _
& "（A）“三毛” （B）“小明” （C）小毛 （D） 不壹定"
'Ti(3)= ......
'Ti(4)= ......
'......
Text1.Text = Ti(1)
End Sub
Private Sub HScroll1_Change()
Label1.Caption = "第（ " & HScroll1.Value & " ）題："
Text2.Text = TM2(HScroll1.Value)
Select2
Text1.Text = Ti(HScroll1.Value)
End Sub
Sub Select1() '多選操作（臨時選擇）
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then TM1(HScroll1.Value) = ""
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then TM1(HScroll1.Value) = "A"
If Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 0 Then TM1(HScroll1.Value) = "B"
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 1 And Check4.Value = 0 Then TM1(HScroll1.Value) = "C"
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 Then TM1(HScroll1.Value) = "D"
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 0 Then TM1(HScroll1.Value) = "AB"
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 And Check4.Value = 0 Then TM1(HScroll1.Value) = "AC"
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 Then TM1(HScroll1.Value) = "AD"
If Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 0 Then TM1(HScroll1.Value) = "BC"
If Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 1 Then TM1(HScroll1.Value) = "BD"
If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 1 And Check4.Value = 1 Then TM1(HScroll1.Value) = "CD"
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 0 Then TM1(HScroll1.Value) = "ABC"
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 1 Then TM1(HScroll1.Value) = "ABD"
If Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 1 Then TM1(HScroll1.Value) = "BCD"
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 1 Then TM1(HScroll1.Value) = "ABCD"
End Sub
Sub Select2() '選擇恢復
If TM2(HScroll1.Value) = "A" Then Check1.Value = 1: Check2.Value = 0: Check3.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "B" Then Check2.Value = 1: Check1.Value = 0: Check3.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "C" Then Check3.Value = 1: Check1.Value = 0: Check2.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "D" Then Check4.Value = 1: Check1.Value = 0: Check2.Value = 0: Check3.Value = 0
If TM2(HScroll1.Value) = "AB" Then Check1.Value = 1: Check2.Value = 1: Check3.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "AC" Then Check1.Value = 1: Check3.Value = 1: Check2.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "AD" Then Check1.Value = 1: Check4.Value = 1: Check2.Value = 0: Check3.Value = 0
If TM2(HScroll1.Value) = "BC" Then Check2.Value = 1: Check3.Value = 1: Check1.Value = 0: Check4.Value = 0
If TM2(HScroll1.Value) = "BD" Then Check2.Value = 1: Check4.Value = 1: Check1.Value = 0: Check3.Value = 0
If TM2(HScroll1.Value) = "CD" Then Check3.Value = 1: Check4.Value = 1: Check1.Value = 0: Check2.Value = 0
If TM2(HScroll1.Value) = "ABC" Then Check1.Value = 1: Check2.Value = 1: Check3.Value = 1: Check4.Value = 0
If TM2(HScroll1.Value) = "ABD" Then Check1.Value = 1: Check2.Value = 1: Check4.Value = 1: Check3.Value = 0
If TM2(HScroll1.Value) = "BCD" Then Check2.Value = 1: Check3.Value = 1: Check4.Value = 1: Check1.Value = 0
If TM2(HScroll1.Value) = "ABCD" Then Check1.Value = 1: Check2.Value = 1: Check3.Value = 1: Check4.Value = 1
If TM2(HScroll1.Value) = "" Then Check1.Value = 0: Check2.Value = 0: Check3.Value = 0: Check4.Value = 0
End Sub
詳見妳的郵箱。
我在妳的基礎上作了修改，
比如控件名稱更易讀，變量設置盡量簡單（如果可以用壹維變量完成任務盡量不用二維）。