vb抽奖程序_学习VB编程第6天 学习使人快乐

今天学习了刘金玉老师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

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

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