Dim TM1(40) As String '临时选择结果 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.登陆 网页，输入以上用户名和密码登陆，左上角选...详情>>
答：详情>>
答：技术主管就要对自己所管理的技术感兴趣，并且能够认真主动的去学习其技术，将自己的技术不断更新，技术主管还要负责对自己主管的人员进行定期技术例会讨论并总结技术人员的...详情>>
答：1.更新网卡驱动2.进入bios将无线设置改成enable3.如果是笔记本看看有没有什么开关4.用软件检测网卡是否损坏5.系统问题。重装系统6.。。。重新建立连...详情>>
