VB实验报告04.doc

浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验四、分支结构程序设计 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。2.掌握多分支条件语句的使用。3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。Private Sub Form_Click()score = Val(InputBox(输入成绩)If score = 60 and score= 85 Then Print 优秀End sub引伸1若把程序代码写成如下形式，画出它的流程图。问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？Private Sub Form_Click()score = Val(InputBox(输入成绩)If score = 85 Then st= 优秀If score = 85 Then Print 优秀ElseIf score = 60 ThenPrint 合格ElsePrint 不合格End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。【练习4-2】 研究下面的代码段。Dim flag As Integer注Dim falg as IntegerPrivate Sub Form_click()If flag = 0 ThenForm1.Print 欢迎使用Visual Basic!flag = 1ElseIf flag = 1 ThenForm1.Clsflag = 0End IfEnd Sub问题(1)在窗体上单击三下，窗体中显示什么结果？ 第一次：欢迎使用Visual Basic! 第二次： 第三次：欢迎使用Visual Basic! (2)注意变量flag定义的位置，在这个位置定义的变量称作 整型变量 。若把变量flag变量定义放在Form_click()事件过程里，如：Private Sub Form_click()Dim flag As IntegerIf flag = 0 Then 在窗体上单击三下，此时程序的运行结果怎样？ 第一次：欢迎使用Visual Basic! 第二次：欢迎使用Visual Basic! 第三次：欢迎使用Visual Basic! (3)若要求窗体显示的字体是隶书18号字，该如何补充程序？(4)若把程序代码修改如下,Dim flag As IntegerPrivate Sub Form_click()If flag = 0 Then Form1.Print 欢迎使用Visual Basic!:flag=1If flag = 1 Then Form1.Cls: flag = 0End Sub 问出现什么结果，为什么？(5)若在Form_Click()事件过程中第一行的变量名flag拼写错了，写成了falg，如注所示，则程序执行结果如何？为什么？ 【练习4-3】根据所输入的百分制成绩score，给出相应的五级计分等级，即“优秀” (score=90)，“良好”(80=score90)，“中”(70=score80)，“及格”(60=score70)，“不及格”(score=90 then Print “优秀”ElseIf score=80 then 补充ElseIf语句End Sub引伸若把上面的ElseIf语句改写成块If语句，该如何补充完整。If score=90 then Print “优秀”ElseIf score=80 then 补充块IF语句End Sub【练习4-4】根据所输入的百分制成绩score，给出相应的五级计分等级，用Select Case语句完成。“* 错误1 *”提示信息的下一行是错误的，改正有错的语句并调试完成程序。Private Sub Command1_Click() Dim score as single score = val(Text1.Text) * 错误1 * Select Case x * 错误2 * Case x = 90 Text2.Text = 优秀* 错误3 * Case x=80 Text2.Text = 良好 * 错误4 * Case x = 70 and x= 60 Text2.Text = 及格 Case else Text2.Text = 不及格 End SelectEnd Sub调试运行程序，运行界面参考图3-23。图3-23 练习三程序运行界面【练习4-5】编程，在窗体上循环输出字符串“欢迎使用Visual Basic”。第一次单击窗体时