📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "仿真技术上机作业"
ClientHeight = 6090
ClientLeft = -1140
ClientTop = 5805
ClientWidth = 10185
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6090
ScaleWidth = 10185
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox txtbxishu
Height = 285
Left = 2160
TabIndex = 25
Text = "1"
Top = 2880
Width = 975
End
Begin VB.Frame Frame3
Caption = "数据输入"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 5535
Left = 240
TabIndex = 4
Top = 120
Width = 5055
Begin VB.ComboBox suanfacom
Height = 315
ItemData = "frmMain.frx":030A
Left = 1920
List = "frmMain.frx":0317
TabIndex = 27
Text = "四阶龙格库塔法"
Top = 720
Width = 1935
End
Begin VB.CommandButton resetcmd
Caption = "开始输入"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 23
Top = 240
Width = 1095
End
Begin VB.TextBox chuzhi
Height = 285
Left = 1920
TabIndex = 14
Text = "1"
ToolTipText = "请按从低阶到高阶的顺序输入"
Top = 2280
Width = 2895
End
Begin VB.TextBox qujiand
Height = 285
Left = 3720
TabIndex = 13
Text = "1"
Top = 3360
Width = 975
End
Begin VB.TextBox qujianc
Height = 285
Left = 1920
TabIndex = 12
Text = "0"
Top = 3360
Width = 975
End
Begin VB.TextBox xishu
Height = 285
Left = 1920
TabIndex = 11
Text = "0 1"
ToolTipText = "请按从低阶到高阶的顺序输入"
Top = 1800
Width = 2895
End
Begin VB.TextBox jieshu
Height = 285
Left = 1920
TabIndex = 10
Text = "1"
Top = 1320
Width = 975
End
Begin VB.CommandButton jieshucmd
Caption = "阶数输入"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3720
TabIndex = 9
Top = 1320
Width = 1095
End
Begin VB.TextBox txtJD
Height = 270
Left = 1920
TabIndex = 8
Text = "0.01"
Top = 4440
Width = 2175
End
Begin VB.TextBox txtBC
Height = 270
Left = 1920
TabIndex = 7
Text = "0.1"
Top = 3960
Width = 2175
End
Begin VB.CommandButton cmdOK
Caption = "计 算"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 6
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdEXIT
Caption = "退 出"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
TabIndex = 5
Top = 5040
Width = 975
End
Begin VB.Label Label3
Caption = "请选择算法模型"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 26
Top = 840
Width = 1695
End
Begin VB.Label Label11
Caption = "请输入右端系数b"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 24
Top = 2880
Width = 1575
End
Begin VB.Label Label4
Caption = "从"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 22
Top = 3360
Width = 255
End
Begin VB.Label Label6
Caption = "请输入各阶初值"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 21
Top = 2280
Width = 1575
End
Begin VB.Label Label7
Caption = "到"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3120
TabIndex = 20
Top = 3360
Width = 255
End
Begin VB.Label Label8
Caption = "请输入解区间"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 19
Top = 3360
Width = 1335
End
Begin VB.Label Label9
Caption = "请输入各阶系数"
BeginProperty Font
Name = "隶书"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 18
Top = 1800
Width = 1575
End
Begin VB.Label Label10
Caption = "请输入方程的阶数"
BeginProperty Font
Name = "隶书"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -