vb编程里的“实时错误424”是什么意思
PrivateSubCommand1_Click()Dima,b,c,x1,x2AsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=V...
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 展开
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 展开
推荐于2017-10-05 · 知道合伙人数码行家
可以叫我表哥
知道合伙人数码行家
向TA提问 私信TA
知道合伙人数码行家
采纳数:25897
获赞数:1464984
2010年毕业于北京化工大学北方学院计算机科学与技术专业毕业,学士学位,工程电子技术行业4年从业经验。
向TA提问 私信TA
关注
展开全部
错误解释:
未找到窗体(错误 424)
窗体未被找到。此错误产生的原因及解决方法如下:
试图用 Add 方法向 Forms 集合中添加一个窗体,但是却没有该名字的窗体类,例如 Forms.Add "Form2",这里 Form2 不存在。
确保工程中的类名字是有效的。
解决方案:
Form1.BackColor = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256))
请检查Form1是否存在
未找到窗体(错误 424)
窗体未被找到。此错误产生的原因及解决方法如下:
试图用 Add 方法向 Forms 集合中添加一个窗体,但是却没有该名字的窗体类,例如 Forms.Add "Form2",这里 Form2 不存在。
确保工程中的类名字是有效的。
解决方案:
Form1.BackColor = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256))
请检查Form1是否存在
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询