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元一只。