Question

vb编程里的“实时错误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
Text4.Text = Str(x1)
Text5.Text = Str(x2)
Lable6.Caption = "有两个相同的实数根"
Else
Text4.Text = ""
Text5.Text = ""
Lable6.Caption = "有没有相同的实数根"
End If
End If
End Sub

Answer 1

vb编程里的“实时错误424”是名字错误，需要先把控件画好，并命名完再写代码，操作方法如下：

1、首先在VB编程软件中，利用Inputbox输入一个数。

2、然后输入Select Case判断语句的框架。

3、接着输入第一支分支的语句。

4、然后输入第二条语句，判断的反面条件，可用Else代替。

5、最后运行测试，如下图所示，就完成了。

Answer 2

错误解释:
未找到窗体（错误 424）
窗体未被找到。此错误产生的原因及解决方法如下：
试图用 Add 方法向 Forms 集合中添加一个窗体，但是却没有该名字的窗体类，例如 Forms.Add "Form2"，这里 Form2 不存在。
确保工程中的类名字是有效的。

解决方案:
Form1.BackColor = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256))
请检查Form1是否存在

Answer 3

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
Text4.Text = Str(x1)
Text5.Text = Str(x2)
Lable6.Caption = "有两个相同的实数根" '小心这里吧，看看你的标签名称是label6还是Lable6或者是label1，标签默认名称是label
Else
Text4.Text = ""
Text5.Text = ""
Lable6.Caption = "有没有相同的实数根"
End If
End If
End Sub