1个回答
展开全部
Private Sub Command1_Click()
h = Val(InputBox("输入有多少只头", "鸡兔同茏问题"))
f = Val(InputBox("输入第多少只脚", "鸡兔同茏问题"))
y = (f - 2 * h) / 2
x = (4 * h - f) / 2
Print "鸡=" & x & " 兔=" & y
End Sub
h = Val(InputBox("输入有多少只头", "鸡兔同茏问题"))
f = Val(InputBox("输入第多少只脚", "鸡兔同茏问题"))
y = (f - 2 * h) / 2
x = (4 * h - f) / 2
Print "鸡=" & x & " 兔=" & y
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
