寻VB高手 给悬赏几分20

来源：百度知道 编辑：UC知道 时间：2024/06/25 11:14:15
利用计算机解决古代数学问题“鸡兔同笼问题”。即己知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
要准确代码！！！
提示：
鸡，兔的只数通过已知输入的m,n列出方程可解，但不要求出现荒唐的解（如3.5只鸡，4.5只兔，或者求得的只数为负数）。因此，在Text2-LostFocus事件中要考虑下面两个条件： 1.输入的总脚数n必须是偶数（如图C.2所示），否则提示数据错误的原因，要求重新输入数据。如图C.3所示。
有图 请把QQ邮箱留下。

Dim J_TnumA, J_TfootA, JnumA, TnumA As Integer

Private Sub Form_Activate()
For i = 0 To CInt(J_TnumA)
JnumA = i
TnumA = CInt(J_TnumA) - CInt(JnumA)
If (JnumA * 2 + TnumA * 2 = CInt(J_TfootA)) Then
Print "鸡: " & CStr(JnumA) & " 只 " & "兔: " & CStr(TnumA) & " 只"
End If
Next
End Sub

Private Sub Form_Load()

J_TnumA = InputBox("输入鸡兔总只数", "输入", "")
J_TfootA = InputBox("输入鸡兔总脚数", "输入", "")

End Sub

QQ：394097249