vb 函数除法余数

窗体有一个命令按钮,一个combox(list=1-20),21个text,其中text1为单独,text2(0-10)是数组。想实现,例如:在text1中输入10000... 窗体有一个命令按钮,一个combox(list=1-20),21个text,其中text1为单独,text2(0-10)是数组。想实现,例如:在text1中输入10000,在combox中选择3,点击按钮,text1中的10000被分别分配到text2(0-2)中,不是除法,会有除不尽的时候,可以按比例分,比如输入的text2(0)=4000,text2(1)=4000,texte2(2)=6000,正好相加等于text1,还没有除不尽的余数。这只是个举例,因为有text2数组有20个文本。能否实现?
谢谢,秀才说得很对,我要的就是这样子,最好最后的余数和前面的数相差不大,像你第一种分发很好3333 3333 3334.不知如何实现,能否写一下代码谢谢
展开
 我来答
听不清啊
高粉答主

推荐于2017-09-13 · 说的都是干货,快来关注
知道顶级答主
回答量:7.8万
采纳率:89%
帮助的人:1.9亿
展开全部
VB中使用MOD运算求两个整数相除的余数:
例如:求27除以5的余数,最简单的方法是
27 Mod 5 就可以了。

也可以用
27 - 27 \ 5 * 5 来求得。
其中 \ 是整数除法的运算符。27 \ 5 的值就等于27除以5的商的整数部分(19 \ 10 = 1)
即是5。由于 \ 和 * 的运算优先组长相同,所以,
27 - 27 \ 5 * 5
=27 - 5 * 5
=27 - 25
=2
KLLSo
2009-08-09 · 超过16用户采纳过TA的回答
知道答主
回答量:60
采纳率:0%
帮助的人:0
展开全部
我的代码就是前面都平均,最后一个把余数加上。就像3333、3333、3334

你可以吧10000,变成变量呀比如:

Private Sub Command1_Click()
Dim i As Long
For i = 0 To 19
Text2(i) = Text1 \ 20
Next i
Text2(y) = Val(Text2(y).Text) + Text1 Mod 20
End Sub

text1 是是要被分的数,比如刚刚的10000
你连举一反三都不会吗???
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
fyyunfei
2009-08-07 · TA获得超过144个赞
知道答主
回答量:147
采纳率:100%
帮助的人:76.5万
展开全部
不知楼主是不是这个意思:将一个数分成几份,但最后一个不是平均数。比如10000,就可以分成3333、3333、3334。也就是说前面都平均,最后一个把余数加上。

如果不是这样,会有许多种分法,比如5000,4000,1000;2000,6000,2000等等,这样的话需要一个分配比例,但最后一个数仍然会出现余数问题。

如果我的理解和楼主一样,是可以实现的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wynness
2009-08-07 · TA获得超过1676个赞
知道小有建树答主
回答量:2245
采纳率:50%
帮助的人:1219万
展开全部
用得着这样子?

除法求余

任意的除法只要除数不为0结果都是为商和余数

所以只要一个存商一个存余数的text就可以了!

=============================

没有除不尽的余数,这话怎么理解?

不是除法,会有除不尽的时候?

你话话自相矛盾
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
bduzhoudong
2009-08-07 · TA获得超过158个赞
知道答主
回答量:166
采纳率:0%
帮助的人:98.7万
展开全部
直接用c = a Mod b就可以求出a/b的余数c
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式