VB小编程有道题目各位帮帮忙

编写程序求解“鸡兔同笼”的问题。一个笼中有x只鸡，兔Y只，每只鸡有两只脚。每只兔有4只脚。知道鸡和兔的总头数为h 总脚数为f。问笼中的鸡和兔各若干？
还有诚心教一位懂VB的同学一起学习

补充：是 VB6.0 的 抱歉

答案：Private Sub Form_Load()
On Error Resume Next
Dim m, n As Integer '//定义总数量和总脚量
Dim c, r As Integer '//定义鸡和兔的数量
m = InputBox("请输入鸡兔总数量:", "鸡兔同笼")
n = InputBox("请输入鸡兔总脚数:", "鸡兔同笼")
'//数学知识
'//用二元一次方程
'//c + r = m (c为鸡的数量,r为兔的数量)
'//2c + 4r = n
'//所以: c=(4m-n)/2 , r=m-c
c = (4 * m - n) / 2
r = m - c
MsgBox "鸡的数量为:" & c & Space(1) & "兔的数量为:" & r, vbInformation, "计算结果"
End
End Sub 
用VB.net吗?
还是VB6.0
用vb6.0实现代码如下：
Option Explicit
Private Sub Command1_Click()
  '请提前把f,h设为常量，而非变量
  Dim x As Integer, y As Integer
  Dim h As Integer, f As Integer
  If 2 * x + 4 * y = f And x + y = h Then
     Print "鸡= " & x & "兔= " & y
  End If
End Sub
非常简单 
我有书后所有编程题的答案 
我可以给你

上一个：vb高手进！很简单的问题
下一个：VB问题。数据导入问题select from

更多图片编程知识:

VB小编程 有道题目 各位帮帮忙

VB小编程有道题目各位帮帮忙