Question

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

一个养猪场有一种猪，有一些是畸形，只有3条腿，有一些是正常的。已知一共有一百条腿，请问有多少头猪。有几种解。

Answer 1

在命令按钮里加上以下代码：
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 & " 种。"

Answer 2

Dim x As Integer '三条腿
Dim y As Integer '四条腿
Dim z As Integer '几种解
Dim a As Integer '总数
For x = 0 To 34 Step 1
If (100 - 3 * x) Mod 4 = 0 Then
z = z + 1
y = (100 - 3 * x) / 4
a = x + y
List1.AddItem a
End If
Next x
Text2.Text = z

Answer 3

Dim g%, b%
'g表示正常的猪，b表示畸形的
For g = 0 To 35
For b = 0 To 35
If 4 * g + 3 * b = 100 Then
Print g, b
End If
Next
Next

Answer 4

本节课教大家如何运用scratch编程解决鸡兔同笼的数学问题—晨煊少儿编程

Answer 5

Private Sub Command1_Click()