鸡兔同笼的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提供的组件快速建立一个应用程序。

Private Sub Command1_Click()

Dim j As Integer '代表鸡的个数

Dim t As Integer ’代表兔的个数

Dim t1 As Integer '腿的个数

For j = 1 To 40

t = 40 - j

t1 = j * 2 + t * 4

If t1 = 100 Then

Print "鸡="j"只""兔="t"只"

End If

Next

End Sub

这个题目中没有注明鸡兔共多少只，所以会有多个答案。如果有鸡兔共多少只，就在判断语句中加上。 if i*2+j*4=50 and i+j=xxx then

另外过程不完整，没有如Private Sub Form_Click()这个过程开始。加上就可以了。

---