您所在位置：主题：菜鸟求助，如何获取代码循环次数
tony@vb
[专家分：0] 发布于 2012-05-13 22:09:00
不好意思，浪费各位大虾一点时间，问题如题。
以下是，百钱百鸡的代码，但是如何获取这个程序总共循环的次数呢。
Dim x%, y%, z%
Label1.Text = "母鸡 公鸡 小鸡 " & vbCrLf
For x = 0 To 33
For y = 0 To 50
For z = 0 To 200
If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then
Label1.Text &= x & Space(9) & y & Space(9) & z & vbCrLf
End If
Next z
Next y
Next x
以下是，百钱百鸡的代码，但是如何获取这个程序总共循环的次数呢。
Dim x%, y%, z%
Label1.Text = "母鸡 公鸡 小鸡 " & vbCrLf
For x = 0 To 33
For y = 0 To 50
For z = 0 To 200
If x + y + z = 100 And 3 * x + 2 * y + 0.5 * z = 100 Then
Label1.Text &= x & Space(9) & y & Space(9) & z & vbCrLf
End If
Next z
Next y
Next x
