VB各种出错信息汇总

各种出错信息汇总序号出错信息程序代码段错误原因及订正1PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=-5y=Abc(x)Label1.Caption=Str(y)EndSubAbc(x)函数不是标准函数，必须事先由编写者自行定义函数才能使用或者此处的abc应该写成abs2PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=5.3y=int(x)Label1.Caption=Str(y)EndSubLabel1对象不存在，必须先在窗体中创建一个名为label1的标签对象3PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=5.3y=int(x)Label1.text=Str(y)EndSub标签对象label1的属性中没有text属性，要在label1中显示文字，那么应该输入的属性名是caption4PrivateSubCommand1_Click()DimaAsIntegerDimxAsDoublea=-4x=Sqr(a)Label1.Caption=Str(x)EndSubSqr(x)函数中的x必须是正数5PrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=10s=10^nText1.Text=Str(s)EndSub变量s的数据类型说明不当，integer的范围是-32768~32767，而10^10的值远远大于这个范围，应该将s的数据类型定义为single或者double序号出错信息程序代码段错误原因及订正6PrivateSubCommand1_Click()DimrAsSingleDimpiAsDoubler=100pi=3.14Label1.Caption=圆面积为：+Val(pi*r*r)EndSubVal(x)函数的返回值的数据类型是数值，而caption属性的值是字符串类型，“=”的左右两边数据类型不匹配7PrivateSubCommand1_Click()Dima(0To5)AsIntegerDimiAsIntegera(0)=1Fori=1To5a(i)=2*a(i-1)+1NextiText1.Text=Str(a(6))EndSub数组a的下标范围是0~5，a(6)中的下标没有定义8PrivateSubCommand1_Click()Dima(0To5)AsIntegerDimiAsIntegera(0)=1Fori=1To6a(i)=2*a(i-1)+1NextiText1.Text=Str(a(5))EndSub理由同上9PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsSinglea=2b=a+1c=a/(b-3)Text1.Text=Str(c)EndSubb-3=0