有没有VB学习例子的问题和答案的网站或论坛

有没有VB学习例子的问题和答案的网站或论坛

一、等等……我是讲不了的。

二、买鸡。
Private Sub Command1_Click()
For 母鸡 = 0 To 33
For 公鸡 = 0 To 50
If (100 - 公鸡 - 母鸡) * 0.5 + 公鸡 * 2 + 母鸡 * 3 = 100 Then Print "母鸡"; 母鸡, "公鸡"; 公鸡, "小鸡"; 100 - 公鸡 - 母鸡
Next 公鸡
Next 母鸡
End Sub
这没有什么好讲的。
母鸡最多33只，最少没有。所以：For 母鸡 = 0 To 33
公鸡最多50只，最少没有。所以：For 公鸡 = 0 To 50
小鸡数量为(100 - 公鸡 - 母鸡)，三者的总价和如果是100，那就是要找的，输出。
换一个公鸡、母鸡的数字继续验算。
至于答案，你自己运行以下。

三、吃桃。
此题不要写程序。程序比手工还慢。
第七天，1个桃
第六天，（1+1）*2=4个
第五天，（4+1）*2=10个
第四天，（10+1）*2=22个
第三天，（22+1）*2=46个
第二天，（46+1）*2=94个
第一天，（94+1）*2=190个…………这天后自非要拉肚子不成！
已开始他有190个
第一天吃了190/2+1=96个！剩下94个
第二天吃了94/2+1=48个，剩下46个
第三天吃了46/2+1=24个，剩下22个
第四天吃了22/2+1=12个，剩下10个
第五天吃了10/2+1=6个，剩下4个
第六天吃了4/2+1=3个，剩下1个…………不用等第七天才发现，他早就知道了！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！