今天学习了刘金玉老师VB编程教程的第11期和第12期，学习的主要内容是随机数rnd、int、randomize函数和timer控件的运用。

　　一、int函数

　　Int：作用就是向下取整，运用时候表达为：int（...）。

　　例如：int（3.1）=3，int（3.6）=3，int（-3.1）=-4

　　二、randomize函数

　　使用int随机数前需要加randomize函数，随机数以系统默认时间为种子，因为系统时间每毫秒都不一样，以时间作为随机数的种子产生随机的数值同意也在随时变化。

　　三、rnd随机数

　　rnd的范围：Rnd 函数返回一个小于 1 但大于或等于 0 的值。0≤rnd<1。Rnd*10+1（表示为1到10的随机数）。Int(rnd*10+1)（表示为1到10的随机整数）。int(Rnd*51+5)（表示为5到55的随机整数）。

　　范例：利用label控件制作一个老师提问抽学号的系统，假设该班级有42名同学

　　1.首先在form窗体新建4个label控件，分别设置好控件的背景颜色字体颜色和大小，调整好位置，并将在相应的控件属性caption栏输入如图所示文字内容。

　　（注意：调整label控件背景颜色，字体大小样式颜色，选择对应的控件后在属性栏调整。Back color-背景颜色，font-字体样式大小，fore color前景颜色/文字颜色）

　　2.双击label2控件，在编程窗口输入:

　　Private Sub Label2_Click()

　　Randomize

　　Label3.Caption = Int(Rnd * 42 + 1)

　　End Sub

　　我们可以看到运行结果如图

　　四、timer控件

　　1.timer控件的作用，动画的实现，让使得静态的东西变成动态的东西。

　　2.timer的enabled属性：true或者false，true控件可用，false控件停止使用。

　　3.timer的interval属性：每间隔多少时间依次执行timer事件一次。它的时间单位为毫秒（1秒=1000毫秒）。

　　4.时钟控件在程序启动后是看不见的。

　　范例：实现动态抽奖券效果。

　　首先新建三个label和一个时钟控件，按照图中的样子分别设置好label的样式、内容和位置，将timer的enabled属性设置为false，将timer的interval属性设置为10毫秒。

　　然后在form代码编辑窗口输入：

　　Private Sub Label1_Click()

　　Timer1.Enabled = True

　　End Sub

　　Private Sub Label2_Click()

　　Timer1.Enabled = False

　　End Sub

　　Private Sub Timer1_Timer()

　　Randomize

　　Label3.Caption = Int(Rnd * 100 + 1)

　　End Sub

　　点击运行，点击抽奖后，出现抽奖的动态效果，点击停止抽奖，得到抽奖结果。

　　 心得：学习编程虽然是一件很枯燥的事情，但是当你做成一个小程序后那种成就感，再枯燥的事情也变有意义了，个人认为一定要把所学的知识运用到实际生活中，这样学习才不会盲目，学习才更有动力。