UC知道请教vb高手 百人搬百砖
来源：百度知道 编辑：UC知道 时间：2024/06/27 07:14:24
男人一人搬五块 女人 3快小孩两人抬一块 一百人搬一百块 问男女小孩有几种情况 用窗体输出结果
楼上的都只考虑到百砖，而忽略了问题中还有个百人，所以正确的代码应该如下。Dimx,y,zasinteger print"男人" , "女人","小孩" forx=0to20 fory=0to33 forz=0to100 if x*5+y*3+z/2=100 and x+y+z=100 then printx,y,z next z next y next x
用上循环就可以了！！
你先定义 男人为 X 女人为Y 小孩为 Z
Dim x,y,z/2 as integer
for x=0 to 20
for y=0 to 32
for z=0 to 50
if(x+y+z/2=100) then
print x,y,z;
next z;
next y;
next x;
Dim x,y,z as integer
for x=0 to 20
for y=0 to 34
for z=0 to 200
if(x*5+y*3+z/2=100) then
print "男人" & x & ",女人" & y &",小孩z;"
next z;
next y;
next x;