Question

vb输出问题

TL = a +b + c + 0.003 + ( 30 * d / 10000 ) / 100
在TL<3.0时，x=0.003+1.25*TL+0.0065
在TL>3.0时，x=1.35*TL+0.0065
怎样编写一个关于x的计算器。输入a,b,c,d时，都能得出相应的结果x

Answer 1

Private Sub Form_Load()
a = Val(InputBox("输入a:", "请输入a"))
b = Val(InputBox("输入b:", "请输入b"))
c = Val(InputBox("输入c:", "请输入c"))
TL = a + b + c + 0.003 + (30 * d / 10000) / 100
If TL < 3 Then
MsgBox 0.003 + 1.25 * TL + 0.0065
Else
MsgBox 1.35 * TL + 0.0065
End If
End Sub

直接在新建工程代码区贴入上面的代码就可以了