请使用Visual Studio 2010作为程序的开发环境。将程序文件夹压缩后以附件的形式提交，并将源代码粘贴到答题的文本编辑框中。
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
关键是我根本不确定是几天的话，循环语句中怎么设置下界啊

dim num%=500,houzi%=10,tianshu%=0
do while num>=houzi
tianshu+=1
loop
tianshu+=1 '这个算了就是最后的天数