用VB.NET做一个抽奖系统

有些时候，公司需要一个抽奖软件，然而却没有按照需求的软件，这种时候就可以动动脑筋用用VB.NET，实际上很简单，我这里就用VB.NET 2010给大家示范一下。

先创建一个标准Form窗体：

创建新工程

插入两个Label、一个Timer和三个button：

设置前

稍微设置一下（外观随意）：

Form1：Text设为“幸运抽奖”，Maxmizebox设为“false”（防止最大化的驴脸），FormBorderStyle设为“Fixed3D”（同样）

label1：Text设为“中奖号码是：”

Label2：Text设为0，字体调大（随意）

Button1：Text设为“滚动数字”

Button2：Text设为“停止滚动”

Button3：Text设为“清零”

Timer1：Interval设为“50”，Enabled设为“FALSE”

就像这样：

设置后

双击窗体，删除掉现有的所有代码，再输入：

Public Class Form1

Private Function Rndz(ByRef a As Integer, ByRef b As Integer) As Object

Randomize()

Rndz = Int((a - b + 1) * Rnd() + b)

End Function

End Class

双击Timer1，然后写入以下代码（注意，是写入不是替换）：

Label2.Text = Rndz ( 0 , 99 )

你可以修改括号两边（不包含逗号）的内容，分别是最小限制和最大限制。例如：（100,1000）

双击Button1，写入以下代码（不是替换）：

Timer1.Enabled = True

双击Button2，写入以下代码（不是替换）：

Timer1.Enabled = false

双击Button3，写入以下代码（不是替换，说的好烦）：

Label2.Text = "0"

然后就可以尝试运行啦！虽然只是一个简单的程序，但用处还是蛮大滴！

来一张代码图：

很多人问我为什么要写新手文章，我知道很多人都已经懂了，但是我还是希望新手比较容易入门！

为什么我没有发附件呢？因为我希望大家都能够自己动手。也是非常简单的，如果有BUG在评论区反映一下哦！