大题-复习资料.doc

《大题-复习资料.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、难中等简单-------------------------------------------------字符串处理-------------------------------------------------'题目：对字符串进行加密处理。'加密过程:'将每个字母C加一序数K＝5，即c=chr(Asc(c)-5),'这时"Z"→"U"，"z"→"u"，"Y"→"T"…'当加序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k+26)'--------------------------------

2、-----------------PrivateFunctionEnyStr(strIAsString)AsString'**********Program*********strnew=""‘加密后的新字符串Fori=1ToLen(strI)'依据字符串的长度确定循环次数c=Mid(strI,i,1)'取出第i个字符Ifc<>""Then‘空格不加密c=Chr(Asc(c)-5)Ifc<"a"Orc<"A"Thenc=Chr(Asc(c)-5+26)strnew=strnew+cElsestrnew=strn

3、ew+""EndIfNextiEnyStr=strnew'**********End*************EndFunctionPrivateSubForm_Load()ShowPrintEnyStr("abcdefxyz")WWJTEndSub题目：统计字符串中的单词个数。'算法思路:'（1）从文本（字符串）的左边开始，取出一个字符；'设逻辑量WT表示所取字符是否是单词内的字符，初值设为False'（2）若所取字符不是"空格"，"逗号"，"分号"或"感叹号"等单词'的分隔符，再判断WT是否为True，若W

4、T不为True则表是新单词的开始，'让单词数Nw=Nw+1，让WT=True;'（3）若所取字符是"空格"，"逗号"，"分号"或"感叹号"等单词的分隔符，'则表示字符不是单词内字符，让WT=False;'(4)再依次取下一个字符，重得（2）(3)直到文本结束。'-------------------------------------------------PrivateFunctionCountWord(strIAsString)AsInteger'**********Program*********wt=0

5、nw=0Fori=1ToLen(strI)ch=Mid(strI,i,1)Ifch=""Orch=","Orch=";"Orch="!"Orch="."Thenwt=0ElseIfwt=0Thennw=nw+1wt=1EndIfEndIfNextiCountWord=nw'**********End*************EndFunctionPrivateSubForm_Load()ShowPrint"单词数："&CountWord("Hello,Word!GoodMorning.")WWJTEndSub-

6、------------------------------------------------数列求和-------------------------------------------------'题目：(事件)单击窗体。'(响应)求从100到1000之间所有是3的倍数的数之'和，当和大于3000时，停止计算并输出和。请将结果输'出到窗体上,并存入所给变量SUM中。使用for...next语'句完成程序PrivateSubForm_Click()DimsumAsInteger'**************

7、***Program**************Fori=100to1000Ifimod3=0thensum=sum+iIfsum>=3000thenexitforNexti'***************End*************************CallYZJ(sum)EndSubPrivateSubYZJ(iAsInteger)DimOUTAsIntegerOUT=FreeFileOpenApp.Path&"out.txt"ForOutputAs#OUTPrint#OUT,iClose#OU

8、TEndSub'题目：(事件)单击窗体。'(响应)输出斐波那契数列1,1,2,3,5,8,13...第20个'数的值'即f1=1(n=1)'f2=1(n=2)'fn=f(n-1)+f(n-2)(n≥3)'使用for...next语句完成程序，并将结果'存入变量sum中'-------------------------------------------------PrivateSub