vb解决鸡兔同笼问题(编程求解鸡兔同笼)

VB高手用VB编写下面鸡兔同笼问题

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

鸡兔同笼的vb代码怎么写啊？

Private Sub Command1_Click()

Dim a, b, m, n As Integer ? ? ? '鸡为a,兔为b,鸡兔总数为m,鸡兔脚数为n

For b = 1 To m

a = m - b

If 2 * a + 4 * b = n Then

Print "鸡=" a ",兔=" b

End If

Next b

End Sub

Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

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

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 Sub