1樓：匿名使用者
在計算之前應進行基本的邏輯判斷：
1.b必須是偶數（兩種動物都是偶數只腳）
2.b必須》=a×2（全是雞），且b必須<=a×4（全是兔子）否則就不合邏輯。
判斷完基本的邏輯，才應該進行計算！
private sub command1_click()dim a as integer, b as integerdim js as boolean
clsa = clng(inputbox("請輸入頭數"))b = clng(inputbox("請輸入腳數"))if (a<=0) or (b < a*2) or (b>a*4) or ((b mod 2) =1) then
msgbox "資料不符合邏輯"
else
for i = 1 to a
if i * 2 + (a - i) * 4 = b thenprint "雞=";i, "兔=";a-iexit for
end if
next i
end if
end sub
2樓：匿名使用者
private sub command1_click()dim a as integer, b as integerdim js as boolean
clsdo
a = val(inputbox("請輸入頭數"))b = val(inputbox("請輸入腳數"))if b > a then
for i = 1 to a
if i * 2 + (a - i) * 4 = b thenprint "雞", "兔"
print i, a - i
exit do
end if
next i
end if
msgbox "資料不符合邏輯"
loop
end sub
一個籠子裡有雞，兔若干只，若已知雞，兔的總頭數和總頭數，問，雞，兔各多少隻？要求，用vb程式，通過
3樓：匿名使用者
private sub form_click()dim m%, n%, x%, y%
m = inputbox("請輸入雞、兔的總頭數")n = inputbox("請輸入雞、兔的總腳數")x = (4 * m - n) / 2
y = (n - 2 * m) / 2
print "雞有" & x & "只，兔有" & y & "只"
end sub
vb 雞兔同籠問題：雞有2只腳，兔有4只腳，如果已知雞和兔的總頭數為a，總腳數為b，籠中雞兔各有多少隻？
4樓：網海1書生
dim a as integer, b as integer, c as integer
a = val(inputbox("請輸入雞和兔抄的總襲頭bai
數"))
if a mod 2 = 0 then
msgbox "總頭數不能du是偶zhi數"
else
b = val(inputbox("請輸入雞和兔的總腳數"))if b mod 2 = 1 then
msgbox "總腳數不能是奇數"
else
c = (b - 2 * a) / 2 '計算兔子的dao數量msgbox "雞有" & a - c & "只，兔有" & c & "只"
end if
end if
這個貌似沒什麼好解說的吧？關鍵是數學上的原理，程式倒是其次的。
5樓：匿名使用者
(b-2a)/2 為兔
a-(b-2a)/2 為雞
求簡單的VB作業，求用VB解答
題目都沒有，如何寫，瞎寫嗎？寫 x y z 嗎？dim b as integer private sub command1 click if 123456 falseprint hello falseelsemsgbox 密碼錯誤 1 b b 1 if b 3 then msgbox 你沒有機會了 ...
求簡單ps作業，求關於環保 的PS作業，要每一步的步驟。大概十幾步就可以 簡單點。最好是三個。。
上了，看到了 如果滿意可以hi我，psd格式，20多個層。10份？要這麼多？沒懂起什麼意思 就三個條件？那你開啟ps複製 3次就有四個圖層，然後儲存為psd檔案 在複製psd檔案9份，完成！呵呵 一定要四個圖層嗎？多了不行嗎？求會ps的大神，做兩幅ps作業，不要求太難，就是用一些簡單的ps技術就好。...
求名人以變化應變化的事例要,作業明天要交
司馬光砸缸，會見外國元首的事例全是1 有一次，去會見某外國元首。那個國家的元首，很看不起中國和中國人民。就在和 禮節性的握過手之後，他從衣服兜裡掏出一塊手帕擦了擦手，然後把手帕放回了兜裡。這時，不慌不忙的也掏出一塊手帕，擦了擦手，然後把潔白的手帕扔進了垃圾箱！一生節儉的 用一塊潔白的手帕，又一次捍衛...