麻辣家族討論版版 » VB 與 VB.Net » 請教一個白痴問題求多項式系數運算

返回列表下一主題上一主題發帖

請教一個白痴問題求多項式系數運算

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-8-27 13:47 | 只看該作者

請教一個白痴問題求多項式系數運算

y=ax2+b+c
求下列 -b/2a VBA 要如何寫

y = 0.325x2 - 2.285x + 96.81
y = -0.4493x2 + 4.6159x + 79.479
y = -0.5191x2 + 4.9765x + 77.152
y = -0.3759x2 + 3.0353x + 80.458
y = -0.828x2 + 6.9143x + 71.517
y = -0.7489x2 + 5.9881x + 72.839
y = -0.6864x2 + 5.9984x + 69.456
y = -0.7438x2 + 6.3198x + 68.193
y = -0.9405x2 + 8.6403x + 60.431
y = -0.7646x2 + 7.1892x + 61.879
y = -0.5975x2 + 6.2365x + 61.215
感謝~

樓主熱帖

收藏

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-8-27 15:07 | 只看該作者

回復 1# jysun1

請參考

Sub 計算(PT As Range)
Dim strMsg, a#, b#, c#
strMsg = Split(PT, " ")
a = Left(strMsg(2), Len(strMsg(2)) - 2)
b = Left(strMsg(4), Len(strMsg(4)) - 1)
If strMsg(3) = "-" Then b = -b
c = strMsg(6)
If strMsg(5) = "-" Then c = -c
'MsgBox a & Chr(10) & b & Chr(10) & c
PT.Offset(0, 1) = -b / (2 * a)
End Sub

複製代碼

多項式.zip (15.07 KB)

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

3^#

發表於 2018-8-27 22:28 | 只看該作者

回復 2# a5007185

感謝大大，
搞定了!
謝謝您的回覆~

靜思自在 : 發脾氣是短暫的發瘋。

返回列表下一主題上一主題