怎么用VB编写鸡兔同笼问题的代码，按下面图片中的要求写

2025-06-22 17:07:55

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim H As Integer '头总数
Dim F As Integer '脚总数
Dim C As Integer '鸡
Dim R As Integer '兔
H = Val(Text1.Text)
F = Val(Text2.Text)
If F Mod 2 = 0 Then
For C = 0 To H
For R = 0 To H
If C * 2 + R * 4 = F Then _
Label3.Caption = Label3.Caption & _
"鸡：" & C & "只；" & "兔：" & R & "只" & vbCrLf
Next
Next
Else
MsgBox "总脚数必需为偶数！"
End If
End Sub
'因为存在多组答案，Label3高度要留得大一些。