《实验四、分支结构程序设计》由会员分享，可在线阅读，更多相关《实验四、分支结构程序设计（5页珍藏版）》请在金锄头文库上搜索。
1、浙江大学城市学院实验报告课程名称 VB 程序设计基础与实验 实验项目名称 实验四、分支结构程序设计 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1.掌握单分支与双分支条件语句 IF 的使用。2.掌握多分支条件语句的使用。3.掌握情况语句 Select Case 的使用及其与多分支条件语句的区别。二. 实验内容和原理【练习 4-1】研究下面的代码段，画程序流程图，当输入 93，81，74 ，65，42 时，写出窗体中显示的结果。Private Sub Form_Click()score = Val(InputBox(输入成绩)If score = 60 an
2、d 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）查看程序执行流程，进一步加深对分支结
3、构的理解。【练习 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)在窗体上单击三下，窗体中显示什么结果？ (2)注意变量 flag 定义的位置，在这个位置定义的变量称作 。若把变量flag 变量定义放在 Form_click()事件过程里，如：Private Sub For
4、m_click()Dim flag As IntegerIf flag = 0 Then在窗体上单击三下，此时程序的运行结果怎样？ (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
5、拼写错了，写成了falg，如注 所示，则程序执行结果如何？为什么？ 【练习 4-3】根据所输入的百分制成绩 score，给出相应的五级计分等级，即“优秀” (score=90)， “良好”(80=90 thenPrint “优秀”ElseIf score=80 then 补充 ElseIf 语句End Sub引伸若把上面的 ElseIf 语句改写成块 If 语句，该如何补充完整。If score=90 thenPrint “优秀”ElseIf score=80 then 补充块 IF 语句End Sub【练习 4-4】根据所输入的百分制成绩 score，给出相应的五级计分等级，用 Select
6、 Case 语句完成。 “* 错误 1 *”提示信息的下一行是错误的，改正有错的语句并调试完成程序。Private Sub Command1_Click()Dim score as singlescore = val(Text1.Text)* 错误 1 *Select Case x * 错误 2 *Case x = 90 Text2.Text = 优秀* 错误 3 *Case x=80Text2.Text = 良好 * 错误 4 *Case x = 70 and x= 60Text2.Text = 及格Case elseText2.Text = 不及格End SelectEnd Sub调试运行程序，运行界面参考图 3-23。图 3-23 练习三程序运行界面【练习 4-5】编程，在窗体上循环输出字符串 “欢迎使用 Visual Basic”。第一次单击窗体时以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示；第四次单击时则清除窗体上的信息；第五次又重新开始。引伸若要求依次单击窗体时，所显示字体的字号在原来基础上递增 5，该如何修改？ 三. 讨论、心得（必须做）
