用FOR语句编写，怎样实现

官後　发表于：2013-06-06 17:52:50 　

我国古代数学问题1兔换2鸡2兔换3鸭5兔换7鹅。某人用20只兔换得鸡、鸭、鹅共30只问其中鸡、鸭、鹅各几只

小李发表于：2013-06-06 21:08:03

Private Sub Command0_Click()
    Dim intTu, intN, intJi, intYa, intE As Integer


    intTu = 20
    intN = 30
    For intJi = 1 To 30
        For intYa = 1 To 30 - intJi
            For intE = 1 To 30 - intJi - intYa
                If ((intJi + intYa + intE) = intN) And ((1 / 2 * intJi + 2 / 3 * intYa + 5 / 7 * intE) = intTu) Then
                    MsgBox "鸡、鸭、鹅分别为：" & intJi & "|" & intYa & "|" & intE
                End If
            Next
        Next
    Next
End Sub

当然如果鸡或鸭或鹅可以为0的话就从0开始循环

Top

小李发表于：2013-06-06 21:13:48

已经测试成功的代码如下:

Private Sub Command0_Click()
    Dim intTu, intN, intJi, intYa, intE As Integer

    intTu = 20
    intN = 30
    For intJi = 1 To 30
        For intYa = 1 To 30 - intJi
            For intE = 1 To 30 - intJi - intYa
                If ((intJi + intYa + intE) = intN) And ((1 / 2 * intJi + 2 / 3 * intYa + 5 / 7 * intE) = intTu) Then
                    MsgBox "鸡、鸭、鹅分别为：" & intJi & "|" & intYa & "|" & intE
                End If
            Next
        Next
    Next
End Sub

Top

善解人衣发表于：2014-03-25 10:55:01

什么时候答的都忘记了

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

用FOR语句编写，怎样实现