A. VB高手進
你可能是新手吧 建議編程時不要怕麻煩 加入變數的申明
第一個：
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
If i Mod 3 = 0 Then Print i
Next i
End Sub
print i 可以換成其他的 如 text1.text=text1.text & str(i）
第二個：（你題目是否有問題 題目只有唯一的答案 100隻小雞嘛）
Private Sub Form_Click()
Dim i, j, k As Integer
Print "公雞 母雞 小雞"
For i = 0 To 20
For j = 0 To 33
For k = 0 To 100
If 5 * i + 3 * j + 1 * k = 100 And i + j + k = 100 Then Print i & " " & j & " "; k
Next k
Next j
Next i
End Sub
第三個：
1)這是輸出數字的口訣表:
Private Sub Form_Click()
Dim i As Integer
Dim ans As String
For i = 1 To 9
ans = "" '清空ans
For j = 1 To i
ans = ans & j & "×" & i & "＝" & i * j & " "
Next j
Form1.Print ans
Next i
End Sub
2)這是輸出漢字的口訣表:
Private Sub Form_Click()
Dim i, j, ans1 As Integer
Dim ans, ans2 As String
hanzi = "一二三四五六七八九十"
For i = 1 To 9
ans = "" '清空ans
For j = 1 To i
ans1 = i * j
If ans1 <= 10 Then ans2 = "得" & Mid(hanzi, ans1, 1)
If ans1 Mod 10 = 0 Then
ans2 = Mid(hanzi, CInt(ans1 / 10), 1) & "十" & " "
ElseIf ans1 > 10 Then ans2 = Mid(hanzi, CInt(ans1 / 10), 1) & "十" & Mid(hanzi, ans1 Mod 10, 1)
End If
ans = ans & Mid(hanzi, j, 1) & Mid(hanzi, i, 1) & ans2 & " "
Next j
Form1.Print ans
Next i
End Sub
B. 雞雛到成年雞需要多少錢
咨詢記錄 · 回答於2021-12-14
C. 請問一隻蛋雞從雛雞到下蛋要多少成本，怎麼算的，我們這里的飼料1.7一斤
購買雞雛：5元左右
採食飼料：150日齡約9kg ，約需要 30.6元（1.7元/斤計算）
疫苗、獸葯、採暖保溫：約1元
小計：36.6元
成活率：95%計算
則養殖成本：36.6/0.95=38.5元
人工、佔地、設備zd折舊這些都不算在內
D. 百雞問題
設母雞X只，公雞Y只，小雞100-X-Y只，
所以5Y+3X+（100-X-Y）/3=100
且X，Y為整數，所以可以得出正確答案，
有三種情況
1.公雞4隻,母雞18隻,小雞78隻
2.公雞8隻,母雞11隻,小雞81隻
3.公雞12隻,母雞4隻,小雞84隻
E. 關於養雞子
不知道你是要買成品，還是買雞雛、雞雛到孵化場也得2元多，成品機山雞得50多吧，具體成本你得自己核算，回來養上一段時間就可以產蛋、如果你只買雞雛和少量飼料，做好防疫和管理，利潤還是很大的。一隻得在十元以上吧 ，不過雞雛一般也得幾千隻到上萬只啊，沒有太少的。
F. 蛋雞從雞苗到產蛋的化費多少錢
從以下三方面計算：
雞苗本錢，也就是抓雞雛時付給孵雞場的錢；
一隻雞雛飼養到產蛋用料18.5斤，平均每斤飼料在你們那裡多少錢（各個階段），自己可算；
雞苗免疫用葯錢。
其他的不算，這三項你自己攏一下就知道了。
G. 怎麼賣成年雞或者雞雛
賣一成年笨雞60到70一隻。雞雛6元一隻。