424“要求物件”，是所用到的語句中的物件沒有定義，點除錯，看出錯那一行用到什麼控制元件，在看看是否用到的控制元件視窗中都有！如果沒有趕緊畫一個，千萬小心名字錯誤，應該先把控制元件畫好，並命名完再寫程式碼，那樣只要你的程式碼中的名稱沒有物件，打小數點時就不會跳出屬性，只有名稱對了才會跳出屬性，這樣就不會有424錯誤了。 Private Sub Command1_Click() Dim a, b, c, x1, x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b ^ 2 - 4 * a * c If d > 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a)
Text4.Text
= Str(x1)
Text5.Text
= Str(x2)
Lable6.Caption
= "有兩個不同的實數根" Else If d = 0 Then x1 = (-b) / (2 * a) x1 = x2
424“要求物件”，是所用到的語句中的物件沒有定義，點除錯，看出錯那一行用到什麼控制元件，在看看是否用到的控制元件視窗中都有！如果沒有趕緊畫一個，千萬小心名字錯誤，應該先把控制元件畫好，並命名完再寫程式碼，那樣只要你的程式碼中的名稱沒有物件，打小數點時就不會跳出屬性，只有名稱對了才會跳出屬性，這樣就不會有424錯誤了。 Private Sub Command1_Click() Dim a, b, c, x1, x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b ^ 2 - 4 * a * c If d > 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a)
Text4.Text
= Str(x1)Text5.Text
= Str(x2)Lable6.Caption
= "有兩個不同的實數根" Else If d = 0 Then x1 = (-b) / (2 * a) x1 = x2Text4.Text
= Str(x1)Text5.Text
= Str(x2)Lable6.Caption
= "有兩個相同的實數根" "小心這裡吧，看看你的標籤名稱是label6還是Lable6或者是label1，標籤預設名稱是label ElseText4.Text
= ""Text5.Text
= ""Lable6.Caption
= "有沒有相同的實數根" End If End If End Sub