基础vb循环计算

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 条件表达式 循环体 Loop Do while后面的条件表达式结果为True的时候，就执行一次循环体，直到条件表达式的结果为False，跳出循环。,5,实 例 点 拨,6,有如下程序段： x1 fory1 to 5 step 2 xx*y nexty 该程序执行后，变量x 的值是_，y的值是_。 答案：15 7,7,解析：本题考查的是循环结构程序运行后，相关变量的值

3、。For后面的循环变量每取得一个合法的值，循环体就执行一次。因此，程序运行过程中x、y的值如下表：,8,有Visual Basic程序段如下： x3 Do While x0 xx 2 Loop 该程序段运行后，变量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中显示的内容是_，文本框T

4、ext2中显示的内容是_。 Private Sub Command1_Click() Dim a(1 To 5)As Long, i As Integer a(1)1 For i2 To 5 a(i)a(i 1)* i Next i Text1.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的时候超出初值与终值的范围,循环结

5、束，本题Txet1.Text=Str(a(2),Text1中显示的是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程序段： s1 i10 Do while i1 ss*i*(i1) _ l

6、oop 若要使语句ss*i*(i1)执行5次，则 处空格内应填写的语句是() Ass2Bss2 Cii2Dii2,D,15,3有如下Visual Basic程序段： For x10 To 1 Step 1 a(x)x 1 Next x 该程序段运行后数组元素a(3)的值为() A9B8C4D3 4下列语句是用于计算sum1357 99的Visual Basic语句： ssi next i s0 for i1 to 99 step 2 正确的语句序列是() A B C D,C,A,16,5以下visual basic程序段： s0 For i1 to 10 step 3 ssi*i Next i

7、 该程序段执行完后，变量i的值为() A1B10C11D13,D,17,6分析以下visual basic程序段的功能 ka(1) for i2 to 10 if a(i)k then ka(i) next i text1.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 the

8、n ka(i),12,19,7有如下VB程序段： Dim a(l To 5)As Integer, i As Integer, c As Integer a(l)2 : a(2)1 : a(3)3 : a(4)4 : a(5)5 c0 For i3 To 5 If a(i 2) a(i 1)a(i)Then cc 1 Next i Textl.TextStr(c) 该程序段运行后，文本框Textl中显示的内容是() A1B2C3D4,B,20,8有如下程序段： Dim k As Integer，s As Integer k0；s0 Do While k10 kk1 ssk Loop 该程序段执行后，变量s的值是() A0B1 C10D11,A,21,9运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是() Private Sub Command1_Click() Dim a(0 To 5)As Integer Dim i