VB实验报告04

《VB实验报告04》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验四、分支结构程序设计学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求1.掌握单分支与双分支条件语句IF的使用。2.掌握多分支条件语句的使用。3.掌握情况语句SelectCase的使用及其与多分支条件语句的区别。二.实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。PrivateSubForm_Click()score=Val(InputBox("输入成绩"))Ifscore<60ThenPrint"不合格"

2、Ifscore>=60andscore<85ThenPrint"合格"Ifscore>=85ThenPrint"优秀"Endsub引伸1若把程序代码写成如下形式，画出它的流程图。问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？PrivateSubForm_Click()score=Val(InputBox("输入成绩"))Ifscore>=85Thenst="优秀"Ifscore<60Thenst=”不合格”Elsest="合格"EndIfPrintstEndSub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？

3、画出流程图。PrivateSubForm_Click()score=Val(InputBox("输入成绩"))Ifscore>=85ThenPrint"优秀"ElseIfscore>=60ThenPrint"合格"ElsePrint"不合格"EndIfEndSub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。【练习4-2】研究下面的代码段。DimflagAsInteger’注①DimfalgasIntegerPrivateSubForm_click()Ifflag=0ThenForm1.Print"欢迎使用Visua

4、lBasic!"flag=1ElseIfflag=1ThenForm1.Clsflag=0EndIfEndSub问题(1)在窗体上单击三下，窗体中显示什么结果？第一次：欢迎使用VisualBasic!第二次：第三次：欢迎使用VisualBasic!(2)注意变量flag定义的位置，在这个位置定义的变量称作整型变量。若把变量flag变量定义放在Form_click()事件过程里，如：PrivateSubForm_click()DimflagAsIntegerIfflag=0Then……在窗体上单击三下，此时程序的运行结果怎样？第一次：欢迎使用VisualBasic

5、!第二次：欢迎使用VisualBasic!第三次：欢迎使用VisualBasic!(3)若要求窗体显示的字体是隶书18号字，该如何补充程序？(4)若把程序代码修改如下,DimflagAsIntegerPrivateSubForm_click()Ifflag=0ThenForm1.Print"欢迎使用VisualBasic!":flag=1Ifflag=1ThenForm1.Cls:flag=0EndSub问出现什么结果，为什么？(5)若在Form_Click()事件过程中第一行的变量名flag拼写错了，写成了falg，如注①所示，则程序执行结果如何？为什么？【练

6、习4-3】根据所输入的百分制成绩score，给出相应的五级计分等级，即“优秀”(score>=90)，“良好”(80<=score<90)，“中”(70<=score<80)，“及格”(60<=score<70)，“不及格”(score<60)，用ElseIf语句完成，请把下面的程序填写完整。DimscoreAsIntegerPrivateSubForm_click()score=Val(InputBox("输入成绩"))Ifscore>=90thenPrint“优秀”ElseIfscore>=80then’补充ElseIf语句EndSub引伸若把上面的Else

7、If语句改写成块If语句，该如何补充完整。Ifscore>=90thenPrint“优秀”ElseIfscore>=80then……’补充块IF语句EndSub【练习4-4】根据所输入的百分制成绩score，给出相应的五级计分等级，用SelectCase语句完成。“’******错误1*******”提示信息的下一行是错误的，改正有错的语句并调试完成程序。PrivateSubCommand1_Click()Dimscoreassinglescore=val(Text1.Text)　’******错误1*******SelectCasex’******错误2***

8、****Casex>=9