[分享]QB5
在程序设计(I)中讲到了循环语句FOR NEXT的用法,这次我在往深的讲一点. <p><b>1.FOR循环的多重嵌套</b></p><p>多重嵌套就是FOR NEXT循环体中有嵌套一个新的FOR NEXT循环体,注意不允许中间的循环体,超出外部的循环体.</p><p>格式:</p><p><span lang="en-us">FOR I</span></p><p><span lang="en-us">FOR J</span></p><p><span lang="en-us">NEXT J</span></p><p><span lang="en-us">NEXT I</span></p><p>或者</p><p><span lang="en-us">FOR A</span></p><p><span lang="en-us">FOR B</span></p><p><span lang="en-us">NEXT B</span></p><p><span lang="en-us">FOR C</span></p><p><span lang="en-us">NEXT C</span></p><p><span lang="en-us">FOR D</span></p><p><span lang="en-us">NEXT D</span></p><p><span lang="en-us">NEXT A</span></p><p>错误的格式:<br/><span lang="en-us">FOR A</span></p><p><span lang="en-us">FOR B</span></p><p><span lang="en-us">NEXT A</span></p><p><span lang="en-us">NEXT B</span></p><p> 注意FOR NEXT必须对应,如果在循环体内使用GOTO语句,只能从内层循环转向外层,不允许从外层转向内层.</p><p> 在前面的程序设计(I)中有FOR NEXT循环嵌套使用例子,可以重新再看一看.</p><p><b>2.WHILE…WEND语句</b></p><p> FOR NEXT循环一般用于知道循环次数的循环,,而有些不知道循环次数的循环就需要使用WHILE…WEND循环.</p><p>格式:</p><p>WHILE <条件></p><p><语句串>循环体</p><p>WEND</p><p>只要条件为真就执行循环体,知道条件为假的时候退出循环,执行WEND后的语句.</p><p>设计一个累加的程序,直到累加的和超过1000,停止累加,显示累加和.</p><p><span lang="zh-cn"><b>[例子]</b>在QB中输入以下程序：</span></p><p><span lang="zh-cn">CLS<br/>WHILE s <= 1000<br/>INPUT a<br/>s = s + a<br/>WEND<br/>PRINT s<br/>END</span></p><p><b><span lang="zh-cn">3.DO…LOOP语句</span></b></p><p><span lang="zh-cn">格式:</span></p><table id="AutoNumber1" bordercolor="#111111" cellspacing="0" cellpadding="0" width="100%" border="1" style="BORDER-COLLAPSE: collapse;"><tbody><tr><td width="25%">DO WHILE<条件> <p><语句串></p><p>LOOP</p></td><td width="25%">DO UNTIL<条件> <p><语句串></p><p>LOOP</p></td><td width="25%">DO <p><语句串></p><p>LOOP WHILE<条件></p></td><td width="25%">DO <p><语句串></p><p>LOOP UNTIL<条件></p></td></tr><tr><td width="25%">条件真,执行循环语句串,否则执行LOOP下的语句.</td><td width="25%">条件假,执行循环语句串,否则执行LOOP下的语句.</td><td width="25%">条件真,执行循环语句串,否则执行LOOP下的语句.</td><td width="25%">条件假,执行循环语句串,否则执行LOOP下的语句.</td></tr></tbody></table><p>注意如果要强制退出循环,可以假如EXIT DO,或者GOTO.</p><p>如果不清楚可以自己写几个程序来帮助理解.</p>
页:
[1]