提交作业方式为：将源代码粘贴到答题的文本编辑框中。 ...

提交作业方式为：将源代码粘贴到答题的文本编辑框中。 注意： 1.无需提交项目文件 2.如果未将源代码粘贴到文本框中，则本题不给分。 10只猴子摘了500个桃子，它们约定按照下述规则吃桃子： （1）规则1：每天吃当前桃子数量的一半，并再奖励一只猴子多吃一个桃子。 例如：第一天吃的桃子数为500/2 + 1=251个桃子。 说明：如果桃子数量的一半不为整数，例如49个桃子的一半是24.5个桃子，这时取整数个桃子，即为24个桃子，除此之外，还需要再奖励一只猴子多吃一个桃子。 （2）规则2：除了最后一天之外，每天每只猴子至少能分得1个桃子。如果使用规则1时不能保证每只猴子都分得1个桃子，则当天给每只猴子派发1个桃子，即当天需要派发10个桃子。 （3）如果某一天所有桃子数量不够每只猴子一个时，则当天吃完所有桃子，这即是吃这些桃子的最后一天。 （4）问最后一天还有多少个桃子可以吃，以及每天猴子们都分得多少个桃子吃，每天吃完桃子后还剩多少个桃子？ 要求如下： （1）界面有一个多行文本框Textbox1和一个按钮Button1。 （2）单击Button1，执行程序。 （3）在多行文本框中显示如下内容： 总共有500个桃子，10只猴子分享。 第1天吃掉？？？个桃子，还剩？？个桃子。 第2天吃掉？？？个桃子，还剩？？个桃子。 。。。 第？天吃掉？？？个桃子，还剩？？个桃子。 第？天，也就是最后一天还剩？？？个桃子可以吃。 要求上述显示内容每行换行。 提示： （1）每天吃当前桃子数量的一半再加1，直至当天可以吃的桃子数量的一半加1比10少，则不再按照该规则执行。 （2）文本框中的内容的换行可以使用下面的方法： 例如： textbox1中初始内容为空。需要在第一行中显示内容：你好。代码可为： Textbox1.text= Textbox1.text & “你好” & vbCrLf 注：vbCrLf是Visual Basic(VB,一种编程语言)中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思 需要在第二行中进一步显示：这是一个VB程序。则完整代码为： Textbox1.text= Textbox1.text & “你好” & vbCrLf Textbox1.text = Textbox1.text & “这是一个VB程序” & vbCrlf 如果每次生成的字符串都存储在变量A中，代码可改为： Dim A$ A=”你好” Textbox1.text= Textbox1.text & A & vbCrlf A=“这是一个VB程序” Textbox1.text= Textbox1.text & A & vbCrlf