2020版算法与程序设计第三单元第4节 Do循环结构（13张PPT课件+学案）

第4节　Do循环结构 考试内容 考试要求 Do语句格式 c Do语句应用 c Do语句 Do While 条件表达式 语句1 语句2　　　(循环体) …… Loop 每次返回重新判断条件是否成立，成立继续循环 【典例1】 Do循环执行过程填空。 s ＝ 0 Do While s < 10 s ＝ s ＋ 4 Loop 第1次条件s值为0，小于10成立，执行循环体后s＝____ 第2次条件s值为____小于10成立，执行循环体后s＝____ 第3次条件s值为____小于10成立，执行循环体后s＝____ 第4次条件s值为____小于10不成立，循环体不执行 解析　本题主要考查Do循环语句。判断循环变量是否小于10，成立继续循环，否则跳出循环。 答案　4　4　8　8　12　12 【变式训练】 Do循环执行过程填空。 s ＝ “ ”： i ＝ 1 Do While i<5 　 s ＝ s ＋ Str(i) 　 i ＝ i ＋ 1 Loop 第1次条件i值为____小于5成立，执行循环体后s＝____ 第2次条件i值为____小于5成立，执行循环体后s＝____ 第3次条件i值为____小于5成立，执行循环体后s＝____ 第4次条件i值为____小于5成立，执行循环体后s＝____ 第5次条件i值为____小于5不成立，循环体不执行 解析　本题主要考查Do循环语句。判断循环变量是否小于10，成立继续循环，否则跳出循环。 答案　1�———�1”　2�———�12”　3�———�123”　4�———�1234”　5 【典例2】 有如下程序段： Dim a As Integer, b As Integer, c As Integer a ＝ 20：b ＝ 0：c ＝ 2 Do While a > b And a > c 　 b ＝ b ＋ 1 　 c ＝ c ＋ b Loop 该程序段运行后 (1)语句“b＝b＋1”执行的次数为_____。 (2)变量c的值为_____。 解析　本题主要考查Do循环语句。每次循环结束后变量b和c的值依次为1、3，2、5，3、8，4、12，5、17，6、23。 答案　(1)6　(2)23 【典例3】 有如下VB程序段： n ＝ 20: s ＝ “ ” Do While n < > 0 r ＝ n Mod 2 s ＝ Str(r) ＋ s n ＝ n 2 Loop Label1.Caption ＝ s 该程序段运行后标签Label1上显示的内容是(　　) A.10100 B.00101 C.1010 D.0010 解析　本题主要考查Do循环语句。第1次循环结束后r＝0，s＝“0”，n＝10；第2次循环结束后r＝0，s＝“00”，n＝5；第3次循环结束后r＝1，s＝“100”，n＝2；第4次循环结束后r＝0，s＝“0100”，n＝1；第5次循环结束后r＝1，s＝“10100”，n＝0。 答案　A 【典例4】 小明编写程序实现计算1＋2＋3＋……＋n。程序功能如下：程序运行时，在文本框Text1中输入n，单击“计算”按钮Command1，在文本框Text2显示计算结果。程序运行如图所示。 (1)若将该窗体的标题修改为“前n项之和”，则修改该窗体的_____(单选，填字母：A.Text/B.Name/C.Caption)属性。 (2)实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim i As Integer Dim n As Integer Dim s As Long ①____ i ＝ 0 Do While i < n 　 i ＝ i ＋ 1 　 ____②____ Loop Text2.Text ＝ Str(s) End Sub 解析　本题主要考查Do循环语句。(1)文本框对象修改Text属性，窗体对象修改Caption ，Name为对象的名称。(2)通过联系循环条件Do While i < n 可知需要对变量n进行赋值，结合题意得出第一空为：n ＝ Val(Text1.Text)。每次循环时i的值变化为0、1、2、3……，需要计算1＋2＋3＋……＋n，则只需将每次变量i的值累加到变量s中即可，所以第二空代码为s ＝ s ＋ i。 答案　(1)C　(2)①n ＝ Val(Text1.Text) ②s ＝ s ＋ i 【方法总结】 在Do While循环中，需要在循环前给变量赋初值；循环变量值的变化需要在循环体中用语句实现。 1.有如下VB程序段： s ＝ “浙F888R5” n ＝ 0: c ＝ 0 Do While n <＝ Len(s) n ＝ n ＋ 1 ch ＝ Mid(s, n, 1) If ch >＝ “A” And ch <＝ “Z” Then c ＝ c ＋ 1 Loop Label1.Caption ＝ Str(c) 该程序段运行后标签Label1 ... ...