VB穷举法时的一个问题。_百度知道
VB穷举法时的一个问题。
for i=1 to 10for j=1 to 10cells(m如果我有两个变量进行穷举,1).value=i*jnext jnext i很容易写出。但是如果我有50个变量i[50]呢？难道要写50个for next
当然没有任何规律了。各个变量之间没有规律
我有更好的答案
你可以考虑写一个递归函数，或者写2个函数，一个是用来循环的函数，另一个是调用该函数多少次的函数。
采纳率：34%
果你的计算公式是有规律的，何不修改计算公式的写法呢？比如你算1+2+3+…+(N-1)+N你可以用for循环，走N次循环，一直算 Num= Num + i，i一次加1也可以用你高中就学过的等差数列公式，(1+N)*N/2而且后者的效率更高与其去想怎么写50个循环，不如转变你的数学思想纯属个人想法，也许对你并不适用
为您推荐：
其他类似问题
穷举法的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。穷举法在VB求解趣味程序中的应用_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
穷举法在VB求解趣味程序中的应用
&&穷举法在VB求解趣味程序中的应用
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢VB 问题,穷举法,求代码~~~~_百度知道
VB 问题,穷举法,求代码~~~~
使用穷举法编程实现，求x、y、z的值，使得xxz+yzz=532成立（其中xxz和yzz不表示乘积，而是由x、y、z组成的三位数）提示已知x、y、z分别是0～9中的一个数
我有更好的答案
y=& & x & &
& & &z=&quotPrivate Sub Command1_Click()
For x = 0 To 9
For y = 0 To 9
For z = 0 To 9
If Val(x & x & z) + Val(y & z & z) = 532 Then
Print &x=& & y & &
采纳率：53%
为您推荐：
其他类似问题
穷举法的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。穷举法编译最大公约数_百度知道
穷举法编译最大公约数
我有更好的答案
&b),i;int main(){ printf(&b=i,b;i&1;i--)
if(a%i==0&&b%i==0) scanf(&%d %d&a=b;} for(i=a;,&a; if(a&b){i=a#include&stdio.h&最大公约数是:%d\n&
采纳率：82%
来自团队：
为您推荐：
其他类似问题
最大公约数的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。在VB中求两个数的最大公约数
Private Sub Command1_Click()
Text1.Text = "" Then
&&& MsgBox
"请输入Text1"
&&& End If
Text2.Text = "" Then
&&& MsgBox
"请输入Text2"
&&& End If
&&& If IsNumber
= True Then
&&& Text3.Text =
GCD(Val(Text1.Text), Val(Text2.Text))
&&& End If
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Enabled = False
Command1.Caption = "计算最大公约数"
Private Function IsNumber() As Boolean
&&& IsNumber =
&&& For i = 1 To
Len(Text1.Text)
IsNumeric(Mid(Text1.Text, i, 1)) = False Then
&&& MsgBox
"请输入正整数"
&&& Text1.Text =
&&& IsNumber =
&&& End If
&&& Next i
&&& For i = 1 To
Len(Text2.Text)
IsNumeric(Mid(Text2.Text, i, 1)) = False Then
&&& MsgBox
"请输入正整数"
&&& Text2.Text =
&&& IsNumber =
&&& End If
&&& Next i
End Function
Private Function GCD(x As Integer, y As Integer) As Integer
&&& Dim r As
&&& Do Until y =
r = x Mod y
End Function
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}