vb中如何算百元买百鸡问题详解?

发布网友发布时间：2022-04-25 10:48

共3个回答

热心网友时间：2024-09-30 11:27

Private Sub Command1_Click()
For i = 1 To 20
  For j = 1 To 33
   For k = 1 To 99 Step 2
    If i * 5 + j * 3 + k / 3 = 100 Then
      Text1.Text = Text1.Text & "公鸡：" & i & "只" & "母鸡：" & j & "只" & "小鸡：" & k & "只" & Chr(13) & Chr(10)
    End If
   Next
  Next
Next
End Sub

文本框的MULTILING属性设为TRUE，SCROLLBARS属性设为2垂直。

以下为改进版

Private Sub Command1_Click()
For i = 1 To 20
  For j = 1 To 33
    k = 100 - i * 5 - j * 3
    If k >= 0 And k Mod 3 = 0 Then
      Text1.Text = Text1.Text & "公鸡：" & i & "只" & "母鸡：" & j & "只" & "小鸡：" & k & "只" & Chr(13) & Chr(10)
    End If
  Next
Next
End Sub

热心网友时间：2024-09-30 11:28

Private Sub Command1_Click()
Dim a, b, c, d As Integer
For a = 1 To 20
For b = 1 To 34
For c = 3 To 300 Step 3
d = (100 - 5 * a - 3 * b) * 3 + a + b
If d = 100 And (a + b + c) = 100 Then
Print "公鸡有"; a; "只", "母鸡有"; b; "只", "小鸡有"; c; "只"
Print vbCrLf
End If
Next
Next
Next
End Sub

热心网友时间：2024-09-30 11:28

百元买百鸡问题：
一百个铜钱买了一百只鸡，其中公鸡一只5钱、母鸡一只3钱，小鸡一钱3只，问一百只鸡中公鸡、母鸡、小鸡各多少）。
这是一个古典数学问题，设一百只鸡中公鸡、母鸡、小鸡分别为x，y，z，问题化为三元一次方程组：
这本来是数学问题，现在用编写程序的方法解决就变得相对简单。
通常采用枚举算法来实现：
所谓枚举算法，就是一一列举，逐个检验：
关于枚举算法，可以看看我的文章：
http://hi.baidu.com/syx54/item/d791e7d8d1ff2b45fa576861

现在用枚举算法来解决本题：
假设：公鸡X只，母鸡Y只，小鸡Z只，
不难知道：
X 不会超过20
Y 不会超过33
Z 不会超过300

并且有关系式：（注意，这两个关系式必须同时成立，才是问题的解）
X + Y + Z = 100
5X + 3Y + Z/3 = 100

采用枚举算法的程序结构，往往就是循环里边嵌套选择；
循环 -- 实现一一列举，
选择 -- 实现逐个检验。

程序如下：
Option Explicit

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
For x = 1 To 20
For y = 1 To 33
For z = 1 To 300
If x + y + z = 100 And 5 * x + 3 * y + z / 3 = 100 Then
Print x, y, z
End If
Next z
Next y
Next x
End Sub