Question

vb for语句和数组问题

我要用for语句构造一个穷举法，
For dan(1) = peiyongfen(1, 18) To peiyongfen(1, 19) Step 1
For dan(2) = peiyongfen(2, 18) To peiyongfen(2, 19) Step 1
do something
Next danshaopeibi(2)
Next danshaopeibi(1)
这样会提示for control控件变量已在使用。分别把danshaopeibi(1)
和danshaopeibi(2)的值赋予shu1，shu2时就没有错误提示，但是变量太多对以后的程序造成麻烦，怎么办？
另外，如果for的数量n不定时怎么实现？

Answer 1

变量没办法,你再多都不能重名!至于循环,你这种情况可以考虑用递归!

追问

也就是不能用用数组构造for语句是吗？
我也想到了递归，但具体方法想不出来，可否赐教？

追答

很久没写vb了,不知道格式是否正确!
5是次数,你看看是不是你想要的效果!
publice sub doSomething(byval n as int)
For dan(n)=peiyongfen(n, 18) to peiyongfen(n,19)
if(n<5)
n++
doSomething(n)
else
do something
end if
Next dan(n)
End Sub

追问

谢谢！

Answer 2

For dan(1) = peiyongfen(1, 18) To peiyongfen(1, 19) Step 1
For dan(2) = peiyongfen(2, 18) To peiyongfen(2, 19) Step 1
do something
Next dan(1)
Next dan(2)

如n不定，在使用For前先计算确定n

追问

我是抄错了，就是你这么写不行的，似乎for后面不能用数组

追答

不如直接把你的问题说出来，别人重新写一个

追问

就是有n个变量，n的数目需要外部输入。对每个变量Xi从1到100穷举，如果对1-n的Xi求和为100，则输出它们

追答

几个数字求和，就需要几层循环