《基础vb循环计算.ppt》由会员分享，可在线阅读，更多相关《基础vb循环计算.ppt（24页珍藏版）》请在三一办公上搜索。
1、,学案23,循环语句,1,1掌握DO语句的基本格式2.掌握FOR语句的基本格式3.能够通过简单循环语句程序代码，计算出程序运行的结果4.在程序设计过程中能熟练应用DO语句与FOR语句解决简单问题重点：掌握DO语句与FOR语句基本格式及其区别难点：在程序设计过程中能熟练应用DO语句与FOR语句解决问题,目,标,定,位,2,自 学 导 引,3,循环语句的功能是实现程序中的语句的重复。VB中循环语句主要有For 语句和Do语句两种。1For语句的基本格式For 循环变量初值 To 终值 Step 步长循环体Next 循环变量For 后面的循环变量在初值到终值之间每取得一个合理值，就执行一次循环体，直
2、到循环变量的取值超出初值与终值之间的范围。当步长为1的时候 Step 1可以省略，步长可以是正数，也可以是负数，但是不能为0或者小数。当步长为负数的时候，初值必须大于终值。,4,2Do 语句的基本格式Do While 条件表达式循环体LoopDo while后面的条件表达式结果为True的时候，就执行一次循环体，直到条件表达式的结果为False，跳出循环。,5,实 例 点 拨,6,有如下程序段：x1fory1 to 5 step 2xx*ynexty该程序执行后，变量x 的值是_，y的值是_。答案：15 7,7,解析：本题考查的是循环结构程序运行后，相关变量的值。For后面的循环变量每取得一个
3、合法的值，循环体就执行一次。因此，程序运行过程中x、y的值如下表：,8,有Visual Basic程序段如下：x3Do While x0 xx 2Loop该程序段运行后，变量x的值是()A3B1C1D3答案：C,9,解析：x的初值为3，所以关系表达式x0结果为True，执行循环体xx 2，x的值变为1。x的为1，关系表达式x0结果为True，执行循环体xx 2，x的值变为1。x的值为1时，关系表达式x0结果为False，循环结束。所以本题答案为C。,10,3下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是_，文本框Text2中显示的内容是_。Private S
4、ub Command1_Click()Dim a(1 To 5)As Long,i As Integera(1)1For i2 To 5a(i)a(i 1)*iNext iText1.TextStr(a(2)Text2.TextStr(a(5)End Sub,11,答案：2120解析：a(1)1，当i2的时候 a(2)a(1)*22；当i3的时候 a(3)a(2)*32*3=6;当i=4的时候a(4)=a(3)*4=6*4=24;当i=5的时候a(5)=a(4)*5=24*5=120;当i=6的时候超出初值与终值的范围,循环结束，本题Txet1.Text=Str(a(2),Text1中显示的是
5、a(2)的值2,Text2.Text=Str(a(5),Text1中显示的是a(5)的值120。,12,自 学 检 测,13,1如图所示循环结构的算法，回答以下问题：(1)循环变量。控制循环的变量是_，其变化范围_，每次变化的增量是_。(2)循环体。循环体语句是_，该语句的功能是_，重复执行的次数为_。(3)该算法的功能是_。,k,5,100,5,ssk,将sk的结果赋值给s,20,求s51015100的和,14,2有如下visual basic程序段：s1i10Do while i1ss*i*(i1)_ loop若要使语句ss*i*(i1)执行5次，则 处空格内应填写的语句是()Ass2Bs
6、s2Cii2Dii2,D,15,3有如下Visual Basic程序段：For x10 To 1 Step 1 a(x)x 1Next x该程序段运行后数组元素a(3)的值为()A9B8C4D34下列语句是用于计算sum1357 99的Visual Basic语句：ssi next i s0 for i1 to 99 step 2正确的语句序列是()A B C D,C,A,16,5以下visual basic程序段：s0For i1 to 10 step 3ssi*iNext i该程序段执行完后，变量i的值为()A1B10C11D13,D,17,6分析以下visual basic程序段的功能k
7、a(1)for i2 to 10if a(i)k then ka(i)next itext1.textstr(k)(1)分析循环变量。该程序段中，循环变量是_，其变化范围是_，步长是_，因此循环体执行次数为_。,i,2,10,1,9,18,(2)分析循环体的功能，该程序段中，循环体语句是_。(3)如果数组元素a(1)到a(10)的值依次是：88、22、45、36、17、46、31、23、55、12，该程序运行后text1输出的结果是_。,if a(i)k then ka(i),12,19,7有如下VB程序段：Dim a(l To 5)As Integer,i As Integer,c As I
8、nteger a(l)2:a(2)1:a(3)3:a(4)4:a(5)5c0For i3 To 5If a(i 2)a(i 1)a(i)Then cc 1 Next iTextl.TextStr(c)该程序段运行后，文本框Textl中显示的内容是()A1B2C3D4,B,20,8有如下程序段：Dim k As Integer，s As Integerk0；s0Do While k10kk1sskLoop该程序段执行后，变量s的值是()A0B1 C10D11,A,21,9运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是()Private Sub Command1_Click()Dim a(0 To 5)As IntegerDim i As Integer a(0)1 For i1 To 5a(i)2*a(i 1)1 Next iText1.TextStr(a(6)End SubABCD,D,22,巩 固 练 习,点击按扭进入WORD文档,Thank you for watching,
