Dowhile循.pptVIP

编写程序计算1+2+3+…+100的和。 s=0 For i=1 to 100 s=s+i Next i Print s 已知S=1+2+3+…+n，找出一个最大的整数n，使得S30000。 程序的循环结构（二） —— do while…Loop语句 Do while…loop循环 Do while 条件表达式 语句组（循环体） Loop 已知S=1+2+3+…+n，找出一个最大的整数n，使得S30000。 i=0 s=0 Do while s30000 i=i+1 s=s+i Loop print i 题1： Dim s,i as integer s=0 i=1 do While i=100 s=s+i loop print s A)5050 B)5051 c)死循环 D)无穷大的数 阅读程序，写出运行结果 i始终等于1, s不断自增 题2： Dim a,s as integer n=5 s=0 do While n=1 s=s+n n=n-1 loop print s 尝试改动程序的一处地方， 使程序计算1+2+3+4+5的结果。 条件n=1不成立，始终没有进入循环 C N=1 假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为之（珠穆朗玛峰的高度为8848.13米），求对折纸张的次数。 Do while…loop循环 Do while 条件表达式 语句组（循环体） Loop i=0 S=0.1 Do while s=8848130 i=i+1 S=s*2 Loop Print i 你估算一下？ 采用For语句比Do while…Loop更加简明。 一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用Do while…Loop语句 Do while…loop循环 练习 (2010HK)以下Visual Basic程序段是一个完整的Do语句，则划线处的语句应该是 Do While n 10 n = n + 3 : s = s * n_______A）Loop B）End Do C）End Sub D）Next n A 练习 (2012HK)有如下的Visual Basic程序段： x = -3 Do While x 0 x = x + 2 Loop 该程序段运行后，变量X的值是 A） -1 B） -3 C） 3 D） 1 D 练习 有如下VB程序段： s = 0 : i = 1 Do while i = 10 If I mod 2 =0 then  s = s +I I = I +1 Else i = I +1 End If Loop Print s 该程序段运行之后，其输出结果为 A. 30 B. 0 C. 10 D.20 A 练习 下列程序段的执行结果是 Private Sub Cm1_Click() Dim a, b As Integer a = 1: b = 0 Do While a = 5 b = b + a * a : a = a + 1 Loop Print a, b End Sub A）6 55 B）5 54 C）6 54 D）5 55 A 若s=1*2*3*4*…*n，下列VB程序的功能是求s不大于1000时的最大n值： dim s,n as integer s = 1 : n = 1 Do while ① . n = n +1  ② . Loop print “n=“; n-1请将程序中横线处补充完整，①和②分别是A）① s=1000 ② s = s * nB）① s=1000 ② s = nC）① n=1000 ② n = s * nD）① n=1000 ② s = s * n A 年份Year 已荒漠化面积 S 下一年荒漠化面积