实验五循环结构程序设计1.docVIP

PAGE  PAGE 3 浙江大学城市学院实验报告 课程名称 VB程序设计基础与实验 实验项目名称 实验五、循环结构程序设计1 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求 1．理解并掌握循环的基本作用。 2．掌握Do…Loop语句的形式和使用。 3．掌握For…Next语句的形式和使用。 4．掌握如何控制循环条件，防止死循环或不循环。 二. 实验内容和原理 【练习5-1】判断下面两个循环语句的循环体分别执行了多少次，程序执行完毕后变量s，i的值为多少？ 程序1 s=0 For i=1 To 10 step 1 s=s+1 Next i Print s,i 循环体执行了多少次？ 变量s的值： 变量i的值： 程序2 s=0 For i=1 To 10 step -1 s=s+1 Next i Print s,i 循环体执行了多少次？ 变量s的值： 变量i的值： P10041 S10041 【练习5-2】阅读下面的程序，回答问题。 Private Sub Form_Click() Dim Str1 As String, str2 As String, str3 As String ’str1为原字符串，str2存放临时字符，str3为目标字符串 Str1 = Text1.Text str2 = str3 = n = Len(Str1) For i = 1 To n str2 = Mid(Str1, i, 1) If str2 = 0 And str2 = 9 Then str3 = str3 + str2　　　　 ’注① End If Next i Form1.Print str3 End Sub 问：若在文本框中输入字符串“A123b45C_de”，窗体中显示什么结果？。 引申1：若把注①语句改写成str3= str2 + str3问结果如何？ 引申2：若要求显示结果为“AbCde”，则应如何修改程序？ 调试运行以上程序，采用断点调试的方法查看程序执行的中间变量值，进一步加深对循环结构的理解。 【练习5-3】计算下列表达式的值并打印，修改程序中所标识语句处的错误。“’****** 错误1 *******”提示信息的下一行是错误的，改正有错的语句并调试完成程序。 Public Sub form_click() Dim i As Integer ’****** 错误1 ******* Dim k As Integer Dim s As Single s = 0 ’******* 错误2 ******* For i = 1 To 100 k = 1 / i s = s + k ’******* 错误3 ******* k = 1 / i + 1 s = s - k Next I Form1.Print s=; s End Sub 【练习5-4】Command1_click()过程用于判断一个字符串是否为“回文”，所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”，运行界面如图3-24所示。请编程实现。 图3-24　练习5运行界面 【练习5-5】编程，求下述表达式的值，用Form_Click()事件过程来实现。 三. 讨论、心得（必须做）