VB问题：计算人民币的各面额张数

Question

在文本框1中输入应支付人民币总额(假定总额为整数)，单击“计算”命令按钮(Command1)时，计算各种币种的数目(总数目最小

提示：1．余额整除币种就是该币种的数目，比如153\100=1就是100币种的数目。
2．可以只定义一个变量存储，因为支付了某币种后的余额可以用前余额除(mod)该币种求得。

-------------------------------------------------
这是我老师布置的作业，可惜我是菜鸟一个，代码不会写，请大虾帮帮忙。

Answer 1

dim sum as integer 这个是你的钱
dim x as integer 这个是100元的张数
dim y as integer 这个是50元的张数 (1或者0)
dim z as integer 这个是20元的张数 (1或者0或者2)
dim x1 as integer 这个是10元的张数 ( 1或者0)
dim y1 as integer 这个是5元的张数 (1或者0)
dim z1 as integer 这个是2元的张数 (1或者0或者2)
dim z11 as integer 这个是1元的张数 (1或者0)
x=sum \ 100
y=sum mod 100 \ 50
z=sum mod 50 \ 20
x1=sum mod 20 \ 10
y1=sum mod 10 \ 5
z1=sum mod 5 \ 2
z11=sum mod 2本回答被提问者采纳

Answer 2

一个函数z=f(x,y)，两个变量x，y，x表示金额，y表示余数，z表示张数y=x mod 面值，z=(x-y)/面值，然后x=y,在调用函数，直到面值等于1.
手上没有vb，写下思路。

Answer 3

c语言：
int i=0,j=0,k=0,l=0,m=0,n=0,o=0;
int max=1000;

function Counts(int inut){

for(i=0;i<max;i++)
for(j=0;j<max;j++)
for(k=0;k<max;k++)
for(l=0;l<max;l++)
for(m=0;m<max;m++)
for(n=0;n<max;n++)
for(o=0;o<max;o++){
if(i*100+j*50+k*20+l*10+m*5+n*2+o)
return;
}

}