3.2.1穷举法分析
-
附录：
代码一：
Private Sub Command1_Click()
Dim a, b, c As Integer
Print
公鸡
母鸡
小鸡
For a = 0 To 100
For b = 0 To 100
c =
100 - a - b
If a * 5 + b * 3 + c /
3 = 100 Then
Print a, b, c
End If
Next b
Next a
End Sub
代码二：
Private Sub
Command1_Click()
Dim a, b, c As Integer
Print
公鸡
母鸡
小鸡
For a = 0 To 20
For b = 0 To 34
c = 100 - a - b
If
a * 5 + b * 3 + c / 3 = 100 Then
Print a, b, c
End If
Next b
Next a
End Sub
代码三：
Private Sub
Command1_Click()
Dim
i
As Integer
For i= 100 To
1000
If
i
mod 3 =2 and i mod 5 =3 and i mod 7 =3 Then
Print
该队官兵数可能为：
End
If
Next i
End Sub
代码四：
Private Sub
Command1_Click()
Dim
i
As Integer
For
i= 100 To
1000
If
i mod 21 =2 and i mod 5 =3 Then
Print
该队官兵数可能为：
End
If
Next i