Question

VB程序编写假定公鸡每只2元,母鸡每只3元,小鸡每只5角,如果用100元钱买100只鸡,可以买公鸡、母鸡、小鸡数.

Answer 1

Private Sub Command1_Click()

Dim gj As Integer,mj As Integer,xj As Integer

Print "公鸡数","母鸡数","小鸡数"

For gj = 0 To 50

For mj = 0 To 33

For xj = 0 To 200

If gj + mj + xj = 100 And 2 * gj + 3 * mj + 0.5 * xj = 100 Then Print gj,mj,xj

Next xj

Next mj

Next gj

End Su