求vb彩票程序代码做的好加高分。

两把新钥匙&；NbspCommandButton和& amp；nbspTextBox & ampNbsp，其中&；nbspText2 & ampNbsp多线Nbsp属性是& amp；nbspTure & amp滚动条和。Nbspfor &；nbsp2 & ampnbsp-& amp；nbsp垂直

昏暗& ampnbsplbNum & ampnbspAs & ampnbspInteger

私人& ampnbspSub & ampnbspCommand1_Click()

& ampnbsp & ampnbsp & ampnbsp & ampnbspIf & ampnbspTrim(Text1)nbsp<。& gt& ampnbsp " " & ampnbspThen & amp'修剪& ampnbsp函数用于删除&；nbsp text 1 & amp；两边的空间。

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsplbNum & ampnbsp = & ampnbsplbNum & ampnbsp+& amp；nbsp1

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspText2。文本& ampnbsp = & ampnbspText2 & ampnbsp & amp& ampnbsplbNum & ampnbsp & amp& ampnbsp”。& ampnbsp & amp& ampnbsp text 1 & amp；nbsp & amp& ampnbspvbCrLf & ampnbsp & ampNbsp '记录，但我建议用& amp；nbsplistbox

& ampnbsp & ampnbsp & ampnbsp & ampnbspElse

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspMsgBox & ampNbsp“请输入内容”&；nbsp & ampNbsp没有输入时。.....

& ampnbsp & ampnbsp & ampnbsp & ampnbspEnd & ampnbspIf

结束& ampnbspSub

私人& ampnbspSub & ampnbspCommand2_Click()

& ampnbsp & ampnbsp & ampnbsp & amp随机化& ampnbsp & ampNbsp如果没有这句话，每次重启程序&；nbspRnd & ampnbsp函数仍将获得原始数字。

& ampnbsp & ampnbsp & ampnbsp & amp不间断空格

& ampnbsp & ampnbsp & ampnbsp & ampnbspMsgBox & ampNbsp“抽签结果是&；nbsp " & ampnbsp & amp& ampnbs pint((lbNum & amp；nbsp-& amp；nbsp 1)；nbsp*&。nbspRnd & ampnbsp+& amp；nbsp 1)；nbsp & amp& ampnbsp " & ampNbsp号码"

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp'Rnd&。nbsp函数的公式，使数在&中；nbsp 1 & amp；Nbsp到&；nbsplbNum & ampNbsp，之间。

结束& ampnbspSub