Question

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

利用计算机解决古代数学问题“鸡兔同笼”问题，即已知在同一笼子里有总数m的鸡和兔，鸡和兔的脚的总数为n，求鸡兔各多少只？

Answer 1

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

Answer 2

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

Private Sub Command1_Click()
'鸡兔同笼问题
Dim Cock As Integer
Dim Rab As Integer
For Cock = 0 To 100
Rab = 100 - Cock
If Cock * 2 + Rab * 4 = 300 Then
Print "其中鸡有" & Cock & "只,兔子有" & Rab & "只"
End If
Next
End Sub