简单的vb编程题，谁来帮我写一下啊

来源：百度知道 编辑：UC知道 时间：2024/06/19 00:43:49
求鸡兔同笼问题，一笼子中有鸡X只，兔子Y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总数为H，总脚数为F。问笼子鸡和兔各若干

'在text1.text 中填写鸡和兔的总数，在text2.text中填写总脚数。
Private Sub Command1_Click()
Dim H As Long
Dim F As Long
Dim X As Long
Dim Y As Long
H = Text1.Text
F = Text2.Text
For i = 1 To H
If (F - i * 2) Mod 4 = 0 Then
X = i
Y = H - i
Print "鸡有" & X & "只，" & "兔有" & Y & "只。"
End If
Next i
End Sub

Print "笼子里有鸡" & 2 * H - F / 2 & "只，有兔子" & F / 2 - H & "只"