如何用vb来解 有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958求鸡多少钱?一定要用vb一级的方法来解哦~
来源:学生作业帮助网 编辑:六六作业网 时间:2025/02/04 08:15:57
如何用vb来解 有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958求鸡多少钱?一定要用vb一级的方法来解哦~
如何用vb来解 有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958
求鸡多少钱?
一定要用vb一级的方法来解哦~
如何用vb来解 有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175,3羊1犬7鸡5兔值钱958求鸡多少钱?一定要用vb一级的方法来解哦~
'用穷举法解,有多种答案
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
For b = 1 To 300
For c = 1 To 100
For d = 1 To 100
a = (1496 - (4 * b + 3 * c + 2 * d)) / 5
If 5 * a + 4 * b + 3 * c + 2 * d = 1496 _
And 4 * a + 2 * b + 6 * c + 3 * d = 1175 _
And 3 * a + 1 * b + 7 * c + 5 * d = 958 Then
Print a, b, c, d
End If
Next d
Next c
Next b
End Sub