实验六 循环结构

《实验六 循环结构》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验六循环结构【实验目的】1．掌握For语句和Do..Loop循环语句的使用。2．掌握循环的规则及其执行过程。3．掌握如何控制循环条件，防止死循环或不循环。【实验内容】1、编写一个对文本框中输入的字符进行转换的程序。窗体如上右图所示。将小写字母转换成大写字母，大写字母转换成小写字母，空格不转换，其余字符转换成”*”。要求每输入一个字符马上进行判断和转换，结果显示在Text2中。【提示】1）用文本框的Change事件完成。2）仔细想想当前需要进行转换的字符是哪个？在什么位置？结果怎样才能正确地在Text2中显示PrivateSub

2、Text1_Change()DimiAsLong,sAsString,kAsStringFori=1ToLen(Text1)s=Mid(Text1,i,1)If(Asc(s)>=Asc("a"))And(Asc(s)<=Asc("z"))Thenk=k+UCase(s)ElseIf(Asc(s)>=Asc("A"))And(Asc(s)<=Asc("Z"))Thenk=k+LCase(s)ElseIfs=""Thenk=k+""Elsek=k+"*"EndIfNextText2=kEndSub2.编写程序，找出7的倍数中十位数为

3、2的所有3位数。PrivateSubform_click()Fori=100To999Ifi/7=Int(i/7)AndInt((i-Int(i/100)*100)/10)=2ThenPrintiEndIfNextiEndSub3.编写程序用Print语句输出2000年至2500年间的所有闰年，要求每行输出8个。【提示】：1）用任意一种循环语句来完成，在循环体内使用选择结构来判断条件。2）设置一个计数器。每找到一个闰年，则输出年份（控制Print的输出格式，输出后不换行），并使计数器的值加1，当计数器的值正好是8的倍数时，则换行

4、。PrivateSubForm_Click()Dimi%,n%Fori=2000To2500IfiMod4=0AndiMod100<>0OriMod400=0ThenPrintTab(8*n);i;n=n+1ElseIfn=8Thenn=0:PrintEndIfNextiIfnMod8=0ThenPrintTab(n);i;EndIfEndSub4.编写程序解决爱因斯坦台阶问题：有人走一台阶，若以每步走两级则最后剩下一级；若每步走三级则剩两级；若每步走四级则剩三级；若每步走五级则剩四级；若每步走六级则剩五级；若每步走七级则刚好不

5、剩。问台阶至少共有多少级？【提示】用Do…Loop语句来完成。在循环体内使用选择结构来判断条件。PrivateSubForm_Click()Dimx%DoIfxMod2=1AndxMod3=2AndxMod4=3AndxMod5=4AndxMod6_=5AndxMod7=0ThenExitDoEndIfx=x+1LoopPrintxEndSub5.我国有13亿人口，如果按人口年增长0.8%计算，多少年后将达到26亿？【提示】用Do…Loop语句来完成。PrivateSubForm_click()DimaAsLong,bAsLon

6、g,cAsIntegerc=0a=130000000b=260000000DoWhilea

7、LongFori=1To30sum=sum+100000NextiPrint"陌生人给富翁的钱总额";sumA=0.01Fori=1To29A=A*2sum1=sum1+ANextiPrint"富翁给陌生人的钱总额";sum1+0.01EndSub【提高题】10个同学参加测试，分数为A,B,C,D,E五个等级，如果A计5分，B计4分，以此类推，求这10个同学的平均成绩。【提示】可以设置一个变量做累加器，用SelectCase语句实现。PrivateSubCommand1_Click()DimMake(0To9)AsString,

8、i,sAsLongs=0Fori=0To9Make(i)=InputBox("请输入第"&i+1&"位同学成绩!","提示：（成绩为大写ABCDE）")IfAsc(Make(i))<65OrAsc(Make(i))>69ThenMsgBox"输入有误，成绩只限于