Question

VB中求下面方程x+2y+3z=40的正整数解.的代码

Answer 1

正整数解太多了,应该求一定范围的

定义在一百范围,maxint=100吧

用x,y,z三个for 循环实现

for x=1 to maxint

for y=1 to maxint

for z=1 to maxinto

if x+2y+3z=40 then

print x&"-"&y&"-"&z

end if

next z

next y

next x