VB抽奖程序

暗淡？a()？作为？线

暗淡？tem？作为？线

私人？Sub？CMD1_Click()？注意，如果这里没有出口呢？子，责任就会出现。captio不会变，但已经变了。

如果？CMD1。标题？=?“开始”？然后

CMD1。标题？=?“停止”

定时器1。启用？=?真实的

退出？潜水艇

结束？如果

如果？CMD1。标题？=?“停”？然后

CMD1。标题？=?“走”

定时器1。启用？=?错误的

如果？tem？& lt& gt？""?然后

Text1。文字？=?时间的（temporal的缩写）

结束？如果

结束？如果

结束？潜水艇

私人？Sub？CMD2_Click()

Frame1。可见？=?真实的

文本2。可见？=?真实的

CMD3。可见？=?真实的

CMD4。可见？=?真实的

结束？潜水艇

私人？Sub？CMD3_Click()

文本2。可见？=?错误的

CMD3。可见？=?错误的

CMD4。可见？=?错误的

tem？=?文本2。文本

结束？潜水艇

私人？Sub？CMD4_Click()

文本2。文字？=?""

文本2。可见？=?错误的

CMD3。可见？=?错误的

CMD4。可见？=?错误的

结束？潜水艇

私人？Sub？form_load()

Frame1。可见？=?错误的

文本2。可见？=?错误的

CMD3。可见？=?错误的

CMD4。可见？=?错误的

定时器1。启用？=?错误的

定时器1。区间？=?300

开放？“C:\Documents？然后呢。设置\管理员\桌面\新建？文本文档。txt "？为了什么？输入？作为？1

做什么？直到？EOF(1)

雷迪姆？保存？A(0？去哪？我)

输入？#1,?答(一)

我？=?我？+?1

环

接近？#1

结束？潜水艇

私人？Sub？定时器1 _定时器()

Text1。文字？=?阿(j)

j？=?j？+?1

如果？j？=?UBound(A)？然后

j？=?0

结束？如果

结束？潜水艇

已经过去了，但是你要提前在桌面上创建一个文本文件来存储数据，呵呵。