用vb程序设计鸡兔关一起,共35个头,94只脚编写程序

用vb程序设计鸡兔关一起,共35个头,94只脚编写程序

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 35
    If (i * 2 + (35 - i) * 4) = 94 Then
        Print "鸡：" & i & " 兔子：" & 35 - i
    End If
Next i
End Sub

穷举法，当判断，符合35个头和94个脚（鸡有两个脚，兔子四个脚）条件就输出结果。


补充一下：
        这个题目的本质，并不是让你来解决一元一次方程式的，所以如楼下的方法确实是可以计算得到结果，但有悖于题目的本质，这个题目的本质是让你建立计算机逻辑判断思维。用人脑的方式去描述计算机理解问题的方式。这才是题目真正的意义所在。

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息