📄 frmstudent.frm
字号:
VERSION 5.00
Begin VB.Form frmStudent
BackColor = &H00FF8080&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 4500
ClientLeft = 2940
ClientTop = 2250
ClientWidth = 7485
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MouseIcon = "frmStudent.frx":0000
ScaleHeight = 4500
ScaleWidth = 7485
ShowInTaskbar = 0 'False
Begin VB.Label lblModity
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "程度设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 1215
MouseIcon = "frmStudent.frx":030A
MousePointer = 99 'Custom
TabIndex = 7
Top = 990
Width = 840
End
Begin VB.Label lblpeople
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用人工抽题"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 4410
MouseIcon = "frmStudent.frx":0614
MousePointer = 99 'Custom
TabIndex = 6
Top = 3780
Width = 1260
End
Begin VB.Label LabelRe
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "重复抽题"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 1215
TabIndex = 5
Top = 1635
Width = 840
End
Begin VB.Label LabelM
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "恢复现场"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 1215
TabIndex = 4
Top = 2295
Width = 840
End
Begin VB.Line Line3
BorderColor = &H00FF0000&
X1 = 585
X2 = 7470
Y1 = 3375
Y2 = 3375
End
Begin VB.Label LabelR
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
Caption = "随机抽题"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 4530
MouseIcon = "frmStudent.frx":091E
MousePointer = 99 'Custom
TabIndex = 3
Top = 1890
Width = 855
End
Begin VB.Label LabelG
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
Caption = "固定抽题"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 4530
MouseIcon = "frmStudent.frx":0C28
MousePointer = 99 'Custom
TabIndex = 2
Top = 1395
Width = 855
End
Begin VB.Label lblEnd
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 285
Left = 1260
MouseIcon = "frmStudent.frx":0F32
MousePointer = 99 'Custom
TabIndex = 1
Top = 3780
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FF0000&
BackStyle = 0 'Transparent
Caption = "全国计算机等级考试笔试拟软件网络技术"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 4470
Left = 135
TabIndex = 0
Top = 90
Width = 330
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 585
X2 = 7470
Y1 = 3420
Y2 = 3420
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
X1 = 2745
X2 = 2745
Y1 = 0
Y2 = 4455
End
Begin VB.Image Image2
Height = 4470
Left = 0
Picture = "frmStudent.frx":123C
Stretch = -1 'True
Top = 0
Width = 555
End
End
Attribute VB_Name = "frmStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblEnd.ForeColor = &HE0E0E0
LabelG.ForeColor = &HFF00&
LabelR.ForeColor = &HFF00&
LabelM.ForeColor = &HFF00&
LabelRe.ForeColor = &HFF00&
End Sub
Private Sub LabelM_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabelM.ForeColor = &HFF&
End Sub
Private Sub LabelRe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabelRe.ForeColor = &HFF&
End Sub
Private Sub lblEnd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblEnd.ForeColor = &HFF&
End Sub
Private Sub lblEnd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmInit.Show
Unload Me
End Sub
Private Sub LabelG_Click()
frmNum.Show
Unload Me
End Sub
Private Sub LabelG_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabelG.ForeColor = &HFF0000
End Sub
Private Sub LabelR_Click()
Dim i As Integer
Dim k As Integer
Dim numRnd As Integer
'生成随机数，用于产生卷号
i = Int(Rnd() * 1000)
If i <> 0 Then
k = i Mod 10
If k > numJH Then
k = i Mod numJH
End If
End If
numEJH = k
frmTime.Show
frmExam.Show
Unload Me
End Sub
Private Sub LabelR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LabelR.ForeColor = &HFF0000
End Sub
Private Sub lblModity_Click()
frmFuntion.Show
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -