作业帮用VB编程计算鸡兔同笼问题
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 16:09:50
用VB编程计算鸡兔同笼问题
一个养猪场有一种猪,有一些是畸形,只有3条腿,有一些是正常的.已知一共有一百条腿,请问有多少头猪.有几种解.
一个养猪场有一种猪,有一些是畸形,只有3条腿,有一些是正常的.已知一共有一百条腿,请问有多少头猪.有几种解.
在命令按钮里加上以下代码：
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 & " 种."
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 & " 种."