一个笼子里有鸡,兔若干只,若已知鸡,兔的总头数和总头数,问,鸡,兔各多少只?要求,用VB程序,通过InputBox函数输入鸡,兔的总头数和总脚数,单机窗体时在窗体上显示出鸡,兔各有多少只.大恩不言

一个笼子里有鸡,兔若干只,若已知鸡,兔的总头数和总头数,问,鸡,兔各多少只?要求,用VB程序,通过InputBox函数输入鸡,兔的总头数和总脚数,单机窗体时在窗体上显示出鸡,兔各有多少只.大恩不言
一个笼子里有鸡,兔若干只,若已知鸡,兔的总头数和总头数,问,鸡,兔各多少只?要求,用VB程序,通过InputBox函数输入鸡,兔的总头数和总脚数,单机窗体时在窗体上显示出鸡,兔各有多少只.大恩不言谢,

一个笼子里有鸡,兔若干只,若已知鸡,兔的总头数和总头数,问,鸡,兔各多少只?要求,用VB程序,通过InputBox函数输入鸡,兔的总头数和总脚数,单机窗体时在窗体上显示出鸡,兔各有多少只.大恩不言
Private Sub Form_click()
Dim m%,n%,x%,y%
m = InputBox("请输入鸡、兔的总头数")
n = InputBox("请输入鸡、兔的总脚数")
x = (4 * m - n) / 2
y = (n - 2 * m) / 2
Print "鸡有" & x & "只,兔有" & y & "只"
End Sub