標題: VBA 解一元二次方程式(有溢位問題求解?) [打印本頁]

---

作者: iverson105    時間: 2020-3-9 16:42     標題: VBA 解一元二次方程式(有溢位問題求解?)

請問各位大神 , 我從網路上下載的, 有  溢位 的問題??
請問如何解
謝謝

1. Sub 解一元二次方程式()
   
2. 
   
3. Dim X1 As String, X2 As String
   
4. 
   
5.     If B ^ 2 - 4 * A * C >= 0 Then
   
6. 
   
7.         X1 = (-1 * B + (B ^ 2 - 4 * A * C) ^ 0.5) / (2 * A)
   
8. 
   
9.         X2 = (-1 * B - (B ^ 2 - 4 * A * C) ^ 0.5) / (2 * A)
   
10. 
    
11.         If InStr(X1, ".") <> 0 Then
    
12. 
    
13.             Text4.Text = Format(X1, "0.00")
    
14. 
    
15.         Else
    
16. 
    
17.             Text4.Text = X1
    
18. 
    
19.         End If
    
20. 
    
21.         If InStr(X2, ".") <> 0 Then
    
22. 
    
23.             Text5.Text = Format(X2, "0.00")
    
24. 
    
25.         Else
    
26. 
    
27.             Text5.Text = X2
    
28. 
    
29.         End If
    
30. 
    
31.     Else
    
32. 
    
33.         If B ^ 2 - 4 * A * C = 0 Then
    
34. 
    
35.             X1 = (-1 * B) / (2 * A)     '重根
    
36. 
    
37.             X2 = (-1 * B) / (2 * A)     '重根
    
38. 
    
39.             If InStr(X1, ".") <> 0 Then
    
40. 
    
41.                 Text4.Text = Format(X1, "0.00")
    
42. 
    
43.             Else
    
44. 
    
45.                 Text4.Text = X1
    
46. 
    
47.             End If
    
48. 
    
49.             If InStr(X2, ".") <> 0 Then
    
50. 
    
51.                 Text5.Text = Format(X2, "0.00")
    
52. 
    
53.             Else
    
54. 
    
55.                 Text5.Text = X2
    
56. 
    
57.             End If
    
58. 
    
59.         Else
    
60. 
    
61.             MsgBox "本方程式無實數解", vbExclamation
    
62. 
    
63.         End If
    
64. 
    
65.     End If
    
66. 
    
67. End Sub
    
68. 
    
69. Private Sub Command1_Click()
    
70. 
    
71. Dim A As Integer, B As Integer, C As Integer
    
72. 
    
73.     A = Val(Text1.Text)
    
74. 
    
75.     B = Val(Text2.Text)
    
76. 
    
77.     C = Val(Text3.Text)
    
78. 
    
79.     解一元二次方程式 A, B, C
    
80. 
    
81. End Sub
    
82. 
    
83. Private Sub Command2_Click()
    
84. 
    
85.     Text1.Text = ""
    
86. 
    
87.     Text2.Text = ""
    
88. 
    
89.     Text3.Text = ""
    
90. 
    
91.     Text4.Text = ""
    
92. 
    
93.     Text5.Text = ""
    
94. 
    
95. End Sub
    
96. 
    
97. Private Sub Text1_KeyPress(KeyAscii As Integer)
    
98. 
    
99.     If InStr("0123456789-" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then KeyAscii = 0
    
100. 
     
101.     If Len(Text1.Text) = 2 Then
     
102. 
     
103.         If Left(Text1.Text, 1) <> "-" Then
     
104. 
     
105.             Text1.Text = Left(Text1.Text, 1)
     
106. 
     
107.         End If
     
108. 
     
109.     End If
     
110. 
     
111. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)