您所在位置：主题：for 如何循环换成 do 循环
心随长风
[专家分：0] 发布于 2009-04-26 15:50:00
原题如下：
<<一千零一夜>>中有这样一段文字:有一群鸽子,其中一部分在树上欢歌,另一部分在地上觅食.树上的一只鸽子对地上觅食的鸽子说:"诺从你们中飞上来一只,则树下的鸽子就是整个鸽群的3分之一;诺从树上飞下去一只,则树上,树下的鸽子就一样多了."你知道树上,树下各有多少只鸽子吗?
我现在用程序代码来求，下面是我的代码：
Option Explicit
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim total As Integer
For x = 1 To 100
For y = 1 To 100
If (x - 1) = (y + 1) And (x + y) / 3 = (y - 1) Then
total = x + y
Print x, y, total
End If
Next
Next x
end sub
那如果用DO循环应该怎么写呢，我试了好多次都不行，请各位高手出个招
<<一千零一夜>>中有这样一段文字:有一群鸽子,其中一部分在树上欢歌,另一部分在地上觅食.树上的一只鸽子对地上觅食的鸽子说:"诺从你们中飞上来一只,则树下的鸽子就是整个鸽群的3分之一;诺从树上飞下去一只,则树上,树下的鸽子就一样多了."你知道树上,树下各有多少只鸽子吗?
我现在用程序代码来求，下面是我的代码：
Option Explicit
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim total As Integer
For x = 1 To 100
For y = 1 To 100
If (x - 1) = (y + 1) And (x + y) / 3 = (y - 1) Then
total = x + y
Print x, y, total
End If
Next
Next x
end sub
那如果用DO循环应该怎么写呢，我试了好多次都不行，请各位高手出个招
