学习VB编程第12天，做一个模拟大乐透的抽奖器

今天学习了刘金玉老师VB编程教程的第19期，学习的主要内容是数组的运用。

一、数组

1.什么是数组？

数组是一组具有相同类型和名称的变量的集合。这些变量称为数组的元素，每个数组元素都有一个编号，这个编号叫做下标，我们可以通过下标来区别这些元素。数组元素的个数有时也称之为数组的长度。

2.定长数组

（1）定长数组的长度是在定义时就确定的，在程序运行过程中是固定不变的。其定义格式为：

Dim数组名([下界TO]上界)[As类型名]
其中，数组的下界和类型是可选的。所谓下界和上界，就是数组下标的最小值和最大值。缺省下界时，VB默认的下界是0.

如果定义数组时不指定其类型，默认是变体型的。

下面举例说明定长数组的定义：

①Dim a(1 to 3)As Integer

②Dim b(5 to 9)As String

③Dim c(7)As Integer

④Dim d(6)

其中，例①定义了一个具有三个元素的整型数组，其下标从1到3。例②定义了一个具有五个元素的字符型数组，其下标从5到9。例③缺省了下界，它定义了一个具有八个元素的整型数组，其下标从0到7。例④则缺省了下界和类型，定义的是具有七个元素的变体型数组，其下标从0到6。如果在该模块的“(声明)”部分添加了Option base 1，则例③和例④的下标都是从l开始了。在定义定长数组时，其上界和下界必须是常数或常量表达式。

（2）数组的赋值：

数组名(上下界之间的数)=数值

二、使用数组模拟大乐透抽奖

1.新建1个shape控件（shape属性设置为circle，将fillcolor属性设置为相应的颜色），1个label控件（将back style属性设置为0，auto size属性设置为true，forecolor设置为白色）。新建一个command控件。新建一个timer控件（enabled属性设置为false）。

2.同时选中shape控件和label控件，单击右键选择复制，然后在form窗体空白处单击右键选择粘贴，提示“已有一个控件为shape1，创建一个控件数组吗？”，选择“是”。针对label的提示同样选择“是”。

3.输入代码：

Private Sub Command1_Click()

If Command1.Caption = "抽奖" Then

Timer1.Enabled = True

Command1.Caption = "停止"

Else

Timer1.Enabled = False

Command1.Caption = "抽奖"

End If

End Sub

Private Sub Timer1_Timer()

Randomize

Label1(0).Caption = Int(Rnd * 35) + 1

Label1(1).Caption = Int(Rnd * 35) + 1

Label1(2).Caption = Int(Rnd * 35) + 1

Label1(3).Caption = Int(Rnd * 35) + 1

Label1(4).Caption = Int(Rnd * 35) + 1

Label1(5).Caption = Int(Rnd * 12) + 1

Label1(6).Caption = Int(Rnd * 12) + 1

End Sub

4.点击运行：（快去买注大乐透吧，说不定就中了，哈哈哈）

视频加载中...

这个大乐透模拟抽奖程序有个缺陷，可能抽出来的红球和篮球存在重复的情况。还有很多知识没有学，所以将就用一下吧。有没有大神会的，欢迎支招。