求一VB代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:26:18
用VB程序代码在窗体的单击事件过程（From_Clidk）中编写，结果输出到窗体上。题目：一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚，今知鸡和兔总数为H，总脚数为F。问笼中鸡和兔各若干？公式如：Y=（F-2H）/2；X=（4H-F）/2。
谢谢了！

Private Sub Form_Click()
'解答数学问题
'一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚，
'今知鸡和兔总数为H，总脚数为F。问笼中鸡和兔各若干？
Dim H As Integer, F As Integer
Dim X As Integer, Y As Integer
Dim i As Integer, j As Integer
'可以假设两个数,也可以输入
H = 30
F = 82
'H = InputBox("请输入鸡和兔总数:")
'F = InputBox("再输入总脚数:")
Cls '清屏
For i = 0 To H
X = i
Y = H - i
If Y + X = H And 4 * Y + 2 * X = F Then
'满足Y+X=H 和 4Y+2X=F
Print "鸡" & X & "只,兔" & Y & "只"
j = j + 1
End If
Next
If j = 0 Then Print "无解!"
End Sub