《Visual Basic程序设计项目化案例教程 教学课件 ppt 作者 王萍 1-7章 第6章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计项目化案例教程 教学课件 ppt 作者 王萍 1-7章 第6章（56页珍藏版）》请在金锄头文库上搜索。
1、【案例6-1】 累加器 【案例6-2】 九九乘法表 【本章小结】,一、案例效果 本案例利用循环结构的特点，使用ForNext循环语句，求NM之间的所有整数的和，程序效果如图6-1所示。,【案例6-1】 累 加 器,图6-1,二、技术分析 1ForNext循环语句 1) ForNext语句的格式 For 循环变量=初值 To 终值 Step 步长值 循环体 Next 循环变量 2) ForNext语句的功能 根据For语句中循环变量所给定的初值、终值和步长，来确定循环的次数，重复执行循环体内各语句。,3) 执行过程 ForNext语句遵循“先检查，后执行”的原则。 执行For语句时，首先计算初值
2、、终值和步长各数值型表达式的值，再将初值赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没有超出终值，则执行循环体语句，否则执行Next下面的语句。 执行Next语句时，将循环变量的值与步长值相加，再赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没有超出终值，则执行循环体语句，否则执行Next下面的语句。,4) 使用说明 (1) For语句与Next语句必须成对出现，缺一不可。在Next语句中，循环变量可以省略，但如果出现，要与For语句中的循环变量相一致。 (2) 若步长值为正数，则循环变量的值大于终值时为超出；若步长值为负数，则循环变量的值小于终值时为超出
3、。 (3) 步长只能是正值或负值，步长不能为零，否则循环会永不停止，即产生死循环，此时可按“Ctrl+Break”鍵，强制终止程序的运行。当步长为1时，Step 1可以省略。,(4) 循环变量的初值、终值和步长可以为常量、变量或表达式，但不能是数组的数组元素(关于数组的知识具体参见第7章)。 (5) 在循环体语句中可以加入Exit For语句，执行该语句后会强制程序脱离循环，执行Next下面的语句。Exit For语句通常放在选择结构语句之中使用。 (6) ForNext语句适用于循环次数确定的情况。,例如： Private Sub Form_click() Sum=0 For i=1 to
4、10 step 1 Sum=Sum+2 Next i Print Sum End Sub 上面的语句段演示了ForNext语句的应用。程序中对变量Sum进行累加求和。,2WhileWend循环语句 1) WhileWend语句的格式 While 条件 循环体 Wend 2) WhileWend语句的功能 WhileWend语句的功能是，当条件成立时，则重复执行循环体语句，直到条件不成立时，才终止循环，执行Wend后面的语句。,3) 执行过程 WhileWend语句也遵循“先检查，后执行”的原则。 首先判断条件是否成立，如果成立，则执行循环体语句，然后再判断条件是否成立，如果仍然成立，则重复执行
5、上述操作；如果条件不成立，则不执行循环体，转去执行Wend语句的下一条语句。,4) 使用说明 (1) While语句与Wend语句必须成对出现，缺一不可。 (2) 在While语句之前，要准备好初始条件，以提供给第一次检测“条件成立与否”使用。在循环体内，要有改变条件的有关语句，以便在适当的时候(如不满足条件)退出循环。,(3) WhileWend语句适用于循环次数不确定的情况。 例如： Private Sub Form_click() Sum=0:i=1 While i=10 Sum=Sum+2 i=i+1 Wend Print Sum End Sub 上面的语句段演示了WhileWend语
6、句的应用。程序中对变量Sum进行累加求和。,3DoLoop循环 DoLoop循环有两种形式：直到型循环和当型循环。 1) 当型DoLoop循环 当型DoLoop循环语句是先判断条件，再执行循环体语句序列中的语句。使用格式如下： Do While|Until 条件 循环体语句 Loop,选择关键字While时，当条件成立时，重复执行循环体语句；当条件不成立时，退出循环，转去执行Loop后面的语句。 选择关键字Until时，当条件不成立时，重复执行循环体语句，直到条件成立时，退出循环，转去执行Loop后面的语句。 在循环体语句中可以使用Exit Do语句，它的作用是退出该循环，它一般用于循环体语句
7、中的判断语句。,例如： Private Sub Form_click() Sum=0:i=1 Do While i=10 Sum=Sum+2 i=i+1 Loop Print Sum End Sub 上面的语句段演示了Do WhileLoop语句的应用。程序中对变量Sum进行累加求和。,2) 直到型DoLoop循环 直到型DoLoop循环语句是先执行循环体语句中的语句，再判断条件。使用格式如下： Do 循环体语句 Loop While|Until 条件,例如： Private Sub Form_click() Sum=0:i=1 Do Sum=Sum+2 i=i+1 Loop Until i1
8、0 Print Sum End Sub 上面的语句段演示了DoLoop Until语句的应用。程序中对变量Sum进行累加求和。,4Visual Basic标准函数 本案例中主要涉及表6-1所列的两个标准函数。,表6-1 本案所涉及的标准函数,使用说明： (1) 在使用随机函数Rnd 以前通常要加一条无参数的随机种子语句Randomize，利用它来初始化随机数发生器，否则在程序运行时会出现重复的有序随机数。 (2) 产生nm范围(包括整数n和m)随机整数的式子有如下两种形式： Int(Rnd*(m-n+1)+n Int(Rnd*(m-n+1)+n) 例如，产生两位数随机整数的式子是： Int(R
9、nd*90)+10或Int(Rnd*90+10) 产生12,57范围内随机整数的式子是： Int(Rnd*46)+12或Int(Rnd*46+12),5绘图方法 Visual Basic中，可以在窗体及图片框等对象中绘图，并且其提供了多种可以在对象中绘图的方法。 下面我们首先来学习绘图的Circle方法的使用。 Circle方法可用于画圆、椭圆、圆弧和扇形，使用格式如下： Object.Circle Step (x ,y) ,半径 , 起始角 , 终止角 长短轴比率 此方法将在窗体或图片框中，以(x, y)为圆心坐标，以r表示圆的半径(单位为点)，绘制一个图形。,关键字Step表示采用当前作图
10、位置的相对值。圆弧和扇形通过参数起始角、终止角来控制。当起始角、终止角取值在02时为圆弧；当起始角、终止角取值前加负号时画出扇形，负号表示画圆心到圆弧的径向线。椭圆通过长短轴比率控制，默认值为1，即画圆。 例如： Form1.Circle (5000,5000) ,2000 该语句表示以(5000,5000)为圆心坐标，以2000为圆的半径，在窗体上绘制一个圆。,三、操作步骤 1创建程序界面 新建一个“标准EXE”工程，按照图6-2所示在Form1窗体上添加3个标签控件、3个文本框控件和2个命令按钮控件。 2设置对象的属性 按表6-2设置对象的属性。,图6-2,表6-2 设置对象属性,3程序代
11、码编辑 在程序代码窗口中输入下面的代码。 (1) 窗体Form1中按钮Command1的程序代码如下： Private Sub Command1_Click() Dim N As Integer, M As Integer, K As Integer, SUM As Long,N = Text1.Text M = Text2.Text SUM = 0 给变量SUM赋初值0 For K = N To M SUM = SUM + K 累加语句，进行变量K的累加运算 Next K Text3.Text = SUM 显示计算结果 End Sub,(2) 窗体Form1中按钮Command2的程序代码如
12、下： Private Sub Command2_Click() Unload Me 卸载当前窗体，退出程序 End Sub 4程序代码调试 输入程序代码后，完成程序代码的调试和修改。,四、探索与思考 (1) 如果要使用WhileWend语句编写程序，应如何修改程序? (2) 如果要使用DoLoop循环编写程序，应如何修改程序？ (3) 如果要将“累加器”改成“累乘器”，则如何修改程序？ 五、学生自主设计画圆 1设计要求 1) 基本部分模仿 要求程序运行后，单击窗体，在窗体上画50个不同大小的圆，色彩也不同，窗体的画面参考图6-3所示。,图6-3,2) 拓展部分创意设计 如何在窗体上画出50个大
13、小不同，色彩也不同的椭圆？试试看。 2知识准备 (1) 理解循环结构，学习使用ForNext语句编写程序。 (2) 学习使用VB标准函数：Int(N),Rnd(N)。 (3) 学习使用VB绘图方法：Circle方法。 3效果评价标准 请对照表6-3完成自主设计的效果评价。,表6-3 效 果 评 价 表,4设计小结 请将你的设计过程、设计体会、在设计过程中遇到的问题以及解决方法写在下面。,一、案例效果 本案例利用ForNext循环结构嵌套，外循环的循环变量用来产生被乘数，内循环的循环变量用来产生乘数，打印出九九乘法表，程序效果如图6-4所示。,【案例6-2】 九 九 乘 法 表,图6-4,二、技
14、术分析 1循环结构的嵌套 案例6-1中介绍的各类循环语句，循环体内没有另外的循环结构，这是最简单的循环，称为单重循环。如果一个循环结构的循环体内又包含了其他循环结构，则称为“循环的嵌套”，也叫多重循环。,例如： Private Sub Form_click() For i=1 to 10 T=1 For j=1 to i T=T*j Next j Print T Next i End Sub 外层的叫外循环，内层的叫内循环，有几层嵌套就叫几重循环。ForNext循环中可以包含一个或多个ForNext、WhileWend或DoLoop循环，在WhileWend和DoLoop循环中同样如此。,2多
15、重循环的执行过程 多重循环是一种层次结构，它的执行过程也是分层进行的。以上面的程序为例，该程序是一个ForNext二重循环。i为外循环的循环变量，控制着外循环的循环次数；j为内循环的循环变量，控制着内循环的循环次数。 程序执行过程如下所述： (1) 外循环的循环变量i取初值1。 (2) 判断外循环控制条件，当条件成立时，执行循环体，即外循环的循环体，否则转向步骤(7)。,(3) 内循环变量j赋初值1。 (4) 判断内循环控制条件是否成立，若成立，则执行内循环体语句，否则转向步骤(6)。 (5) 内循环变量增加步长值，即j=j+1，然后返回到步骤(4)执行。 (6) 外循环变量增加步长值，即i=i+1，然后返回到步骤(2)执行。 (7) 退出外循环，执行外循环的下一条语句。 总之，二重循环的执行过程的特点是：每当外循环变量的值改变一次，内循环变量的值都要重新取初值，重新循环一遍。,3多重循环的使用说明 (1) 内循环与外循环的循环变量名不能相同，否则将引起程序运行的混乱。例如： For A=1 to 10 For A=5 to 1 step
