原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VFP循环结构教材示例【荐】.ppt
循环结构教材示例 * * 【例5.6】计算100以内的奇数之和。 N=100 S = 0 FOR i = 1 TO N STEP 2 S = S + i ENDFOR ? N，“ 以内的整数和= , S 【例5.6】计算100的阶乘，即： P = 100! = 1×2× 3 ×…×100 。 N=100 P = 1 FOR i = 1 TO N P = P * i ENDFOR ? ALLTRIM (STR( N ) ) +的阶乘 = ，P 【例5.7】计算1~100之间所有奇数 （且这些奇数不能被3整除）之和。 S = 0 FOR i = 1 TO 100 STEP 2 IF MOD（i , 3）= 0 LOOP ENDIF S = S + i ENDFOR WAIT WINDOW “100以内的整数和= “+STR( S) 【例5.8】下列程序的运行结果是什么? 金 字字 大大大 宝宝宝宝 塔塔塔塔塔 CLEAR C=金字大宝塔 N=LEN(c)/2 FOR i=1 TO n ?SPACE( 70-i ) FOR j=1 TO i ??SUBS( c, 2*i-1, 2 ) =INKEY( 0.5 ) ENDFOR ENDFOR 【例5.9】加密算法。 将由英文字母组成的字符串加密： （1）如果是大写字母，用原字母后面第4个字母代替原字母； （2）否则，用原字母后面第2个字母代替原字母。 例如：明文“China”的密文是“Gjkpc”。 m=SPACE(0) c=China FOR i=1 TO LEN(c) nc=ASC( SUBSTR( c, i, 1 ) ) IF nc64 AND nc91 m=m+CHR( nc+4 ) ELSE m=m+CHR( nc+2 ) ENDIF ENDFOR WAIT WINDOW c+字符加密后为+m STORE ‘abcdef’ TO c, cc p=SPACE(0) DO WHILE LEN(c)0 p=LEFT(c,1)+p c=SUBSTR(c,2) ENDDO ? cc+”的反序为”+p 【例5.10】将由ASCII码字符组成的字符串进行反序显示。 STORE ‘a中国bcdef’ TO c,cc p=SPACE(0) DO WHILE LEN(c)0 x=ASC(LEFT(c,1)) IF x127 i=2 ELSE i=1 ENDIF p=LEFT(c, i )+p c=SUBSTR(c, i+1 ) ENDDO ? cc+”的反序为”+p 【例5.11】将由任意字符（包括汉字）组成的字符串进行反序显示。 【例5.12】统计字符串中大、小写英文字母的个数。 c= Visual FoxPro STORE 0 TO Nmax, Nmin DO WHILE c do case case ASC(LEFT(c,1))64 AND ASC(LEFT(c,1))91 _______________________ case ASC(LEFT(c,1))96 AND ASC(LEFT
文档评论（0）