Access算术题--百元买百鸡算法-欧志华
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2022/11/18 9:42:20 评论(0) 浏览(1040)  评论 | 加入收藏 | 复制
   
摘 要:百元买百鸡算术题。
正 文:

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

   '百元买百鸡

    '小鸡=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群(群号:198465573)
 
 相关文章
【access小品】线性方程组计算器  【todaynew  2010/5/21】
【Access小品】视角和视野--折线方程组处理示例  【煮江品茶  2015/6/29】
【Access示例】--用Switch函数查询个人所得税  【宏鹏  2018/2/10】
【Access基础】求一维数组的最大值  【缪炜  2018/6/15】
计算个人所得税函数  【刘生  2018/7/7】
2018年个人所得税计算公式  【宏鹏  2018/10/17】
Access高效开发ABC公司预算管理系统  【阿四  2019/12/3】
阶梯费用计算示例  【SwatchChan  2020/2/26】
Access使用数组求最大值函数;求一组数据最大值示例;分享一个得...  【欧志华  2022/10/21】
常见问答
技术分类
相关资源
文章搜索
关于作者

欧志华

文章分类

文章存档

友情链接