① 關於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-兔子的只數 就可以了