📄 form1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "数学计算器"
ClientHeight = 4755
ClientLeft = 45
ClientTop = 435
ClientWidth = 7335
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4755
ScaleWidth = 7335
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 4380
Width = 7335
_ExtentX = 12938
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 9596
MinWidth = 9596
Text = "作者：郭向红 版权私有 请勿篡改"
TextSave = "作者：郭向红 版权私有 请勿篡改"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "16:20"
EndProperty
EndProperty
End
Begin TabDlg.SSTab SSTab1
Height = 4335
Left = 0
TabIndex = 0
Top = 0
Width = 7335
_ExtentX = 12938
_ExtentY = 7646
_Version = 393216
Tabs = 6
TabsPerRow = 6
TabHeight = 520
TabCaption(0) = "计算器"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "方程组"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame3"
Tab(1).Control(1)= "Frame4"
Tab(1).Control(2)= "Frame5"
Tab(1).ControlCount= 3
TabCaption(2) = "方程与最值"
TabPicture(2) = "Form1.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame10"
Tab(2).Control(1)= "Frame11"
Tab(2).ControlCount= 2
TabCaption(3) = "拟合"
TabPicture(3) = "Form1.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).Control(1)= "Frame7"
Tab(3).Control(2)= "Frame8"
Tab(3).Control(3)= "Frame9"
Tab(3).ControlCount= 4
TabCaption(4) = "插值"
TabPicture(4) = "Form1.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame17"
Tab(4).Control(1)= "Frame16"
Tab(4).Control(2)= "Frame15"
Tab(4).Control(3)= "Frame14"
Tab(4).ControlCount= 4
TabCaption(5) = "积分与微分"
TabPicture(5) = "Form1.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Frame12"
Tab(5).Control(1)= "Frame13"
Tab(5).ControlCount= 2
Begin VB.Frame Frame17
Caption = "拟合类型"
Height = 1215
Left = -69480
TabIndex = 124
Top = 360
Width = 1695
Begin VB.OptionButton Option12
Caption = "分段多项式"
Height = 255
Left = 120
TabIndex = 127
Top = 240
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Option11
Caption = "一类边界样条"
Height = 255
Left = 120
TabIndex = 126
Top = 540
Width = 1455
End
Begin VB.OptionButton Option10
Caption = "二类边界样条"
Height = 255
Left = 120
TabIndex = 125
Top = 840
Width = 1455
End
End
Begin VB.Frame Frame16
Caption = "控制按钮"
Height = 2535
Left = -69480
TabIndex = 118
Top = 1680
Width = 1695
Begin VB.CommandButton Command21
Caption = "打 开"
Height = 375
Left = 240
TabIndex = 123
Top = 240
Width = 1095
End
Begin VB.CommandButton Command20
Caption = "保 存"
Height = 375
Left = 240
TabIndex = 122
Top = 690
Width = 1095
End
Begin VB.CommandButton Command19
Caption = "清 空"
Height = 375
Left = 240
TabIndex = 121
Top = 1140
Width = 1095
End
Begin VB.CommandButton Command18
Caption = "计 算"
Height = 375
Left = 240
TabIndex = 120
Top = 1590
Width = 1095
End
Begin VB.CommandButton Command17
Caption = "绘 图"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 119
Top = 2040
Width = 1095
End
End
Begin VB.Frame Frame15
Caption = "输入数据"
Height = 2295
Left = -74880
TabIndex = 115
Top = 1920
Width = 5295
Begin VB.TextBox Text29
Height = 375
Left = 2160
TabIndex = 129
Text = "Text29"
Top = 1440
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text28
Height = 270
Left = 720
TabIndex = 128
Top = 1320
Width = 855
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid4
Height = 1935
Left = 120
TabIndex = 117
Top = 240
Width = 5055
_ExtentX = 8916
_ExtentY = 3413
_Version = 393216
Rows = 3
End
End
Begin VB.Frame Frame14
Caption = "计算结果"
Height = 1455
Left = -74880
TabIndex = 114
Top = 360
Width = 5295
Begin VB.TextBox Text30
Height = 270
Left = 2400
TabIndex = 130
Top = 720
Width = 735
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 1095
Left = 120
TabIndex = 116
Top = 240
Width = 5055
_ExtentX = 8916
_ExtentY = 1931
_Version = 393216
Rows = 3
End
End
Begin VB.Frame Frame13
Caption = "积分"
Height = 1815
Left = -74880
TabIndex = 106
Top = 360
Width = 7095
Begin VB.CommandButton Command16
Caption = "="
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3840
TabIndex = 112
Top = 960
Width = 615
End
Begin VB.TextBox Text27
Height = 270
Left = 4680
TabIndex = 111
Top = 960
Width = 2175
End
Begin VB.TextBox Text26
Height = 270
Left = 4680
TabIndex = 110
Text = "0.000001"
Top = 360
Width = 2175
End
Begin VB.TextBox Text25
Height = 270
Left = 600
TabIndex = 109
Text = "1"
Top = 1440
Width = 615
End
Begin VB.TextBox Text24
Height = 270
Left = 600
TabIndex = 108
Text = "5"
Top = 345
Width = 615
End
Begin VB.TextBox Text23
Height = 270
Left = 600
TabIndex = 107
Text = "x^2-5"
Top = 960
Width = 2655
End
Begin VB.Label Label19
Caption = "计算精度:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3720
TabIndex = 132
Top = 360
Width = 855
End
Begin VB.Label Label23
Caption = "dx"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
TabIndex = 131
Top = 960
Width = 375
End
Begin VB.Label Label18
Caption = "∫"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 120
TabIndex = 113
Top = 600
Width = 615
End
End
Begin VB.Frame Frame12
Caption = "微分"
Height = 1935
Left = -74880
TabIndex = 97
Top = 2280
Width = 7095
Begin VB.TextBox Text31
Height = 270
Left = 4680
TabIndex = 136
Text = "Text31"
Top = 1560
Width = 2175
End
Begin VB.CommandButton Command22
Caption = "="
Height = 255
Left = 3840
TabIndex = 135
Top = 1560
Width = 615
End
Begin VB.TextBox Text22
Height = 270
Left = 1680
TabIndex = 102
Text = "x^2"
Top = 360
Width = 3495
End
Begin VB.TextBox Text21
Height = 270
Left = 1680
TabIndex = 101
Text = "1"
Top = 960
Width = 1695
End
Begin VB.TextBox Text20
Height = 270
Left = 1680
TabIndex = 100
Text = "3"
Top = 1560
Width = 1695
End
Begin VB.TextBox Text18
Height = 270
Left = 4680
TabIndex = 99
Top = 960
Width = 2175
End
Begin VB.CommandButton Command15
Caption = "="
Height = 255
Left = 3840
TabIndex = 98
Top = 960
Width = 615
End
Begin VB.Label Label21
Caption = ")"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
TabIndex = 134
Top = 1560
Width = 255
End
Begin VB.Label Label20
Caption = ")"
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -