📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H8000000A&
Caption = "加减法运算"
ClientHeight = 8820
ClientLeft = 1695
ClientTop = 1590
ClientWidth = 11970
LinkTopic = "Form1"
Picture = "Form2.frx":0000
ScaleHeight = 8820
ScaleWidth = 11970
Begin VB.CommandButton Command5
Caption = "Command5"
Height = 495
Left = 240
TabIndex = 17
Top = 1680
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Left = 240
TabIndex = 16
Top = 960
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "重新开始"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 650
Left = 4680
TabIndex = 15
Top = 7560
Width = 2400
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H8000000D&
BorderStyle = 0 'None
Height = 1920
Left = 6840
Picture = "Form2.frx":1CB49
ScaleHeight = 1920
ScaleWidth = 1920
TabIndex = 14
Top = 3960
Width = 1920
End
Begin VB.CommandButton Command3
Caption = "暂停计时"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 650
Left = 7440
TabIndex = 13
Top = 7560
Width = 2400
End
Begin VB.Timer Timer1
Interval = 1000
Left = 9960
Top = 7680
End
Begin VB.CommandButton Command2
Caption = "结束练习"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 650
Left = 1800
TabIndex = 7
Top = 7560
Width = 2400
End
Begin VB.CommandButton Command1
BackColor = &H80000017&
Caption = "确定吗 ？"
DisabledPicture = "Form2.frx":1EEF0
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 800
Left = 7680
MaskColor = &H00FFC0FF&
Picture = "Form2.frx":3BA39
TabIndex = 5
Top = 2400
Width = 1335
End
Begin VB.TextBox Text1
BackColor = &H00FFFFC0&
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 5160
TabIndex = 3
Top = 2280
Width = 2415
End
Begin VB.Label Label10
BackColor = &H0080FFFF&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 12
Top = 6960
Width = 4095
End
Begin VB.Label Label9
BackColor = &H0080FFFF&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 11
Top = 6960
Width = 3735
End
Begin VB.Label Label8
BackColor = &H0080FFFF&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 10
Top = 6480
Width = 4095
End
Begin VB.Label Label7
BackColor = &H0080FFFF&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 9
Top = 6480
Width = 3735
End
Begin VB.Label Label6
Caption = "成绩统计："
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 8
Top = 5880
Width = 1935
End
Begin VB.Label Label5
BackColor = &H00FFFFC0&
Caption = "请输入结果："
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 6
Top = 2640
Width = 2775
End
Begin VB.Label Label4
BackColor = &H0000FF00&
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 3120
TabIndex = 4
Top = 3960
Width = 3135
End
Begin VB.Label Label3
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 7080
TabIndex = 2
Top = 840
Width = 2400
End
Begin VB.Label Label2
BackColor = &H00FFFF00&
Caption = "+"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 5520
TabIndex = 1
Top = 840
Width = 435
End
Begin VB.Label Label1
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = 1920
TabIndex = 0
Top = 840
Width = 2400
End
Begin VB.Menu fanwei
Caption = "计算范围"
End
Begin VB.Menu yunsuanmenu
Caption = "运算选择"
Begin VB.Menu add
Caption = "加法"
Checked = -1 'True
End
Begin VB.Menu min
Caption = "减法"
Checked = -1 'True
End
Begin VB.Menu mul
Caption = "乘法"
End
Begin VB.Menu div
Caption = "除法"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Lseconds As Integer
Dim Lminute As Integer
Dim Lhour As Double
Dim confirmID As Boolean
Dim continuID As Boolean
Dim totalnum As Double
Dim rightnum As Integer
Dim result As Double
Dim rang As Integer
Dim ys_select As Byte
Private Sub add_Click()
add.Checked = Not (add.Checked)
ys_select = ys_select Xor 1
End Sub
Private Sub Command1_Click()
If confirmID = True Then
Picture1.Visible = True
Label4.Visible = True
If Val(Text1.Text) = yunsuana() Then
Label4.Caption = "你真聪明，答对了！"
Label4.BackColor = &HFF00&
Picture1.Picture = LoadPicture(App.Path & "\" & "APPLE3.GIF")
rightnum = rightnum + 1
Else
Label4.Caption = "你答错了，还得继续努力！"
Label4.BackColor = &HFF&
Picture1.Picture = LoadPicture(App.Path & "\" & "INTL_NO.BMP")
End If
showchengji
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -