① 关于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
② 用VB编程计算鸡兔同笼问题
在命令按钮里加上以下代码：
Dim i As Integer, k As Integer, j As Integer
Dim x As String
j = 0
For i = 1 To 35
For k = 1 To 35
If (i * 3 + k * 4) = 100 Then
x = x & Chr(13) & "三条腿： " & i & " ，四条腿： " & k
j = j + 1
End If
Next
Next
MsgBox "符合条件的情况有：" & x & Chr(13) & Chr(13) & "这样的情况一共有 " & j & " 种。"
③ 鸡兔同笼的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
④ 鸡兔同笼编程序，已知共有鸡兔头a只，鸡兔脚共b只，求有鸡和兔各多少只
用什么语言编程？
算法是这样的，
兔子的只数是：(b-2*a)/2
鸡的只数是：（4*a-b)/2，若已求出兔子的只数，直接到a-兔子的只数 就可以了