Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助