帮忙写一个VB程序,高分赏!!!写完要能运行的...自己先运行试试吧~

Private Sub Command1_Click()
Me.Cls
Dim gj As Integer
Dim mj As Integer
Dim xj As Integer
For gj = 0 To 33
For mj = 0 To 100
xj = (100 - mj - gj * 3) * 3
If xj >= 0 And xj + mj + gj = 100 Then
Print "小鸡："; xj, "母鸡："; mj, "公鸡："; gj
End If
Next
Next

End Sub

我来个代码效率高点的(在窗体上加个Command按钮就可以了):

Private Sub Command1_Click()
Dim iGj As Integer
Dim iMj As Integer
Dim iXj As Integer

Dim strMsg As String

strMsg = ""
For iGj = 0 To 33
For iMj = 0 To 100 - iGj

iXj = 100 - iGj - iMj

If iXj / 3 + iGj * 3 + iMj = 100 Then
strMsg = strMsg & "公鸡：" & CStr(iGj) & "，母鸡：" & CStr(iMj) & "，小鸡：" & iXj & vbCrLf
End If

Next iMj
Next iGj

MsgBox strMsg
End Sub

一篇老日志了，希望能帮上你，在
ASP/Visual Basic代码