Visual Basic程序设计项目化教程管小清电子教案 项目5 制作36选7揺奖机.ppt

Visual Basic 程序设计项目化教程 主编 管小清 郭贺彬 项目五 制作36选7揺奖机 项目目标： 本项目是制作一个36选7的摇奖机，包括摇出6个正选号码和一个特选号码，要保证没有重复号码；可以多次摇奖等功能。利用控件数组来设计摇奖机界面，产生随机数，通过循环控制语句和分支控制产生满足要求的摇奖号码，并把产生的摇奖号码显示在界面上。通过本项目，应掌握循环结构，随机数以及控件数组的使用方法和技巧。 项目五 制作36选7揺奖机 项目主要知识点： 1、Label控件 属性 事件 方法 2、控件数组画法和使用 复制-粘贴 统一命名 3、顺序程序结构 4、随机函数的使用—Randomize 5、产生随机数的方法 6、框架控件的使用 7、输出框 8、循环结构初步知识 9、循环结构初步 10、程序调试，断点和监视的用法 项目五 制作36选7揺奖机 项目实施步骤： 阅读相关基础知识 界面设计 窗体设计 程序设计 程序调试，功能完善 5.1 第1步：基础知识 5.1.1 随机函数 随机数的产生在VB中用随机函数来实现。 1. Randomize 语句：始化随机数生成器。 语法: Randomize [number] 可选的 number 参数是 Variant 或任何有效的数值表达式。 说明： Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。 注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。 5.1 第1步：基础知识 2. Rnd 函数返回一个包含随机数值的 Single。 语法： Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。 返回值： 如下表5-1所示。 5.1 第1步：基础知识 说明： Rnd 函数返回小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子 另：若要产生某个区间范围内的随机数，如【A，B】,则可利用下面的公式： Int((B –A + 1) * Rnd +A) 这里：A是随机数范围的上限，而 B 则是随机数范围的下限。 5.1 第1步：基础知识 5.1.2 VB循环语句 和顺序结构、选择结构一样，循环结构是结构化程序中的三种基本程序结构之一。在程序中，凡是需要重复相同或相似的操作步骤，都可以用循环结构来实现。 循环结构由两部分组成： 循环体，即要重复执行的语句序列； 循环控制部分，即用于规定循环的重复条件或重复次数，同时确定循环范围的语句。 若想让计算机能够正常执行某循环，由循环控制部分所规定的循环次数必须是有限的，即循环体可以重复0次到若干次。 VB支持的循环结构有： For…Next循环 Do…Loop循环 For Each…Next循环 While …Wend循环 其中For…Next循环结构常用于设计已知循环次数的程序，而Do…Loop和While…Wend循环结构更适合于设计循环次数未知，而只知道循环结束条件的程序。 5.1 第1步：基础知识 1.循环结构1： For …Next循环结构 在已知循环要执行多少次时，最好使用For…Next循环。在For…Next循环中使用一个起计数器作用的循环变量，每重复一次循环之后，循环变量的值就会按一定的步长增加或者减少，直到超过某规定的终值时退出循环。 格式如下： For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 5.1 第1步：基础知识 说明： 循环变量、初值、终值和步长都是数值型的，其中，循环变量、初值和终值是必需的。 步长可正可负，也可以省略。若步长为正，则初值必须小于或等于终值，否则不能执行循环体内的语句；若步长为负，则初值必须大于或等于终值，否则不能执行循环体内的语句；若步长省略，则默认为1。 Exit F