使用VB制作一个摇奖系统

文章作者：Siqi Wu

使用For-Next循环产生1000个1-100之间的随即整数.

首先在窗体上设计一个文本框(Text1)和一个按钮(Command1)，上面打上“开始抽奖”，这样按这个键就开始抽奖。Dim intranum As Integer, i As Integer, j As Integer, A As Integer
  Randomize
  For i = 1 To 1000
    intranum = Int(100 * Rnd) + 1
    A = 0
    For j = 1 To 10000
        A = A + 1
    Next j
    Text1.Text = CStr(intranum)
    Text1.Refresh
  Next i
  Text1.Text = CStr(intranum)