📄 jiefangc.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8205
ClientLeft = 60
ClientTop = 450
ClientWidth = 8805
LinkTopic = "Form1"
ScaleHeight = 8205
ScaleWidth = 8805
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text9
Height = 615
Left = 5280
TabIndex = 20
Top = 6240
Width = 2295
End
Begin VB.TextBox Text8
Height = 615
Left = 5280
TabIndex = 16
Top = 5280
Width = 2295
End
Begin VB.TextBox Text7
Height = 615
Left = 1200
TabIndex = 14
Top = 6120
Width = 3495
End
Begin VB.CommandButton Command1
Caption = "解一元三次方程"
Height = 2895
Left = 6840
TabIndex = 12
Top = 1080
Width = 1575
End
Begin VB.TextBox Text6
Height = 735
Left = 1200
TabIndex = 11
Top = 5280
Width = 3495
End
Begin VB.TextBox Text5
Height = 735
Left = 1200
TabIndex = 9
Top = 4080
Width = 3255
End
Begin VB.TextBox Text4
Height = 615
Left = 1200
TabIndex = 7
Top = 3240
Width = 3135
End
Begin VB.TextBox Text3
Height = 615
Left = 1200
TabIndex = 5
Top = 2280
Width = 3135
End
Begin VB.TextBox Text2
Height = 615
Left = 1080
TabIndex = 3
Top = 1200
Width = 3255
End
Begin VB.TextBox Text1
Height = 615
Left = 1080
TabIndex = 1
Top = 120
Width = 3375
End
Begin VB.Label Label12
Caption = "d="
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 240
TabIndex = 19
Top = 3120
Width = 615
End
Begin VB.Label Label10
Caption = "i"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 7800
TabIndex = 18
Top = 6120
Width = 735
End
Begin VB.Label Label9
Caption = "i"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 7800
TabIndex = 17
Top = 5040
Width = 735
End
Begin VB.Label Label8
Caption = "+"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 4800
TabIndex = 15
Top = 6120
Width = 495
End
Begin VB.Label Label7
Caption = "+"
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 4680
TabIndex = 13
Top = 5280
Width = 615
End
Begin VB.Label Label6
Caption = "X3="
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 10
Top = 6120
Width = 1215
End
Begin VB.Label Label5
Caption = "X2="
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 8
Top = 5160
Width = 975
End
Begin VB.Label Label4
Caption = "X1="
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 6
Top = 4080
Width = 1095
End
Begin VB.Label Label3
Caption = "c="
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 120
TabIndex = 4
Top = 2160
Width = 855
End
Begin VB.Label Label2
Caption = "b="
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 120
TabIndex = 2
Top = 1080
Width = 855
End
Begin VB.Label Label1
Caption = "a="
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 120
TabIndex = 0
Top = 0
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a#, b#, c#, d#, A1#, B1#, C1#, D1, X1#, X2#, X3#, X2i#, X3i#, Y1#, Y2#, k#, T#, r#, j1#, j2#
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
If b = c And c = d And d = 0 Then
X1 = 0
X2 = X1
X3 = X2
X2i = 0
X3i = 0
GoTo G
End If
A1 = b ^ 2 - 3 * a * c
B1 = b * c - 9 * a * d
C1 = c ^ 2 - 3 * b * d
j1 = B1 ^ 2
j2 = 4 * A1 * C1
D1 = B1 ^ 2 - 4 * A1 * C1
D1 = j1 - j2
If D1 > 0 Then
Y1 = A1 * b + 1.5 * a * (-B1 - D1 ^ 0.5) '正确
Y2 = A1 * b + 1.5 * a * (-B1 + D1 ^ 0.5) '正确
GoTo L
Else: GoTo s
End If
s:
If A1 = B1 And A1 = 0 Then
X1 = -c / b '正确
X2 = X1
X3 = X1 '正确
X2i = 0
X3i = 0
ElseIf D1 = 0 Then
k = B1 / A1
X1 = -b / a + k '正确
X2 = -0.5 * k '正确
X3 = X2 '正确
X2i = 0
X3i = 0
ElseIf D1 < 0 Then
T = (2 * A1 * b - 3 * a * B1) * (A1 ^ 0.5) / (2 * A1 * A1) '正确
r = Atn(-T / Sqr(-T * T + 1)) + 2 * Atn(1) '正确
X1 = (-b - 2 * (A1 ^ 0.5) * Cos(r / 3)) / (3 * a) '正确
X2 = (-b + (A1 ^ 0.5) * (Cos(r / 3) - (3 ^ 0.5) * Sin((r / 3)))) / (3 * a) '正确
X3 = (-b + (A1 ^ 0.5) * (Cos(r / 3) + (3 ^ 0.5) * (Sin(r / 3)))) / (3 * a) '正确
X2i = 0
X3i = 0
End If
GoTo G
L:
If Y1 < 0 And Y2 < 0 Then
X1 = (-b - (-(-Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X2 = (-b + 0.5 * (-(-Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X3 = (-b + 0.5 * (-(-Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X2i = -((3 ^ 0.5) / 2) * (-(-Y1) ^ (1 / 3) + (-Y2) ^ (1 / 3)) / (3 * a) '正确
X3i = ((3 ^ 0.5) / 2) * (-(-Y1) ^ (1 / 3) + (-Y2) ^ (1 / 3)) / (3 * a) '正确
ElseIf Y1 < 0 And Y2 > 0 Then
X1 = (-b - (-(-Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a) '正确
X2 = (-b + 0.5 * (-(-Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a) '正确
X3 = (-b + 0.5 * (-(-Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a)
X2i = -((3 ^ 0.5) / 2) * (-(-Y1) ^ (1 / 3) - (Y2) ^ (1 / 3)) / (3 * a) '正确
X3i = ((3 ^ 0.5) / 2) * (-(-Y1) ^ (1 / 3) - (Y2) ^ (1 / 3)) / (3 * a) '正确
ElseIf Y1 > 0 And Y2 < 0 Then
X1 = (-b - ((Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X2 = (-b + 0.5 * ((Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X3 = (-b + 0.5 * ((Y1) ^ (1 / 3) - (-Y2) ^ (1 / 3))) / (3 * a) '正确
X2i = -((3 ^ 0.5) / 2) * ((Y1) ^ (1 / 3) + (-Y2) ^ (1 / 3)) / (3 * a) '正确
X3i = ((3 ^ 0.5) / 2) * ((Y1) ^ (1 / 3) + (-Y2) ^ (1 / 3)) / (3 * a) '正确
Else
X1 = (-b - ((Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a) '正确
X2 = (-b + 0.5 * ((Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a) '正确
X3 = (-b + 0.5 * ((Y1) ^ (1 / 3) + (Y2) ^ (1 / 3))) / (3 * a)
X2i = -((3 ^ 0.5) / 2) * ((Y1) ^ (1 / 3) - (Y2) ^ (1 / 3)) / (3 * a) '正确
X3i = ((3 ^ 0.5) / 2) * ((Y1) ^ (1 / 3) - (Y2) ^ (1 / 3)) / (3 * a) '正确
End If
G:
Text5.Text = X1
Text6.Text = X2
Text7.Text = X3
Text8.Text = X2i
Text9.Text = X3i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -