鸡兔同笼问题vb编程

1. 用VB解决鸡兔同笼问题的步骤

Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label2.Caption = " 设笼中鸡和兔的总头数为" & h & ",总脚数为" & f & "。"
Label3.Caption = " 则笼中鸡有" & x & "只，兔有" & y & "只。"
End Sub

2. 鸡兔同笼的vb代码怎么写啊

Private Sub Command1_Click()

Dim a, b, m, n As Integer '鸡为a,兔为b,鸡兔总数为m,鸡兔脚数为n

For b = 1 To m

a = m - b

If 2 * a + 4 * b = n Then

Print "鸡=" & a & ",兔=" & b

End If

Next b

End Sub

3. VB程序编程鸡兔同笼

这个题目中没有注明鸡兔共多少只，所以会有多个答案。如果有鸡兔共多少只，就在判断语句中加上。 if i*2+j*4=50 and i+j=xxx then
另外过程不完整，没有如Private Sub Form_Click()这个过程开始。加上就可以了。

4. VB编程：鸡兔同笼问题

‘2个text 1个picture，纯体力活，自己修改：
Private Sub Form_Load()
With Text1
.Text = 100
.FontSize = 15
End With
With Text2
.Text = 240
.FontSize = 15
End With
Picture1.FontSize = 15
End Sub
Private Sub Text2_LostFocus()
Cls
If IsNumeric(Text1) And IsNumeric(Text2) Then
Dim i As Long, j As Long, m As Long, n As Long, flag As Boolean
m = Val(Text1): n = Val(Text2)
For i = 1 To m
For j = 1 To m - i
If i + j = m And i * 2 + j * 4 = n Then
Picture1.Print "鸡："; i, "兔子：" & j
flag = True
End If
Next
Next
If Not flag Then Picture1.Print "无结果，检查输入"
Else
MsgBox "无效数字!"
Text1 = "": Text2 = ""
End If
End Sub

5. vb解决鸡兔同笼问题

窗体设计可以按照我的截图！控件就不说了！很简单！添加控件后直接把代码复制进去就行了！

代码如下：'判断数据是否是整数！

PublicFunctionisInt(sAsString)AsBoolean

IfCStr(CInt(Val(s)))=sThen

isInt=True

Else

isInt=False

EndIf

EndFunction

'根据头数和脚数求解兔子的数量的方程

PublicFunctionSolv(headAsInteger,footAsInteger)AsInteger

DimRabitAsInteger

Rabit=(foot-head*2)/2

Solv=Rabit

EndFunction

PrivateSubCommand1_Click()

DimerrAsString,OKAsString

Dimh_numAsInteger,f_numAsInteger

IfisInt(Text1.Text)Then

h_num=CInt(Text1.Text)

Else

err=err+"头数不是正整数！"

EndIf

IfisInt(Text2.Text)Then

f_num=CInt(Text2.Text)

Else

err=err+"脚数不是正整数！"

EndIf

Iferr=""Then

OK=OK&"兔子数量为："&CStr(Solv(h_num,f_num))&vbCrLf

OK=OK&"鸡的数量为："&CStr(h_num-Solv(h_num,f_num))&vbCrLf

MsgBoxOK,vbOKOnly,"结果显示"

Else

MsgBoxerr,vbOKOnly,"出错了"

EndIf

EndSub

6. VB程序，求鸡兔同笼问题

Private Sub Command1_Click()
Dim x As Integer, y, h, f As Integer
h = InputBox("enter 总头数h")
f = InputBox("enter 总脚数f")
If f >= 2 * h Then
Print "x="; (f - 2 * h) / 2; "y="; (4 * h - f) / 2
Else
Print "Error"
End If
End Sub

脚至少是头的2倍吧，加个限制条件

7. 用VB编程计算鸡兔同笼问题

在命令按钮里加上以下代码：
Dim i As Integer, k As Integer, j As Integer
Dim x As String
j = 0
For i = 1 To 35
For k = 1 To 35
If (i * 3 + k * 4) = 100 Then
x = x & Chr(13) & "三条腿： " & i & " ，四条腿： " & k
j = j + 1
End If
Next
Next
MsgBox "符合条件的情况有：" & x & Chr(13) & Chr(13) & "这样的情况一共有 " & j & " 种。"

8. 用vb编写鸡兔同笼，头有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

9. 鸡兔同笼问题，用Vb编程解决，上有头100只，下有脚300，问鸡与兔各有多少只，要用到for

Private Sub Command1_Click()
'鸡兔同笼问题
Dim Cock As Integer
Dim Rab As Integer
For Cock = 0 To 100
Rab = 100 - Cock
If Cock * 2 + Rab * 4 = 300 Then '鸡2只脚，兔子4只脚
Print "其中鸡有" & Cock & "只,兔子有" & Rab & "只"
End If
Next
End Sub

10. 关于VB程序设计【鸡兔同笼】

Private Sub Command1_Click()
Dim j As Integer '代表鸡的个数
Dim t As Integer ’代表兔的个数
Dim t1 As Integer '腿的个数
For j = 1 To 40
t = 40 - j
t1 = j * 2 + t * 4
If t1 = 100 Then
Print "鸡="; j; "只"; "兔="; t; "只"
End If

Next

End Sub