求助 VB子程序

<P ><FONT size=3>任务描述：请编写一个猜字游戏。开始游戏后，程序生成一个<FONT face="Times New Roman">1</FONT>—<FONT face="Times New Roman">10</FONT>之间的随机整数，由用户来猜，程序提示所猜数字的大小，用户根据提示再猜，直到猜对或结束。</FONT></P>
<P ><FONT face="Times New Roman"><FONT size=3>1．</FONT>  </FONT><FONT size=3>窗体上有两个命令按钮控件，程序运行时，“提交”按钮应设置成无效。</FONT></P>
<P ><FONT face="Times New Roman"><FONT size=3>2．</FONT>  </FONT><FONT size=3>运行时标签显示“请单击‘开始游戏’按钮”，用户单击“开始游戏”按钮后，程序生成一个<FONT face="Times New Roman">1</FONT>—<FONT face="Times New Roman">10</FONT>之间的随机整数。此时标签中显示“请输入一个<FONT face="Times New Roman">1</FONT>—<FONT face="Times New Roman">10</FONT>之间的数字”，同时程序使文本框获得焦点。单击“开始游戏”按钮后，“提交”按钮应变成有效，而“开始游戏”按钮应变成无效。</FONT></P>
<P ><FONT face="Times New Roman"><FONT size=3>3．</FONT>  </FONT><FONT size=3>文本框中输入一个数字：单击“提交”按钮，程序比较该数字与随机数的大小，并在标签中显示比较信息，如“大了，请重新输入一个数字”或“小了，请重新输入一个数字”，或“对了”。如果猜对了，“开始游戏”按钮变成有效，而“提交”按钮应变成无效。等待用户重新开始游戏。</FONT></P>
<P ><FONT face="Times New Roman"><FONT size=3>4．</FONT>  </FONT><FONT size=3>程序允许用户最多猜三次。三次没有猜对，标签控件显示“你三次没有猜对，没有机会了”，“开始游戏”按钮变成有效，而“提交”按钮应变成无效。等待用户重新开始游戏。</FONT></P>
<P ><FONT size=3>提示：<FONT face="Times New Roman"> </FONT>产生<FONT face="Times New Roman">1</FONT>—<FONT face="Times New Roman">10</FONT>之间的随机数可以使用如下函数：<FONT face="Times New Roman">Int(10*Rnd)+1)</FONT></FONT></P>
<P ><FONT size=3><FONT face="Times New Roman">       </FONT>初始化随机数生成器语句<FONT face="Times New Roman"> </FONT>：<FONT face="Times New Roman">Randomize</FONT></FONT></P>

<P><a href="http://tx.wzsoft.net/js/867.html" target="_blank" >http://tx.wzsoft.net/js/867.html</A></P><P>上面是个猜数游戏的网页代码</P>

<P>楼猪已经写的那么详细的思路</P><P>程序应该不难写啊</P>