我有這個公式要解決。 在此處輸入影像描述
這是我在公式中輸出錯誤的代碼。
Private Sub CommandButton6_Click()
Dim Z As String
Dim X As Double, Y As Double
Z = InputBox("Input number X!", "Inputing number X"): X = Val(Z)
Y = Sqr(2 * ((X - 2) ^ 2) * ((8 - X) - 1)^1/3
MsgBox ("Y =" Str(Y))
End Sub
uj5u.com熱心網友回復：
考慮到當我們在根下得到否定結果時
Y = (2 * ((X - 2) ^ 2) * (8 - X) - 1)
If Y >= 0 Then
Y = Y ^ (1 / 3)
Else
Y = -(Abs(Y) ^ (1 / 3))
End If
這是評論中第二個問題的答案
Y = (2 * (X ^ 2) * (X - 6))
If Y >= 0 Then
Y = 1 (Y ^ (1 / 3))
Else
Y = 1 - (Abs(Y) ^ (1 / 3))
End If
您可以根據需要添加圓角，但在影像鏈接中沒有看到任何圓角。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/514469.html
標籤：擅长vba
上一篇：如何使用來自cordova-plugin-camera的<img>顯示影像
下一篇：如何從資料框中的1開始