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/06/19 06:13:55
![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-超](/uploads/image/z/680425-25-5.jpg?t=VB%E5%88%A4%E6%96%AD%E8%AF%AD%E5%8F%A5%2C%E6%B1%82%E6%80%9D%E8%B7%AF%3F%E6%9F%90%E5%85%AC%E5%8F%B8%E5%91%98%E5%B7%A5%E5%AE%9A%E9%A2%9D%E6%98%AF1000%E4%BB%B6%2C%E5%8D%95%E4%BB%B7%EF%BC%9A0.1%E5%85%83%2F%E4%BB%B6%2C%E8%B6%85%E5%87%BA1000%E4%BB%B6%2C%E6%8C%89%E7%85%A7%E8%B6%85%E9%A2%9D%EF%BC%9A0.12%E5%85%83%E6%AF%8F%E4%BB%B6.%E5%A6%82%E6%9E%9C%E6%B2%A1%E8%B6%85%E6%98%AF998%E4%BB%B6+%E5%B0%B1%E6%98%AF998%2A0.1%3D99.8%E5%85%83%E8%B6%85%E9%A2%9D1200%E4%BB%B6%E5%B0%B1%E6%98%AF%EF%BC%9A1000%2A0.1%3D100%2C200%E4%BB%B6%2A0.12%3D24+%E5%90%88%E8%AE%A1124+%E8%A6%81%E6%B1%82%EF%BC%9A1-%E5%AE%9A%E9%A2%9D%EF%BC%9A2-%E8%B6%85)
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)
自己将汉字换成对应的控件名吧.