📄 zj.frm
字号:
Height = 375
Index = 1
Left = 2520
TabIndex = 37
Text = "Text3"
Top = 1320
Width = 855
End
Begin VB.TextBox Text3
Height = 375
Index = 0
Left = 2520
TabIndex = 36
Text = "Text3"
Top = 840
Width = 855
End
Begin VB.TextBox Text2
Height = 375
Index = 4
Left = 960
TabIndex = 27
Text = "Text2"
Top = 3000
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
Index = 3
Left = 960
TabIndex = 26
Text = "Text2"
Top = 2400
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
Index = 2
Left = 960
TabIndex = 25
Text = "Text2"
Top = 1920
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
Index = 1
Left = 960
TabIndex = 24
Text = "Text2"
Top = 1440
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
Index = 0
Left = 960
TabIndex = 23
Text = "Text2"
Top = 840
Width = 1095
End
Begin VB.Label Label19
Caption = "平均难度系数"
Height = 495
Left = 3840
TabIndex = 35
Top = 480
Width = 1215
End
Begin VB.Label Label18
Caption = "分值"
Height = 375
Left = 2640
TabIndex = 34
Top = 480
Width = 615
End
Begin VB.Label Label17
Caption = "题量"
Height = 255
Left = 960
TabIndex = 33
Top = 480
Width = 735
End
Begin VB.Label Label16
Caption = "阅读理解"
Height = 255
Left = 120
TabIndex = 32
Top = 3000
Width = 855
End
Begin VB.Label Label15
Caption = "短文改错"
Height = 255
Left = 120
TabIndex = 31
Top = 2520
Width = 855
End
Begin VB.Label Label14
Caption = "书面表达"
Height = 375
Left = 120
TabIndex = 30
Top = 2040
Width = 855
End
Begin VB.Label Label13
Caption = "完型填空"
Height = 255
Left = 120
TabIndex = 29
Top = 1560
Width = 855
End
Begin VB.Label Label12
Caption = "选择题"
Height = 375
Left = 120
TabIndex = 28
Top = 960
Width = 735
End
End
Begin VB.Label Label11
Caption = "以下是你所选择的试题类型，若同意请按“下一步”，若否，请返回重新设置："
Height = 615
Left = 360
TabIndex = 21
Top = 360
Width = 2535
End
End
Begin VB.Frame Frame1
Caption = "设置题目要求"
Height = 4425
Index = 2
Left = 1800
TabIndex = 2
Top = 360
Visible = 0 'False
Width = 5580
Begin VB.CommandButton Command4
Caption = "完成"
Height = 375
Left = 3960
TabIndex = 54
Top = 4800
Width = 615
End
Begin VB.CommandButton Command3
Caption = "OK"
Height = 375
Left = 3960
TabIndex = 53
Top = 4080
Width = 615
End
Begin VB.TextBox Tz
Height = 375
Left = 2280
TabIndex = 52
Top = 4080
Width = 1095
End
Begin VB.TextBox Tn
Height = 375
Left = 2280
TabIndex = 51
Top = 3360
Width = 1095
End
Begin VB.TextBox tf
Height = 375
Left = 2280
TabIndex = 50
Top = 2640
Width = 1095
End
Begin VB.TextBox Tt
Height = 375
Left = 2280
TabIndex = 49
Top = 1920
Width = 1095
End
Begin VB.Label Label9
Caption = $"zj.frx":0000
Height = 1095
Left = 720
TabIndex = 19
Top = 0
Width = 3255
End
Begin VB.Label Label8
Caption = "知识点分布"
Height = 375
Left = 1200
TabIndex = 18
Top = 4080
Width = 615
End
Begin VB.Label Label7
Caption = "难度"
Height = 375
Left = 1320
TabIndex = 17
Top = 3480
Width = 615
End
Begin VB.Label Label6
Caption = "分值"
Height = 375
Left = 1320
TabIndex = 16
Top = 2640
Width = 615
End
Begin VB.Label Label5
Caption = "题量"
Height = 375
Left = 1320
TabIndex = 15
Top = 1920
Width = 495
End
End
Begin VB.Frame Frame1
Caption = "请选择题型"
Height = 4425
Index = 1
Left = 1800
TabIndex = 1
Top = 360
Visible = 0 'False
Width = 5580
Begin VB.ListBox List1
Height = 1140
ItemData = "zj.frx":0087
Left = 720
List = "zj.frx":009A
TabIndex = 11
Top = 1080
Width = 855
End
Begin VB.Label Label4
Caption = "可选题型"
Height = 495
Left = 240
TabIndex = 12
Top = 720
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "请选择出卷方式"
Height = 4425
Index = 0
Left = 1680
TabIndex = 0
Top = 360
Width = 5580
Begin VB.OptionButton Option1
Caption = "Option2"
Height = 255
Left = 720
TabIndex = 14
Top = 1920
Width = 255
End
Begin VB.OptionButton Option2
Caption = "Option1"
Height = 255
Left = 720
TabIndex = 13
Top = 2520
Width = 255
End
Begin VB.Label Label3
Caption = "智能出卷"
Height = 255
Left = 1080
TabIndex = 10
Top = 2520
Width = 1215
End
Begin VB.Label Label2
Caption = "人工出卷"
Height = 375
Left = 1080
TabIndex = 9
Top = 1920
Width = 855
End
Begin VB.Label Label1
Caption = $"zj.frx":00CE
Height = 975
Left = 120
TabIndex = 8
Top = 360
Width = 3615
End
End
End
Attribute VB_Name = "zujuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, k As Integer
Dim curtx As String
Dim t(0 To 4) As Integer
Dim f(0 To 4) As Integer
Dim n(0 To 4) As String
Dim z(0 To 4) As String
Dim shitihao(0 To 100) As Integer
Dim shitimu(0 To 100) As String
Dim bh As Integer
Private Sub back_Click()
For j = 0 To 5
If i - 1 = j Then
Frame1(j).Visible = True
Else
Frame1(j).Visible = False
End If
Next
i = i - 1
End Sub
Private Sub Command1_Click()
Dim b As Boolean
For i = 0 To 4
Adodc1(i).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\english.mdb;"
Next
Adodc1(0).RecordSource = "选择题"
Adodc1(1).RecordSource = "完型填空"
Adodc1(2).RecordSource = "书面表达"
Adodc1(3).RecordSource = "短文改错"
Adodc1(4).RecordSource = "阅读理解"
Dim totalnum(0 To 4)
For k = 0 To 4
cnt = Adodc1(k).Recordset.Fields.Count
For r = 0 To t(k) - 1
Randomize
shitihao(r) = Int(Rnd * cnt)
For ry = 0 To r - 1
If shitihao(r) = shitihao(ry) Then
b = False
Exit For
End If
Next
If b = False Then
r = r - 1
End If
Next
Next
End Sub
Private Sub Command3_Click()
t(k) = Tt.Text
f(k) = tf.Text
n(k) = Tn.Text
z(k) = Tz.Text
End Sub
Private Sub Command4_Click()
For k = 0 To 4
Text2(k).Text = t(k)
Text3(k).Text = f(k)
Text4(k).Text = f(k)
Next
End Sub
Private Sub Command5_Click()
Set test.DataSource = Adodc1(0)
test.DataField = "题目"
End Sub
Private Sub Form_Load()
zujuan.Picture = LoadPicture(App.Path & "\bj.gif")
End Sub
Private Sub List1_Click()
k = List1.ListIndex
End Sub
Private Sub next_Click()
For j = 0 To 5
If i + 1 = j Then
Frame1(j).Visible = True
Else
Frame1(j).Visible = False
End If
Next
i = i + 1
End Sub
Private Sub Option1_Click()
Unload Me
Load tikugli
tikugli.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -