返回列表 上一主題 發帖

VBA 解一元二次方程式(有溢位問題求解?)

iverson105

帖子
27 
主題
11 
精華
0 
積分
38 
點名
0  
作業系統
window 
軟體版本
window7 
閱讀權限
10 
性別
男 
註冊時間
2019-12-12 
最後登錄
2021-4-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-3-9 16:42 | 只看該作者

VBA 解一元二次方程式(有溢位問題求解?)

請問各位大神 , 我從網路上下載的, 有  溢位 的問題??
請問如何解
謝謝
  1. Sub 解一元二次方程式()

  3. Dim X1 As String, X2 As String

  5.     If B ^ 2 - 4 * A * C >= 0 Then

  7.         X1 = (-1 * B + (B ^ 2 - 4 * A * C) ^ 0.5) / (2 * A)

  9.         X2 = (-1 * B - (B ^ 2 - 4 * A * C) ^ 0.5) / (2 * A)

  11.         If InStr(X1, ".") <> 0 Then

  13.             Text4.Text = Format(X1, "0.00")

  15.         Else

  17.             Text4.Text = X1

  19.         End If

  21.         If InStr(X2, ".") <> 0 Then

  23.             Text5.Text = Format(X2, "0.00")

  25.         Else

  27.             Text5.Text = X2

  29.         End If

  31.     Else

  33.         If B ^ 2 - 4 * A * C = 0 Then

  35.             X1 = (-1 * B) / (2 * A)     '重根

  37.             X2 = (-1 * B) / (2 * A)     '重根

  39.             If InStr(X1, ".") <> 0 Then

  41.                 Text4.Text = Format(X1, "0.00")

  43.             Else

  45.                 Text4.Text = X1

  47.             End If

  49.             If InStr(X2, ".") <> 0 Then

  51.                 Text5.Text = Format(X2, "0.00")

  53.             Else

  55.                 Text5.Text = X2

  57.             End If

  59.         Else

  61.             MsgBox "本方程式無實數解", vbExclamation

  63.         End If

  65.     End If

  67. End Sub

  69. Private Sub Command1_Click()

  71. Dim A As Integer, B As Integer, C As Integer

  73.     A = Val(Text1.Text)

  75.     B = Val(Text2.Text)

  77.     C = Val(Text3.Text)

  79.     解一元二次方程式 A, B, C

  81. End Sub

  83. Private Sub Command2_Click()

  85.     Text1.Text = ""

  87.     Text2.Text = ""

  89.     Text3.Text = ""

  91.     Text4.Text = ""

  93.     Text5.Text = ""

  95. End Sub

  97. Private Sub Text1_KeyPress(KeyAscii As Integer)

  99.     If InStr("0123456789-" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then KeyAscii = 0

  101.     If Len(Text1.Text) = 2 Then

  103.         If Left(Text1.Text, 1) <> "-" Then

  105.             Text1.Text = Left(Text1.Text, 1)

  107.         End If

  109.     End If

  111. End Sub
複製代碼
收藏 分享
Ian

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題