青海大学第六章循环结构.ppt

本章内容及要求 6.1 For…Next循环语句 6.2 For…Next循环语句应用 6.3 DO…LOOP循环语句 6.4 DO…LOOP循环语句应用举例 6.5 循环语句的嵌套 6.6 计时器、滚动条控件 1、请编写程序，当单击命令按钮在窗体上显示5个“祝您成功！”。 1、执行以下程序段后，X的值为_________。 ? Dim I As Integer，X As Integer ? X=0 ? For I=20 To 1 Step -2 ??? ?? X=X+I＼5 ? Next ? Print x? ? A)16??? B)17????? C)18??? D)19 2、某人设计了如下程序用来计算并输出7!（7的阶乘）? Private Sub Command1_Click()? t=0? For k=7 To 2 Step -1? t=t*k? Next? Print t? End Sub?执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是? A）把t=0改为t=1? B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1? C）把For k = 7 To 2 Stip-1改为For k=1 To 7 D）把Next改为Next k Do…Loop循环语句 1、窗体上画一个名称为C1的命令按钮，并编写以下程序：? Private Sub C1_Click()? Dim n%,b,t ? t = 1:b = 1:n = 2? Do? b = b*n? t = t + b? n = n +1? Loop Until n9? Print t? End Sub?此程序计算并输出一个表达式的值，该表达式是? A）9！???? B）10！????? C）1！+2！+…+9！??????? ? D）1！+2！+…+10！ 2、设有如下程序： ?? ?Private Sub Comrnandl_Click() ??? Dim c As Integer，d As Integer? ??? c=4 ??? d=InputBox(“请输入一个整数”) ??? DO While d0 ??? ????If dc Then ??? ????c=c+1 ??? ????End If ??? ?????d=InputBox(“请输入一个整数”) ??? ??Loop ??? ?? Print c+d ??? End Sub ??? 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4：5、6、7、8、9、0，则输出结果是_______ 。 A)12??? B)11??? C)10 ?????D)9 3、设有如下程序： ? Private Sub Form_Click()??? ??? Dim n As Integer，s As Integer??? ??? n=8?? ??? s=0 ??? Do ??? ???S=S+n ??? ???n=n-1 ??? Loop While n0 ??? Print s ? End Sub ? 以上程序的功能是? 【1】? 。程序运行后，单击窗体，输出结果为? 【2】? 。 答案：【1】求整数1-8之和 ?? 【2】36 4、有如下程序： 　　Private Sub Form_Click() 　　 n=10 　　 i=0 　　Do 　　 i=i+n 　　 n=n-2 　　Loop While n2 　　 Print i 　　End Sub 　程序运行后，单击窗体，输出结果为 【 】 例1：从键盘输入若干个数，当输入-9999时停止输入并求输入的数据的平均值。 分析：求均值需要知道总和与总个数，需要设置两个变量，可以分别称它们为累加器变量和计数器变量，它们的初值一般为0，对于不固定个数的数求和，其累加、计数的次数也不固定，应采用DO循环。但为了使循环能结束，需设定一个结束标志，本题-9999做结束标志。 Private Sub Command1_Click() Dim sum!, n%, x!, aver! sum = 0 n = 0 x = InputBox(请输入第一个数：) Do While x -9999 sum = sum + x n = n + 1 x = InputBox(请输入下一个数) Loop aver = sum / n