VB课件含具体例子第7章循环结构程序设计幻灯片.pptVIP

7.5.3 求最大值或最小值问题 求一组数据中的最值的基本算法思想： 一般先假设一个较小的数作为最大值的初值，倘若无法估计较小的值，则通常取该组数据中的第一个数作为最大值的初值，然后依次将这组数据中的其他数据与最大值进行比较，若有大于最大值的情况，则将该数替换目前的最大值，否则继续取下一个数与最大值进行比较 [例题7-12] grade = Int((100 - 0 + 1) * Rnd) 采用Rnd函数模拟百分制成绩 max = grade Print “整个班级20名同学的某门课程的成绩为： For i = 2 To 20 假设班级人数为20人 Print grade; grade = Int((100 - 0 + 1) * Rnd) If grade max Then max = grade Next i Print Print 最高分为; max 例题7-12 求班级学生某一门课成绩的最高分 这就是一个求最大值的问题。先假设第一个成绩就是班级最高分，然后从第二个成绩开始依次与假设的最高分比较，若有高于它的，则更新最高分，否则继续下一个成绩的比较，直至最后一个成绩 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式) （1）Private Sub Command1_Click()