本文目录
vb编程里的“实时错误424”是什么意思?
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
(图片来源网络,侵删)
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
还没有评论,来说两句吧...