📄 线性方程.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmxxfc
BorderStyle = 1 'Fixed Single
Caption = "线性方程"
ClientHeight = 4155
ClientLeft = 45
ClientTop = 330
ClientWidth = 4845
Icon = "线性方程.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4155
ScaleWidth = 4845
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "计算结果"
Height = 1815
Left = 0
TabIndex = 17
Top = 1800
Width = 4815
Begin VB.ListBox List1
Height = 1500
Left = 120
TabIndex = 22
Top = 240
Width = 4575
End
End
Begin VB.CommandButton Command2
Caption = "关闭"
Height = 375
Left = 3840
TabIndex = 2
Top = 3720
Width = 975
End
Begin VB.CommandButton Command1
Caption = "计算"
Height = 375
Left = 2760
TabIndex = 1
Top = 3720
Width = 975
End
Begin TabDlg.SSTab SSTab1
Height = 1695
Left = 0
TabIndex = 0
Top = 0
Width = 4815
_ExtentX = 8493
_ExtentY = 2990
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "已知两点"
TabPicture(0) = "线性方程.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Text1"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Text2"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Text3"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Text4"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).ControlCount= 8
TabCaption(1) = "一点和斜率"
TabPicture(1) = "线性方程.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Text7"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Text6"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Text5"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label7"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label6"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label5"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
TabCaption(2) = "插值"
TabPicture(2) = "线性方程.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command4"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Command3"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Text9"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Text8"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Label9"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Label8"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).ControlCount= 6
Begin VB.CommandButton Command4
Caption = "<<<"
Height = 375
Left = -72360
TabIndex = 24
Top = 1080
Width = 735
End
Begin VB.CommandButton Command3
Caption = ">>>"
Height = 375
Left = -73080
TabIndex = 23
Top = 1080
Width = 735
End
Begin VB.TextBox Text9
Height = 270
Left = -71760
TabIndex = 21
Text = "Text9"
Top = 600
Width = 1335
End
Begin VB.TextBox Text8
Height = 270
Left = -74280
TabIndex = 19
Text = "Text8"
Top = 600
Width = 1215
End
Begin VB.TextBox Text7
Height = 270
Left = -71760
TabIndex = 16
Text = "Text7"
Top = 1080
Width = 1215
End
Begin VB.TextBox Text6
Height = 270
Left = -74280
TabIndex = 15
Text = "Text6"
Top = 1080
Width = 1215
End
Begin VB.TextBox Text5
Height = 270
Left = -74280
TabIndex = 14
Text = "Text5"
Top = 600
Width = 1215
End
Begin VB.TextBox Text4
Height = 270
Left = 3240
TabIndex = 10
Text = "Text4"
Top = 1080
Width = 1215
End
Begin VB.TextBox Text3
Height = 270
Left = 3240
TabIndex = 9
Text = "Text3"
Top = 600
Width = 1215
End
Begin VB.TextBox Text2
Height = 270
Left = 720
TabIndex = 8
Text = "Text2"
Top = 1080
Width = 1215
End
Begin VB.TextBox Text1
Height = 270
Left = 720
TabIndex = 7
Text = "Text1"
Top = 600
Width = 1215
End
Begin VB.Label Label9
Caption = "Y＝"
Height = 255
Left = -72240
TabIndex = 20
Top = 600
Width = 735
End
Begin VB.Label Label8
Caption = "X＝"
Height = 255
Left = -74760
TabIndex = 18
Top = 600
Width = 855
End
Begin VB.Label Label7
Caption = "K＝"
Height = 255
Left = -72240
TabIndex = 13
Top = 1080
Width = 855
End
Begin VB.Label Label6
Caption = "Y1＝"
Height = 255
Left = -74760
TabIndex = 12
Top = 1080
Width = 855
End
Begin VB.Label Label5
Caption = "X1＝"
Height = 255
Left = -74760
TabIndex = 11
Top = 600
Width = 1215
End
Begin VB.Label Label4
Caption = "Y2＝"
Height = 255
Left = 2760
TabIndex = 6
Top = 1080
Width = 975
End
Begin VB.Label Label3
Caption = "X2＝"
Height = 255
Left = 2760
TabIndex = 5
Top = 600
Width = 975
End
Begin VB.Label Label2
Caption = "Y1＝"
Height = 255
Left = 240
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.Label Label1
Caption = "X1＝"
Height = 255
Left = 240
TabIndex = 3
Top = 600
Width = 1095
End
End
End
Attribute VB_Name = "frmxxfc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim xa As Double, ya As Double
Dim xb As Double, yb As Double
Dim aa As Double, bb As Double
Dim kk As Double
Dim xx As Double, yy As Double
Private Sub Command1_Click()
'计算
On Error GoTo handlerror
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -