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() Dim x As Integer, y As Integer x = 1: y = 3 Do While x = 5 x = y Mod 3 + 2 * x - 1 y = y + (-1) ^ y Loop Print x, y End Sub 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式) （2）Private Sub Command1_Click() Dim i As Integer For I=1 To 7 Print Tab(8-I)； String(I,Trim(Str(I))) Next I End Sub 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式) （3）Private Sub Command1_Click() Dim ch1 As String, ch2 As String, _ ch3 As String, i As Integer ch1 = vsa ai: ch2 = IULBSC“ For i = 1 To Len(ch1) ch3 = ch3 Mid(ch1, i, 1) _ Mid(LCase(ch2), i, 1) Print ch3 Next I Print Chr(Asc(ch3) - 32) Mid(ch3, 2, 5); _ Right(ch3, 6) End Sub 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式) （4）Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 2: b = 10: c = 1 For i = c To 2 * b Step a a = a + 2 i = i + 1 c = 2 * c If a = 10 Then Exit For b = b – 3 Next I Print i, a, b, c End Sub 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式) （5）Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 10: b = 0 For i = 5 To 1 Step –2 Do a = a – 4 b = b + 1 Loop Until b 2 Or a -1 Next I Print a, b, I End Sub 作业解答 7.1 阅读程序，写出下列循环的运行次数，并给出执行结果。(注意输出格式)