VB判断语句,求思路?某公司员工定额是1000件,单价:0.1元/件,超出1000件,按照超额:0.12元每件.如果没超是998件 就是998*0.1=99.8元超额1200件就是:1000*0.1=100,200件*0.12=24 合计124 要求:1-定额:2-超
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 14:47:10
VB判断语句,求思路?某公司员工定额是1000件,单价:0.1元/件,超出1000件,按照超额:0.12元每件.如果没超是998件 就是998*0.1=99.8元超额1200件就是:1000*0.1=100,200件*0.12=24 合计124 要求:1-定额:2-超
VB判断语句,求思路?
某公司员工定额是1000件,单价:0.1元/件,超出1000件,按照超额:0.12元每件.
如果没超是998件 就是998*0.1=99.8元
超额1200件就是:1000*0.1=100,200件*0.12=24 合计124
要求:
1-定额:
2-超额:
3-合计:
text2 是 预计件数
text3 是 超额单价
text4 是 定额
text5 是 超额
text5 是 合计 (定额和超额的和)
Dim x As Double 不成功··
可以给思路
或者给代码··谢谢··
text6是 合计 (定额和超额的和)
val 省去了··让你看的清楚些
Dim X As Integer '
If Val(Text2.Text) > 1000 Then
X = Text1.Text * 1000
text5.text=(text2.text-text6.text)*text3.text
Else
X = Text1.Text) * Val(Text2.Text)
text5.text=0
End If
text6=x+text5.text
VB判断语句,求思路?某公司员工定额是1000件,单价:0.1元/件,超出1000件,按照超额:0.12元每件.如果没超是998件 就是998*0.1=99.8元超额1200件就是:1000*0.1=100,200件*0.12=24 合计124 要求:1-定额:2-超
你的描述太乱了,看不懂,还是看我的吧
定额.Text = Val(定额单价.Text) * Iif(Val(定额数.Text) < Val(实际完成数.Text), Val(定额数.Text), Val(实际完成数.Text))
超额.Text = Val(超额单价.Text) * Iif(Val(实际完成数.Text) - Val(定额数.Text) > 0, Val(实际完成数.Text) - Val(定额数.Text), 0)
合计.Text = Val(定额.Text) + Val(超额.Text)
自己将汉字换成对应的控件名吧.