用VBA或数学两盒珠子原来

laoau138

用VBA或数学两盒珠子原来

砂海

A=172,B=84

规划求解 简单
数学方法 推导21A=43B ,A=43*n
程序直接试算比较坑 , 仿造数学方法推导吧

laoau138

砂海 发表于 2017-2-10 11:33
A=172,B=84

规划求解 简单

用VBA可能比较难

砂海

Sub cesuan()

    Dim x%, y%  'A盒x个 ,B盒y个
    Dim ax%(0 To 5), ay%(0 To 5), bx%(0 To 5), by%(0 To 5)  'ax为 A盒x的倍数
    Dim i%

    ax(0) = 1: ay(0) = 0: bx(0) = 0: by(0) = 1      '初始状态

    For i = 1 To 5
        If i Mod 2 Then
            ax(i) = ax(i - 1) - bx(i - 1): ay(i) = ay(i - 1) - by(i - 1)
            bx(i) = bx(i - 1) * 2: by(i) = by(i - 1) * 2
        Else
            ax(i) = ax(i - 1) * 2: ay(i) = ay(i - 1) * 2
            bx(i) = bx(i - 1) - ax(i - 1): by(i) = by(i - 1) - ay(i - 1)
        End If
'        Debug.Print ax(i) & " " & ay(i) & " " & bx(i) & " " & by(i)
    Next

    x = by(5) - ay(5): y = ax(5) - bx(5)
    x = x * (200 \ x)

    If x >= 133 Then MsgBox x Else MsgBox "无解"

End Sub