Access算术题--百元买百鸡算法

时　间:2022-11-18 09:42:20
作　者:欧志华   ID：51519  城市：广州
摘　要:百元买百鸡算术题。
正　文:

      有时候做做算术题,增加思维空间也是一个不错的方法

   '百元买百鸡

    '小鸡=0.5元  中鸡=2元   大鸡=3元
    'X + Y + Z = 100 (三种鸡,每种必须至少买1只 共有100元)
    '0.5X + 2Y + 3Z=100
    
    Dim chicken1     As Variant  '小鸡
    Dim chicken2     As Variant  '中鸡
    Dim chicken3     As Variant  '大鸡
    Dim X       As Integer
    Dim Y       As Integer
    Dim Z       As Integer
    chicken1 = 0.5: chicken2 = 2: chicken3 = 3
    Me.Text2 = ""
    For Z = 0 To Int(100 / chicken3)
        For Y = 0 To Int(100 / chicken2)
            For X = 0 To Int(100 / chicken1)
                If X * chicken1 + Y * chicken2 + Z * chicken3 = 100 And X + Y + Z = 100 And X <> 0 And Y <> 0 And Z <> 0 Then
                    Me.Text2 = "小鸡:" & CStr(X) & " 只  " & "中鸡:" & CStr(Y) & " 只  " & "大鸡:" & CStr(Z) & " 只"
                End If
            Next X
        Next Y
    Next Z


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店