📄 testdiy.frm
字号:
VERSION 5.00
Begin VB.Form testdiy
Caption = " "
ClientHeight = 7140
ClientLeft = 60
ClientTop = 450
ClientWidth = 10395
LinkTopic = "Form1"
ScaleHeight = 7140
ScaleWidth = 10395
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txttest
Height = 5775
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 20
Top = 600
Width = 5295
End
Begin VB.ListBox lstfill
Height = 1500
Left = 7800
TabIndex = 19
Top = 2760
Width = 2175
End
Begin VB.ListBox lstselmany
Height = 1500
Left = 5640
TabIndex = 18
Top = 2760
Width = 1935
End
Begin VB.ListBox lstanswer
Height = 780
Left = 5640
TabIndex = 17
Top = 5640
Width = 4335
End
Begin VB.ListBox lstselone
Height = 1680
Left = 7800
TabIndex = 13
Top = 600
Width = 2175
End
Begin VB.ListBox lstjudge
Height = 1680
Left = 5640
TabIndex = 12
Top = 600
Width = 1935
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 375
Left = 7800
TabIndex = 9
Top = 6600
Width = 975
End
Begin VB.CommandButton cmdok
Caption = "确定"
Height = 375
Left = 6600
TabIndex = 8
Top = 6600
Width = 975
End
Begin VB.CommandButton cmdadd
Caption = "添加"
Height = 375
Left = 4440
TabIndex = 7
Top = 6600
Width = 975
End
Begin VB.PictureBox Picnavigation
BackColor = &H80000009&
Height = 255
Left = 840
ScaleHeight = 195
ScaleWidth = 2835
TabIndex = 5
Top = 6720
Width = 2895
Begin VB.TextBox txtnews
Height = 390
Left = 0
TabIndex = 6
Text = "Text7"
Top = 0
Width = 2895
End
End
Begin VB.CommandButton cmdmove
Height = 255
Index = 0
Left = 360
Picture = "testdiy.frx":0000
Style = 1 'Graphical
TabIndex = 4
Top = 6720
Width = 255
End
Begin VB.CommandButton cmdmove
Height = 255
Index = 1
Left = 600
Picture = "testdiy.frx":0482
Style = 1 'Graphical
TabIndex = 3
Top = 6720
Width = 255
End
Begin VB.CommandButton cmdmove
Height = 255
Index = 2
Left = 3720
Picture = "testdiy.frx":0948
Style = 1 'Graphical
TabIndex = 2
Top = 6720
Width = 255
End
Begin VB.CommandButton cmdmove
Height = 255
Index = 3
Left = 3960
Picture = "testdiy.frx":0E0E
Style = 1 'Graphical
TabIndex = 1
Top = 6720
Width = 255
End
Begin VB.ComboBox cmbtype
Height = 300
ItemData = "testdiy.frx":1290
Left = 120
List = "testdiy.frx":12A3
TabIndex = 0
Text = "cmbtype"
Top = 240
Width = 1335
End
Begin VB.Label labl
AutoSize = -1 'True
Caption = "填空数为4的题"
Height = 180
Index = 3
Left = 7680
TabIndex = 28
Top = 5160
Width = 1170
End
Begin VB.Label lblfl
AutoSize = -1 'True
Height = 180
Index = 3
Left = 8880
TabIndex = 27
Top = 5160
Width = 90
End
Begin VB.Label labl
AutoSize = -1 'True
Caption = "填空数为1的题"
Height = 180
Index = 0
Left = 7680
TabIndex = 26
Top = 4440
Width = 1170
End
Begin VB.Label lblfl
Appearance = 0 'Flat
AutoSize = -1 'True
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 8880
TabIndex = 25
Top = 4440
Width = 90
End
Begin VB.Label labl
AutoSize = -1 'True
Caption = "填空数为2的题"
Height = 180
Index = 1
Left = 7680
TabIndex = 24
Top = 4680
Width = 1170
End
Begin VB.Label lblfl
AutoSize = -1 'True
Height = 180
Index = 1
Left = 8880
TabIndex = 23
Top = 4680
Width = 90
End
Begin VB.Label labl
AutoSize = -1 'True
Caption = "填空数为3的题"
Height = 180
Index = 2
Left = 7680
TabIndex = 22
Top = 4920
Width = 1170
End
Begin VB.Label lblfl
AutoSize = -1 'True
Height = 180
Index = 2
Left = 8880
TabIndex = 21
Top = 4920
Width = 90
End
Begin VB.Label lblanswer
BackStyle = 0 'Transparent
Caption = "问答题"
Height = 255
Left = 5640
TabIndex = 16
Top = 5400
Width = 2175
End
Begin VB.Label lblfill
BackStyle = 0 'Transparent
Caption = "填空题"
Height = 255
Left = 7800
TabIndex = 15
Top = 2400
Width = 2175
End
Begin VB.Label lblselmany
BackStyle = 0 'Transparent
Caption = "多选题"
Height = 255
Left = 5640
TabIndex = 14
Top = 2400
Width = 1935
End
Begin VB.Label lblselone
BackStyle = 0 'Transparent
Caption = "单选题"
Height = 255
Left = 7800
TabIndex = 11
Top = 240
Width = 1815
End
Begin VB.Label lbljudge
BackStyle = 0 'Transparent
Caption = "判断题"
Height = 255
Left = 5640
TabIndex = 10
Top = 240
Width = 1935
End
End
Attribute VB_Name = "testdiy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim objtemp As New Recordset '用于保存各题型题库数据
Dim ij%, iso%, ism%, ifl%, ians% '用于保存各题型小题设置参数
Dim idivfil%(4), idf%(4) '用于保存填空题的设置参数
Dim vj, vso, vsm, vfl, vans '用于保存各题型选择试题得题号
Private Sub Cmbtype_Click()
'选择题库
Select Case cmbtype.ListIndex
Case 0
Set objtemp = objjudge.Clone
Case 1
Set objtemp = objselone.Clone
Case 2
Set objtemp = objselmany.Clone
Case 3
Set objtemp = objfill.Clone
Case 4
Set objtemp = objanswer.Clone
End Select
cmdmove(0).Value = True
End Sub
Private Sub cmdadd_Click()
Dim i%
For i = 0 To 3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -