鸡兔同笼计算公式，程序“鸡兔同笼”问题
VB程序“鸡兔同笼”问题
Private Sub cmd_Click()
Dim a, b, c, d As Double
For a = 0 To Text1.Text
b = Text1.Text - a
If Text2.Text = 4 * a + 2 * b Then
c = a
d = b
End If
Next
If c = 0 And d = 0 Then
MsgBox (其重新输入结果)
Else
MsgBox 兔有 & c & 只，鸡有 & d & 只。, , 结果
End If
Text1.Text =
Text2.Text =
End Sub
Private Sub Form_Load()
Label1.Caption = 请输入鸡和兔的脑袋之和
Label2.Caption = 请输入鸡和兔的下肢之和
Text1.Text =
Text2.Text =
cmd.Caption = 计算结果
End Sub
-----------以上是我给你改的代码-----------------------
楼上的回答还有问题的.
楼主的问题里面有2个错误的地方
楼主你写的这个程序,第一个错误的地方是
msgbox函数的格式错误.
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
Prompt 必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
Buttons 可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0。
Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。
Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。
Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。
第二个错误的地方.是你的cmd的click事件.
你写的是
Private Sub cmd_Click()
Dim a, b, c, d As Double
For a = 0 To Text1.Text
b = Text1.Text - a
If Text2.Text = 4 * a + 2 * b Then
c = a
d = b
End If
Next
If c = 0 And d = 0 Then
MsgBox (其重新输入结果)
Else
MsgBox 兔有, c, 只，鸡有, d, 只。
End If
Text1.Text =
Text2.Text =
End Sub
注意了.你的text1.text = 和text2.text = 里面有个空格.
要去掉这个空格.否则,第二次要输入条件,那么就会出错.因为一般人不会知道你多加了个空格.
所以一直会提示请重新输入结果.
要改成
text1.text =
text2.text =
而不是楼上的
Exit For '算出来以后就不要再往下循环了，否则总是会等于0的
根本不搭嘎的事情.
因为循环一直上去.但是找不到满足的条件.那么c和d的值是不会变的.哪里来的Exit for退出循环避免一直等于0的提示?
一直提示0的原因就是text1的值发生了改变.多了个空格的原因
用什么可以洗掉脸上的毒素
清洗脸部毒素用温水洗脸，使皮肤张开，用清理毒素的洗面奶清洗，再敷一些面膜，主要是要内调，平时调一些下火的花茶，如野菊花，金银花等。每个星期包些排毒汤来喝，如银耳莲子汤，木瓜雪梨汤等。药物不要口服为好，那些排毒胶囊之类成份不可长服对肾脏有负担。
维生素B的作用和含维生素B的食物有那些
B族维生素有很多共同的方面，比如它们都是水溶性的，多余的B族维生素不会贮藏于体内，而会完全排出体外。所以，B族维生素必须每天补充。B族的维生素之间有协同作用——也就是说，一次摄取全部B族的维生素，要比分别摄取效果更好。另外，如果B1、B2、B6摄取比率不均的话，是没有效果的。B族维生素的家族正在逐渐扩大，除了我们已知的B1、B2、B5、B6、B12等之外，还有目前争议比较大的B17等。下面只就几种常用的B族维生素介绍一下。
维生素B1被称为精神性的维生素，这是因为维生素B1对神经组织和精神状态有良好的影响；维生素B1的缺乏容易引起各种脚气病。富含维生素B1的食物包括：酵母、米糠、全麦、燕麦、花生、猪肉、大多数种类的蔬菜、麦麸、牛奶。
维生素B2进入人体后磷酸化，转变成磷酸核黄素及黄素腺嘌呤二核苷酸，与蛋白质结合成为一种调节氧化-还原过程的脱氢酶。脱氢醇是维持组织细胞呼吸的重要物质。缺乏它，体内的物质的代谢紊乱，出现口角炎、皮炎、舌炎、脂溢性皮炎、结膜炎和角膜炎等。富含维生素B2的食物：牛奶、动物肝脏与肾脏、酿造酵母、奶酪、绿叶蔬菜、鱼、蛋类。
维生素B6是机体内许多重要酶系统的辅酶，参与氨基酸的脱羧作用、色氨酸的合成、含硫氨基酸的代谢和不饱和脂肪酸的代谢等生理过程，是动物正常发育、细菌和酵母繁殖所必需的营养成分。缺乏维生素B6容易引起：贫血症、脂溢性皮肤炎、舌炎。富含维生素B6的食物：啤酒酵母、小麦麸、麦芽、动物肝脏与肾脏、大豆、美国甜瓜（cantaloupe）、甘蓝菜、废糖蜜（从原料中提炼砂 糖时所乘的糖蜜）、糙米、蛋、燕麦、花生、胡桃。
维生素B12是由内脏中的细菌合成的，而且维生素B12存在于一切以动物为来源的食物中。维生素B12很难被人体吸收。胃所分泌的一种物质是吸收维生素B12的必要因素。对维生素B12的吸收来说，钙也是必要的元素。维生素B12对身体制造红血球和保持免疫系统的功能也是必要的。维生素B12也已经用于哮喘、疲劳、肝炎、失眠和癫痫等的治疗。维生素B12储存于肝脏中，但是很容易通过尿排除体外。维生素B12是很安全的，而且没有副作用。维生素B12缺乏者常是老人和酗酒者。富含维生素B12的食物：动物肝脏、牛肉、猪肉、蛋、牛奶、奶酪。图为是小鸡缺乏维生素B12的症状，可以看到脚爪有明显的畸形。
养鸡
养鸡