📄 选择题.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form3
Caption = "选择题"
ClientHeight = 6525
ClientLeft = 60
ClientTop = 345
ClientWidth = 7245
Icon = "选择题.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6525
ScaleWidth = 7245
StartUpPosition = 3 '窗口缺省
Begin TabDlg.SSTab SSTab1
Height = 6495
Left = 120
TabIndex = 6
Top = 120
Width = 7215
_ExtentX = 12726
_ExtentY = 11456
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "单选题"
TabPicture(0) = "选择题.frx":06EA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Command3"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Command2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Command1"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame2"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Option1(1)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Option1(2)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Option1(3)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).ControlCount= 9
TabCaption(1) = "多选题"
TabPicture(1) = "选择题.frx":0706
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Command4"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Command5"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Command6"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Frame3"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Frame4"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Check1(2)"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Check1(3)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).ControlCount= 8
Begin VB.OptionButton Option1
Caption = "option1"
Height = 375
Index = 3
Left = 360
TabIndex = 22
Top = 4080
Width = 6255
End
Begin VB.OptionButton Option1
Caption = "option1"
Height = 375
Index = 2
Left = 360
TabIndex = 21
Top = 3480
Width = 6255
End
Begin VB.OptionButton Option1
Caption = "option1"
Height = 375
Index = 1
Left = 360
TabIndex = 20
Top = 2880
Width = 6255
End
Begin VB.CheckBox Check1
Caption = "check1"
Height = 495
Index = 3
Left = -74640
TabIndex = 19
Top = 4800
Width = 6375
End
Begin VB.CheckBox Check1
Caption = "check1"
Height = 495
Index = 2
Left = -74640
TabIndex = 18
Top = 4080
Width = 6375
End
Begin VB.Frame Frame4
Caption = "选择题"
Height = 1695
Left = -74760
TabIndex = 13
Top = 720
Width = 6615
Begin VB.TextBox Text2
Height = 1335
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Text = "选择题.frx":0722
Top = 240
Width = 6375
End
End
Begin VB.Frame Frame3
Caption = "答案（选对每题得两分）"
Height = 2895
Left = -74760
TabIndex = 12
Top = 2520
Width = 6615
Begin VB.CheckBox Check1
Caption = "check1"
Height = 495
Index = 1
Left = 120
TabIndex = 17
Top = 840
Width = 6375
End
Begin VB.CheckBox Check1
Caption = "check1"
Height = 495
Index = 0
Left = 120
TabIndex = 16
Top = 240
Width = 6375
End
End
Begin VB.CommandButton Command6
Caption = "上一题 "
Height = 375
Left = -74160
TabIndex = 3
Top = 5760
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "下一题"
Height = 375
Left = -72120
TabIndex = 4
Top = 5760
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "返回主界面"
Height = 375
Left = -69960
TabIndex = 5
Top = 5760
Width = 1335
End
Begin VB.Frame Frame1
Caption = "选择题"
Height = 1695
Left = 240
TabIndex = 9
Top = 720
Width = 6615
Begin VB.TextBox Text1
Height = 1335
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 10
Text = "选择题.frx":072A
Top = 240
Width = 6375
End
End
Begin VB.Frame Frame2
Caption = "答案（选对每题得一分）"
Height = 2895
Left = 240
TabIndex = 7
Top = 2520
Width = 6615
Begin VB.OptionButton Option1
Caption = "option1"
Height = 375
Index = 4
Left = 120
TabIndex = 23
Top = 2160
Width = 6255
End
Begin VB.OptionButton Option1
Caption = "option1"
Enabled = 0 'False
Height = 375
Index = 0
Left = 120
TabIndex = 8
Top = 360
Width = 6255
End
End
Begin VB.CommandButton Command1
Caption = "上一题 "
Height = 375
Left = 840
TabIndex = 0
Top = 5760
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "下一题"
Height = 375
Left = 2880
TabIndex = 1
Top = 5760
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "返回主界面"
Height = 375
Left = 5040
TabIndex = 2
Top = 5760
Width = 1335
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "Label1"
Height = 375
Left = -69960
TabIndex = 15
Top = 360
Width = 1575
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "Label1"
Height = 375
Left = 5040
TabIndex = 11
Top = 360
Width = 1575
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim tinum As String
Dim zqda1 As String
Dim flag As Integer '作为向上(0)和向下(1)按牛的判断
Dim ksda As String
Dim optionda As String
Dim checkda As String
Dim s1, s2, s3, s4 As String
Dim strcmm As String
Dim dxtestid As Integer '多选题题号
Dim clear As Boolean
Dim dxdxtestid As Integer '单选题题号
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 改了
Private Sub Check1_Click(Index As Integer) '多选
If clear = True Then
Exit Sub
End If
If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 Then
strcmm = "update test set ksstate='0',ksda= '0' where stid = '" & dxtestid & "'"
Call Committrans(strcmm)
Exit Sub
End If
Select Case Index
Case 0
If Check1(0).Value = 1 Then
s1 = "1"
Else
s1 = ""
End If
Case 1
If Check1(1).Value = 1 Then
s2 = "2"
Else
s2 = ""
End If
Case 2
If Check1(2).Value = 1 Then
s3 = "3"
Else
s3 = ""
End If
Case 3
If Check1(3).Value = 1 Then
s4 = "4"
Else
s4 = ""
End If
End Select
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%如果什么都不选的话就恢复原值
checkda = s1 & s2 & s3 & s4
If Len(checkda) = 0 Then
Exit Sub
End If
'########################################
'j = CInt(j)
'If j < 10 Then
' j = "0" & CStr(j)
'' strcmm = update & " set ksda=" & checkda & " where st_no like'x" & j & "%'"
'
'Else
' j = CStr(j)
'' strcmm = update & " set ksda=" & checkda & " where st_no like'x" & j & "%'"
'
'End If
strcmm = "update test set ksstate='1',ksda= '" & checkda & "' where stid ='" & dxtestid & "'"
'strcmm = "update test set ksda=" & checkda & " where stid = '" & CInt(testnumbernext()) + 1 & "'"
Call Committrans(strcmm)
End Sub
Private Sub Command6_Click()
checkda = ""
s1 = ""
s2 = ""
s3 = ""
s4 = ""
dxtestid = dxtestid - 1
flag = 0
clearcheck
ksda = testksda(dxtestid)
Command5.Enabled = True
rs2.MovePrevious
If Not rs2.BOF Then
Form3.Text2.Text = rs2!st_lr
Form3.Check1(0).Caption = rs2!st_item1
Form3.Check1(1).Caption = rs2!st_item2
Form3.Check1(2).Caption = rs2!st_item3
Form3.Check1(3).Caption = rs2!st_item4
' ksda = rs2!ksda '& '''''''''''''''''''#################
Else
Command6.Enabled = False
rs2.MoveFirst
End If
''################################################
If Left(Trim(ksda), 1) = 0 Then
Call clearcheck
Else
Select Case Len(ksda)
Case 1
Check1(Val(ksda) - 1).Value = 1
Case 2
Check1(Val(Left(ksda, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 2, 1)) - 1).Value = 1
Case 3
Check1(Val(Mid(ksda, 1, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 2, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 3, 1)) - 1).Value = 1
Case 4
Check1(Val(Mid(ksda, 1, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 2, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 3, 1)) - 1).Value = 1
Check1(Val(Mid(ksda, 4, 1)) - 1).Value = 1
End Select
End If
If j = 0 Or j = 1 Then
Label2.Caption = "第1题"
Command6.Enabled = False
Else
j = j - 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -