雞兔同籠問題vb編程

1. 用VB解決雞兔同籠問題的步驟

Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("雞和兔的總頭數", "請輸入", 0))
f = Val(InputBox("雞和兔的總腳數（偶數）", "請輸入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label2.Caption = " 設籠中雞和兔的總頭數為" & h & ",總腳數為" & f & "。"
Label3.Caption = " 則籠中雞有" & x & "只，兔有" & y & "只。"
End Sub

2. 雞兔同籠的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

3. VB程序編程雞兔同籠

這個題目中沒有註明雞兔共多少只，所以會有多個答案。如果有雞兔共多少只，就在判斷語句中加上。 if i*2+j*4=50 and i+j=xxx then
另外過程不完整，沒有如Private Sub Form_Click()這個過程開始。加上就可以了。

4. VB編程：雞兔同籠問題

『2個text 1個picture，純體力活，自己修改：
Private Sub Form_Load()
With Text1
.Text = 100
.FontSize = 15
End With
With Text2
.Text = 240
.FontSize = 15
End With
Picture1.FontSize = 15
End Sub
Private Sub Text2_LostFocus()
Cls
If IsNumeric(Text1) And IsNumeric(Text2) Then
Dim i As Long, j As Long, m As Long, n As Long, flag As Boolean
m = Val(Text1): n = Val(Text2)
For i = 1 To m
For j = 1 To m - i
If i + j = m And i * 2 + j * 4 = n Then
Picture1.Print "雞："; i, "兔子：" & j
flag = True
End If
Next
Next
If Not flag Then Picture1.Print "無結果，檢查輸入"
Else
MsgBox "無效數字!"
Text1 = "": Text2 = ""
End If
End Sub

5. vb解決雞兔同籠問題

窗體設計可以按照我的截圖！控制項就不說了！很簡單！添加控制項後直接把代碼復制進去就行了！

代碼如下：'判斷數據是否是整數！

PublicFunctionisInt(sAsString)AsBoolean

IfCStr(CInt(Val(s)))=sThen

isInt=True

Else

isInt=False

EndIf

EndFunction

'根據頭數和腳數求解兔子的數量的方程

PublicFunctionSolv(headAsInteger,footAsInteger)AsInteger

DimRabitAsInteger

Rabit=(foot-head*2)/2

Solv=Rabit

EndFunction

PrivateSubCommand1_Click()

DimerrAsString,OKAsString

Dimh_numAsInteger,f_numAsInteger

IfisInt(Text1.Text)Then

h_num=CInt(Text1.Text)

Else

err=err+"頭數不是正整數！"

EndIf

IfisInt(Text2.Text)Then

f_num=CInt(Text2.Text)

Else

err=err+"腳數不是正整數！"

EndIf

Iferr=""Then

OK=OK&"兔子數量為："&CStr(Solv(h_num,f_num))&vbCrLf

OK=OK&"雞的數量為："&CStr(h_num-Solv(h_num,f_num))&vbCrLf

MsgBoxOK,vbOKOnly,"結果顯示"

Else

MsgBoxerr,vbOKOnly,"出錯了"

EndIf

EndSub

6. VB程序，求雞兔同籠問題

Private Sub Command1_Click()
Dim x As Integer, y, h, f As Integer
h = InputBox("enter 總頭數h")
f = InputBox("enter 總腳數f")
If f >= 2 * h Then
Print "x="; (f - 2 * h) / 2; "y="; (4 * h - f) / 2
Else
Print "Error"
End If
End Sub

腳至少是頭的2倍吧，加個限制條件

7. 用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 & " 種。"

8. 用vb編寫雞兔同籠，頭有35，腳有94計算雞兔各多少只

private
sub
form_load()
on
error
resume
next
dim
m,
n
as
integer
'//定義總數量和總腳量
dim
c,
r
as
integer
'//定義雞和兔的數量
m
=
inputbox("請輸入雞兔總數量:",
"雞兔同籠")
n
=
inputbox("請輸入雞兔總腳數:",
"雞兔同籠")
'//數學知識
'//用二元一次方程
'//c
+
r
=
m
(c為雞的數量,r為兔的數量)
'//2c
+
4r
=
n
'//所以:
c=(4m-n)/2
,
r=m-c
c
=
(4
*
m
-
n)
/
2
r
=
m
-
c
msgbox
"雞的數量為:"
&
c
&
space(1)
&
"兔的數量為:"
&
r,
vbinformation,
"計算結果"
end
end
sub

9. 雞兔同籠問題，用Vb編程解決，上有頭100隻，下有腳300，問雞與兔各有多少只，要用到for

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 '雞2隻腳，兔子4隻腳
Print "其中雞有" & Cock & "只,兔子有" & Rab & "只"
End If
Next
End Sub

10. 關於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