第四节循环结构2ppt课件.pptVIP

教学目标 1、深入学习数组的相关知识 2、初步掌握找出最大值的算法思想 3、完成活动三 4、初步掌握for..next语句的嵌套 活动三 在循环结构中深入应用数组 问题：小明的爸爸希望在程序中加一些功能，如找出某月销售额最高的电脑的编号及月销售额。小明在帮助解该问题时，决定在活动二的窗体的基础上再添加一个命令按钮来实现该项功能。 1.分析问题 依据以下问题分析报告，找了求解过程中出现的重复操作内容及控制循环的方法。 问题分析：找出某月销售额最高的的电脑，或转化为找出数组x(35)中的最大值，并记下该数组元素的下标。可以设一个变量maxj来记录最大数组元素的下标，将其初值设为1，然后将x(maxj)与数组x(35)中的元素逐一进行比较，如果某一数组元素x(i)比x(maxj) 大，就将其下标赋给maxj，再将x(maxj)与下一个数组元素进行比罗，……，直至比较结束，变量maxj的值就是所找到的最大数组元素的下标，x(maxj)即为求解的最大值 由以上分析可知：循环控制变量的初值为： ，终值： ；步长为： 循环体中的操作为：如果 ，那么 。 2.设计算法 3、实现应用程序 1）、设计窗体。 2）、将原command1_click()过程中的数组定义语句移至代码窗口的顶部位置。 3）、编写代码，输入到command2_click()过程中 Private Sub Command2_Click() Dim i As Integer Dim maxj As Integer maxj = 1 For i = 1 To 35 If ___________ Then maxj = i End If Next i Text2.Text = 编号： maxj vbTab 月销售额： Format(x(maxj), #,###.00) End Sub 提示： 数组 的定义位置与前述不同，是被写在了代码窗口的最上方，而不在command1_click()过程中。这样该数组还可以在其他的事件过程中被引用。定义在代码窗口最上部且不在任何过程内的变量称为窗体级变量。窗体级变量可供该窗体中所有的事件过程使用。 体验活动 参照“在循环结构中数组的应用“中的程序，完成并调试活动三的程序。 For..next语句的嵌套 和选择语句一样,循环结构也可以进行嵌套。 例1：编写程序打印下列图形。********************* 编写代码： For i=1 to 6 循环输出6行 For j=1 to i print *; 每行输出i个“*” Next j print 换行 Next i 课堂练习 完成课本94页5、6题。 * * 第四节 循环结构(2) 安阳一中 李永恒 i=1 maxj=1 i=i+1 是 是 否 否 * * *