求VB；差等于或小于减数的代码

来源：百度知道编辑：UC知道时间：2024/05/24 14:35:37

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
ee = Text6.Text
Text7.Text = Val(a) + Val(b) + Val(c) + Val(d) + Val(e) - Val(ee)
例如：10+10+10+10+10-24=2
本人刚学，是门外汉；望高人帮我修改。
10+10+10+10+10-24=2
差等于26但26大于减数24，应再减去24就等于2

dim i%
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
ee = Text6.Text
text7=((val(a)+val(b)+val(c)+val(d)+val(e))) mod val(ee)
求余就可以了！

10+10+10+10+10-24=2
这样的题目,估计VB做不出来..好难. ^&^

补充:
dim i%
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
ee = Text6.Text
i= Val(a) + Val(b) + Val(c) + Val(d) + Val(e) - Val(ee)
Text7.Text =iif(i<=val(ee),i,i-val(ee))

10+10+10+10+10-24=2 这样的不太可能
差等于或小于减数的这样符合条件很多

肯定有个范围