求求大佬幫我解答一下，這個作業真的不會。改了好多次也沒懂18行哪里錯了。順便想求解一下3-2的題，拜托了!
uj5u.com熱心網友回復：
你定義變數的時候不定義其資料型別，于是都是Variant型別你從inputbox輸入的是字串，賦值給abc變數的時候，這三個變數就自動轉換成字串了。后續你的計算就出錯了
uj5u.com熱心網友回復：
Dim a ,b ,c, delta
a = cdbl(InputBox("輸入a"))
b = cdbl(InputBox("輸入b"))
c = cdbl(InputBox("輸入c"))
delta = b ^ 2 - 4 * a * c
If delta < 0 Then
MsgBox "無解"
Else
Dim X1,X2
X1 = ((-b) + Sqr(delta)) / (2 * a)
X2 = ((-b) - Sqr(delta)) / (2 * a)
MsgBox "兩解：" & vbCrLf & X1 & vbCrLf & X2
End If
uj5u.com熱心網友回復：
請確認一下最后一個msgbox中字串的雙引號都是半角的;uj5u.com熱心網友回復：
自動型別一時爽，代碼除錯火葬場。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18473.html
標籤：VB基礎類