随机抽取就用随机数函数…至于那个“作弊”很简单，添买号时的输入框用val(选号输入框1.text)与随机生成出来的中奖号码进行对比，if (val(选号输入框1.text) = 中奖号码1) and 中奖号码10 then 中奖号码1 = 中奖号码1 - 1 elseif (val(选号输入框1.text) = 中奖号码1) and 中奖号码1 = 0 then 中奖号码1 = 9 end if 这样有个十百千位就多几个选号输入框、中奖号码，然后按照上述代码，若玩家猜对，会将正确的号码-1（0变成9，9变成8……）
作弊功能你可以加个文本来记录买过的号，如果有买过的号就让号码变化 建一个文本文件：记录.txt放在生成的exe下，代码：Dim i, j, k, l, m, n, x, y, zPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Clic
