实验五_循环结构程序设计1_答案1103

《实验五_循环结构程序设计1_答案1103》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验五循环结构程序设计1实验目标1．理解并掌握循环的基本作用。2．掌握FOR/NEXT语句的使用。3．掌握While/Wend，DO/Loop语句的形式和使用。4．掌握如何控制循环条件，防止死循环或不循环。实验内容1）将窗体文件“5-2.Frm”和工程文件“5-2.Vbp”上传到老师的ftp服务器上的”周三下午”或”周四下午”或”周五下午”你的文件夹中。如：“31008888传媒1001张三”.2）练习5-3，5-4，5-5也同样将窗体文件和工程文件上传到老师的ftp服务器上。【练习5-1】判断下面两个循环语句的循环体分别被执行了多少次

2、，程序执行完毕后变量s，i的值为多少？程序1s=0fori=1to10step1s=s+1nextiprints,i程序2s=0fori=1to10step-1s=s+1nextiprints,i循环体执行了多少次？10循环体执行了多少次？0变量s的值：10变量s的值：0变量i的值：11变量i的值：1上机实践：用form_click()事件过程来运行调试以上程序。【练习5-2】阅读以下程序，回答问题。PrivateSubForm_Click()DimStr1AsString,str2AsString,str3AsStringStr1=T

3、ext1.Text　　　‘str1为原字符串，str2存放临时字符，str3为目标字符串str2=""str3=""n=Len(Str1)Fori=1Tonstr2=Mid(Str1,i,1)Ifstr2>="0"Andstr2<="9"Thenstr3=str3+str2　　　　‘注EndIfNextiForm1.Printstr3EndSub问：若在文本框中输入字符串“A123b45C_de”，窗体中显示什么结果？。12345引申1：若把注语句改写成str3=str2+str3问结果如何？54321引申2：若要求显示结果为“AbCd

4、e”，则应如何修改程序？Ifstr2>="a"Andstr2<="z"Orstr2>="A"Andstr2<="Z"Thenstr3=str3+str2EndIf上机实践：调试运行以上程序，采用断点调试的方法查看程序执行的中间变量值，进一步加深对循环结构的理解。【练习5-4】计算下列表达式的值并打印，修改程序中所标识语句处的错误。程序PublicSubform_click()DimiAsInteger'******错误1*******DimkAsInteger‘修改为：DimkAsSingleDimsAsSingles=0'******

5、*错误2*******Fori=1To100‘修改为：Fori=1To100Step2k=1/is=s+k'*******错误3*******k=1/i+1‘修改为：k=1/(i+1)s=s-kNextIForm1.Print"s=";sEndSub上机实践：运用调试工具调试运行以上程序。s=.6881719【练习5-4】command1_click()过程用于判断一个字符串是否“回文”，所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”，运行界面如图5-4所示。请编程实现。图5-4运行界面分析解题的步骤是：先求原字符

6、串的逆串，再判断原字符串和逆串是否完全相同，若相同则结论为“是回文”否则“不是回文”。上机实践编写、运行、调试以上程序。PrivateSubForm_Load()Label1.Caption="源字符串："Label2.Caption="结论："Command1.Caption="判断"Command2.Caption="结束"EndSubPrivateSubCommand1_Click()DimsAsString,tAsStringDimiAsInteger,kAsIntegers=Text1.Textk=Len(s)Fori=1To

7、kt=Mid(s,i,1)+tNextiFori=1Tok2IfMid(s,i,1)<>Mid(t,i,1)ThenExitForNextiIfi>k2ThenLabel3.Caption="是回文！"ElseLabel3.Caption="不是回文！"EndIfEndSubPrivateSubCommand2_Click()EndEndSub【练习5-5】编程，求下述表达式的值，用Form_Click()事件过程来实现。PrivateSubForm_Click()DimiAsInteger,wAsDouble,yAsDoublew

8、=0y=0n=InputBox("输入n：")Fori=1Tony=1/i/(i+1)w=w+yNextiPrint“w=”;wEndSub上机实践：用form_click事件过程来实现，调试运行以上程序。