UC知道vb 数学计算，不运行，为什么？
来源：百度知道 编辑：UC知道 时间：2024/05/21 11:38:01
这样的编码，为什么运行计算的时候出错误呢，请高手指教
Private Sub Command1_Click()
Dim a, b, c, d ，o As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
o = (a + b - c) / b * 100
Text5 = o
End Sub
o = (a + b - c) / b * 100
这行提示错误
Private Sub Command1_Click()
Dim a, b, c, d ，o As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
o = (a + b - c) / b * 100
Text5 = o
End Sub
o = (a + b - c) / b * 100
这行提示错误
Text1.Text文本框返回的类型是字符串，假如你输入的是5，那么返回的值是"5"
为了运算，必须进行如下处理
a=val(Text1.Text)
Text1.Text 一般是 字符
运算 必须 是 数值
所以 要转换
a = val(trim(Text1.Text))
Good luck
Private Sub Command1_Click()
Dim a as double, b as double, c as double, d as double, o As Double 'VB的语句和C不一样，必须这样写才能达到效果
a = cdbl(Text1.Text)
b = cdbl(Text2.Text)
c = cdbl(Text3.Text)
d = cdbl(Text4.Text)
o = (a + b - c) / b * 100
Text5.text = cstr(o)
End Sub
把 ABCD 赋值语句等号后面加上 CDbl（）