VB 实时计算

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:30:23
程序目标 有各个面值的RMB 1角--100元 通过输入 各自面值货币的数量的数量 实时的计算总金额（不通过按钮实现计算） 不允许输入负数、粘贴、字符,防溢出。
满足要求的追加

首先实时显示不点按钮你只需要把text的事件改成change
然后把text1的小数限制成2位
text2限制成不可以编辑
代码：（我没有VB可能有出入）
if IsNumeric(text1.text) then
a=val(text1.text)
if a>=0 then
c=a-int(a)*100
a=int(a)
d100=a\100
d50=(a-d100*100)\50
d10=(a-d100*100-d50*50)\10
d5=(a-d100*100-d50*50-d10*10)\5
d2=(a-d100*100-d50*50-d10*10-d5*5)\2
d1=a-d100*100-d50*50-d10*10-d5*5-d2*2
e50=c\50
e10=(c-e50*50)\10
e5=(c-e50*50-e10*10)\5
e2=(c-e50*50-e10*10-e5*5)\2
e1=c-e50*50-e10*10-e5*5-e2*2
text2.text=d100 & "个100元面值" & d50 & "个50元" & d10 & "个10元" & d5 & "个5元" & d2 & "个2元" & d1 & "个1元" & e50 & "个5毛" & e20 & "个2毛" & e10 & "个1毛" & e5 & "个5分" & e2 & "个2分" & e1 & "个1分"
else
msgbox"你的数字小于0，你见过这样的RMB吗？"
end if
else
msgbox"请不要输入非法字符！"
end if<