您的位置首页百科问答

用VB编写接近实际的抽奖程序

用VB编写接近实际的抽奖程序

的有关信息介绍如下:

用VB编写接近实际的抽奖程序

'本程序特点接近实际,ListBox作为数据容器,每产生一个数将其移去(RemoveItem方法)。产的数放在数组中,最后再排序。

  '在窗体中放置两个命令按钮(CmdRnd,CmdExit);包含5个元素的控件数(text1(0)~text1(4));一个组合框控件List1,将其Visible属性设置为False。

'注:可以用ComboBox控件代替ListBox控件,只要将程序中的ListBox控件(list1)改为ComboBox控件(combo1)即可。

  '声明

  Private Const AllData = 36 '总数为36

  Private Const Choose = 7 '要选出的数为7个

  Dim Num(Choose - 1) As Byte '数组用来存放选出的数

  Private Sub CmdRnd_Click() '产生随机数

  Dim i, j, RndData

  For j = 0 To 4 '产生5组数据

For i = 1 To AllData

    List1.AddItem i

   Next i

   For i = 0 To Choose - 1

    Randomize '初始化随机数的种子数

    RndData = Int(((AllData - i) * Rnd) + 1)

    Num(i) = List1.List(RndData - 1)

List1.RemoveItem (RndData - 1)

   Next i

   PopSort '调用冒泡排序

   Text1(j) = " "

   For i = 0 To Choose - 1

    If Num(i) < 10 Then

 Text1(j) = Text1(j) & "0" & Num(i) & " " '小于10的数在前面补“0”

    Else

     Text1(j) = Text1(j) & Num(i) & " "

    End If

   Next i

   List1.Clear '清除总数容器

  Next j

  End Sub

 Text1(j) = Text1(j) & "0" & Num(i) & " " '小于10的数在前面补“0”

    Else

     Text1(j) = Text1(j) & Num(i) & " "

    End If

   Next i

   List1.Clear '清除总数容器

  Next j

  End Sub

 End If

     Next j

    Next i

   End Sub

Private Sub CmdExit_Click() '退出程序

   Unload Me

  End

 End Sub