Question

用VB的inputbox函数解答鸡兔同笼问题.

Answer 1

Private Sub Command1_Click()

Dim h As Integer

Dim f As Integer

Dim i As Integer

Dim k As Integer

Dim flag As Boolean

flag = False

h = Val(InputBox("请输入鸡和兔的总头数"))

f = Val(InputBox("鸡和兔的总脚数"))

For i = 1 To h - 1

k = h - i

If i * 2 + k * 4 = f Then

flag = True

Print "鸡头数为："; i,"兔头数为："; k

End If

Next i

If flag = False Then

MsgBox "总头数与总脚数不匹配"

End If

End Su