vb 变量运算

来源：百度知道 编辑：UC知道 时间：2024/05/27 09:38:44
Private Sub Command13_Click()
a1 = (Label12 * Label14 + Label11 * Label16 + Label10 * Label18) * 3
a2 = Label12 + Label11 + Label10
a3 = Label14 + Label16 + Label18
a4 = 3 * (Label14 ^ 2 + Label16 ^ 2 + Label18 ^ 2)
Label19.Caption = (a1 - a2 * a3) / (a4 - a3 * a3)
End Sub
运行显示实时错误 13
这是怎么回事啊
Label19.Caption = (a1 - a2 * a3) / (a4 - a3 * a3)
这行错误
如果输入Label19.Caption =a1 就可以运行
输入Label19.Caption =a1 +a2 就又错误 只要变量运算就不行

这样就 OK了

必须是数值型才能进行运算，否则就会出错~！

Private Sub Command13_Click()
a1 = (Val(Label12) * Val(Label14) + Val(Label11) * Val(Label16) + Val(Label10) * Val(Label18)) * 3
a2 = Val(Label12) + Val(Label11) + Val(Label10)
a3 = Val(Label14) + Val(Label16) + Val(Label18)
a4 = 3 * (Val(Label14) ^ 2 + Val(Label16) ^ 2 + Val(Label18) ^ 2)
Label19.Caption = (a1 - a2 * a3) / (a4 - a3 * a3)
End Sub

算术运算之前应对Label控件中的内容进行类型转换，.Caption属性是字符串类型的。
如：
a1 = (Cdbl(Label12) *cdbl( Label14)

第一:你要检查你的控件是不是全部添加到窗体上了,不要缺少!
第二:如果你要的效果是进行数学运算,那么你代码中的label前面要加val函数,即:val(label12)+val(label11),像这样!

要注意数据类型啊！
首先应为 a1 = cdbl（(Label12 * Label14 + Label11 * Label16 + Label10 * Label18) * 3 ）
其他的类推啊