📄 1111.frm
字号:
TabIndex = 58
Top = 1800
Width = 1185
End
Begin VB.CheckBox Check1
Caption = "显示b值："
ForeColor = &H00FF00FF&
Height = 345
Left = 150
TabIndex = 57
Top = 1410
Value = 1 'Checked
Width = 1155
End
Begin VB.OptionButton Option1
Caption = "K取值选择"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 285
Left = 120
TabIndex = 56
Top = 120
Value = -1 'True
Width = 1545
End
Begin VB.TextBox Text7
BackColor = &H8000000F&
Enabled = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1410
TabIndex = 55
Text = "26.666"
Top = 1830
Width = 1095
End
Begin VB.ComboBox Combo1
BackColor = &H8000000F&
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
ItemData = "1111.frx":0442
Left = 720
List = "1111.frx":0464
TabIndex = 27
Text = "2"
Top = 1050
Width = 1095
End
Begin VB.ComboBox C1
BackColor = &H8000000F&
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
ItemData = "1111.frx":0487
Left = 720
List = "1111.frx":04AF
TabIndex = 6
Text = "5"
Top = 480
Width = 1095
End
Begin VB.TextBox Text2
BackColor = &H8000000F&
Enabled = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1410
TabIndex = 5
Top = 2220
Width = 1065
End
Begin VB.TextBox Text1
BackColor = &H8000000F&
Enabled = 0 'False
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1440
TabIndex = 4
Top = 1410
Width = 1095
End
Begin VB.Label Label35
Caption = "转数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 2670
TabIndex = 71
Top = 2220
Width = 495
End
Begin VB.Label Label4
Caption = "K ="
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2760
TabIndex = 61
Top = 1800
Width = 405
End
Begin VB.Label Label26
Caption = "K="
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 285
Left = 1920
TabIndex = 54
Top = 660
Width = 315
End
Begin VB.Label Label27
Caption = "2+3(n-1)"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2340
TabIndex = 53
Top = 480
Width = 915
End
Begin VB.Label Label28
Caption = " n"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2370
TabIndex = 52
Top = 840
Width = 795
End
Begin VB.Line Line12
BorderColor = &H000000FF&
BorderWidth = 2
X1 = 2250
X2 = 3360
Y1 = 810
Y2 = 810
End
Begin VB.Label Label29
Caption = "K按上式取值，n取大于等于1的正整数，如1,2,3,4,..."
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 915
Left = 3510
TabIndex = 51
Top = 300
Width = 1545
End
Begin VB.Label Label17
Caption = "r2 ="
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 255
Left = 720
TabIndex = 32
Top = 2220
Width = 495
End
Begin VB.Line Line5
BorderColor = &H000000FF&
BorderWidth = 2
X1 = 630
X2 = 1830
Y1 = 960
Y2 = 960
End
Begin VB.Label Label3
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 375
Left = 120
TabIndex = 3
Top = 1890
Width = 495
End
Begin VB.Label Label2
Caption = " K ="
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 375
Left = 60
TabIndex = 2
Top = 810
Width = 585
End
End
Begin VB.PictureBox P1
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
DrawWidth = 2
Height = 6000
Left = 210
ScaleHeight = 5940
ScaleMode = 0 'User
ScaleWidth = 5865
TabIndex = 0
Top = 1170
Width = 5920
Begin VB.Label Label18
BackColor = &H00FFFFFF&
Caption = "X"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 5520
TabIndex = 33
Top = 2850
Width = 225
End
Begin VB.Label Label19
BackColor = &H00FFFFFF&
Caption = "Y"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 2640
TabIndex = 34
Top = 240
Width = 255
End
Begin VB.Shape S5
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
BorderColor = &H00FF00FF&
BorderWidth = 2
Height = 255
Left = 3480
Shape = 3 'Circle
Top = 1200
Width = 255
End
Begin VB.Shape S4
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
BorderColor = &H00FF00FF&
BorderWidth = 2
Height = 255
Left = 3720
Shape = 3 'Circle
Top = 1560
Width = 255
End
Begin VB.Shape S3
BorderColor = &H000000C0&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -