帮忙设计个VB的代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 16:47:58
一个笼子中有x只鸡，y只兔子，每只鸡有2只脚，每只兔子有4只脚；已知鸡和兔的总头数为h，总脚数为f，问笼中鸡和兔各有多少。在适当的事件过程中编写代码，使得程序运行时，当单击按钮的时候，程序完成如下功能：通过InputBox函数让用户输入h和f的值(比如说h=71,f=158)，程序负责计算x和y的解，计算结果在窗体上显示出来。
程序的基本框架已经写好，就是计算的代码不知道怎么编写，请各位VB高手解答一下

Private Sub cmd_Click()
Dim a, b, c, d As Double
For a = 0 To Text1.Text
b = Text1.Text - a
If Text2.Text = 4 * a + 2 * b Then
c = a
d = b

End If
Next
If c = 0 And d = 0 Then
MsgBox ("其重新输入结果")
Else
MsgBox "兔有" & c & "只，鸡有" & d & "只。", , "结果"
End If
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
Label1.Caption = "请输入鸡和兔的脑袋之和"
Label2.Caption = "请输入鸡和兔的下肢之和"
Text1.Text = ""
Text2.Text = ""
cmd.Caption = "计算结果"
End Sub