鸡兔同笼的问题
Private Sub 鸡兔同笼_Click()
Dim a As Single, b As Single, x As Single, y As Single
a = InputBox("请输入共有多少只动物")
b = InputBox("请输入共有多少只脚")
Let y = Val((b - 2 * a) / 2)
Let x = Val((a - (b - 2 * a)) / 2)
If x Mod 2 <> 0 Or (x - 1) Mod 2 <> 0 Then
Print ("你所输入的数字无法算出整数")
Else
If y Mod 2 <> 0 Or (y - 1) Mod 2 <> 0 Then
Print ("你所输入的数字无法算出整数")
Else
Print (x("鸡的数量"))
Print (y("兔子的数量"))
End If
End If
End Sub
这里哪儿有问题。。摁了完全没反应= =
Private Sub 鸡兔同笼_Click()
Dim a As Single, b As Single, x As Single, y As Single
a = InputBox("请输入共有多少只动物")
b = InputBox("请输入共有多少只脚")
Let y = Val((b - 2 * a) / 2)
Let x = Val((a - (b - 2 * a)) / 2)
If x Mod 2 <> 0 Or (x - 1) Mod 2 <> 0 Then
Print ("你所输入的数字无法算出整数")
Else
If y Mod 2 <> 0 Or (y - 1) Mod 2 <> 0 Then
Print ("你所输入的数字无法算出整数")
Else
Print (x("鸡的数量"))
Print (y("兔子的数量"))
End If
End If
End Sub
这里哪儿有问题。。摁了完全没反应= =