查人人中国名人网国内医药企业排名:谁来帮我运行以下这个VB程序！！
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 07:15:49
我们学校的机子太烂了，请各位高手帮帮忙。
Private Sub Form_Click()
n = 0
For a = 0 To 1
For b = 0 To 2
For c = 0 To 5
For d = 0 To 10
For e = 0 To 20
For f = 0 To 50
For g = 0 To 100
For h = 0 To 200
For i = 0 To 500
For j = 0 To 1000
M = 10 * a + 5 * b + 2 * c + 1 * d + 0.5 * e + 0.2 * f + 0.1 * g + 0.05 * h + 0.02 * i + 0.01 * j
If M = 10 Then
n = n + 1
End If
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Print n
End Sub
怎么可能是10？把一张10块的人民币换开，只有10种换法吗？
Private Sub Form_Click()
n = 0
For a = 0 To 1
For b = 0 To 2
For c = 0 To 5
For d = 0 To 10
For e = 0 To 20
For f = 0 To 50
For g = 0 To 100
For h = 0 To 200
For i = 0 To 500
For j = 0 To 1000
M = 10 * a + 5 * b + 2 * c + 1 * d + 0.5 * e + 0.2 * f + 0.1 * g + 0.05 * h + 0.02 * i + 0.01 * j
If M = 10 Then
n = n + 1
End If
Next j
Next i
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Print n
End Sub
怎么可能是10？把一张10块的人民币换开，只有10种换法吗？
总共要循环计算
1 000 000 000 000 000
修改一下你的代码吧
这道题目你用眼睛看一下就知道应该答案=10
不是把
这个程序是摧毁电脑，狂杀内存呀
没事我运行了
能正常运行下去
楼主这个要运算 1000000000次吧...