VB实验报告（电子版 题目及答案）

浙江大学城市学院实验报告

课程名称 VB程序设计基础实验

实验项目名称 实验四、 分支结构程序设计 学生姓名 专业班级 学号

实验成绩 指导老师（签名 ） 日期

一. 实验目的和要求

1. 掌握单分支与双分支条件语句IF的使用。 2. 掌握多分支条件语句的使用。

3. 掌握情况语句Select Case的使用及其与多分支条件语句的区别。

二. 实验内容和原理

1）将窗体文件“4-1.Frm” 和 工程文件“4-1.Vbp”上传到老师的ftp服务器上的

”周三下午” 或 ”周四下午” 或 ”周五下午” 你的文件夹中。 如：“30908888传媒0901张三”.

2）练习4-2，4-3，4-4，4-5，4-6 也同样将窗体文件和工程文件上传到老师的ftp 服务器上。

【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。

Private Sub Form_Click()

score = Val(InputBox(\输入成绩\If score < 60 Then Print \不合格\

If score >= 60 and score<85 Then Print \合格\If score >= 85 Then Print \优秀\End sub

流程图： 结果： 优秀

合格

合格

引伸1

若把程序代码写成如下形式，画出它的流程图。问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？ Private Sub Form_Click()

score = Val(InputBox(\输入成绩\If score >= 85 Then st= \优秀\If score < 60 Then st=” 不合格” Else

st=\合格\End If Print st End Sub 流程图：

结果：

为什么？ 用嵌套块If语句修改：

引伸2

若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。 Private Sub Form_Click()

score = Val(InputBox(\输入成绩\

If score >= 85 Then

Print \优秀\

ElseIf score >= 60 Then

Print \合格\Else

Print \不合格\End If End Sub 流程图：

结果：

优秀

合格

不合格

上机实践

调试运行以上程序，采用单步跟踪的方法(按F8)查看程序执行流程，进一步加深对分支结构的理解。

【练习4-2】研究下面的代码段。

Dim flag As Integer ?注1 Dim falg as Integer Private Sub Form_click() If flag = 0 Then

Form1.Print \欢迎使用Visual Basic!\

flag = 1

ElseIf flag = 1 Then Form1.Cls flag = 0 End If End Sub 提问：

1．当在窗体上单击三下，窗体中显示什么结果？ 欢迎使用Visual Basic! 2．注意变量flag定义的位置，为何这样定义？ 若把变量flag定义放在Form_click()事件过程里，如： Private Sub Form_click()

Dim flag As Integer If flag = 0 Then ……

在窗体上单击三下，此时程序的运行结果怎样？ 欢迎使用Visual Basic! 3．若要求窗体显示的字体是隶书18号字，则如何补充程序？

FontName=“隶书” FontSize=18 4．若把程序代码修改如下。 Dim flag As Integer

Private Sub Form_click()

If flag = 0 Then Form1.Print \欢迎使用Visual Basic!\If flag = 1 Then Form1.Cls: flag = 0 End Sub

问出现什么结果，为什么？

屏幕上无显示 5．若在Form_Click()事件过程中第一行的变量名Flag拼写错了，写成了Falg，如注1所示，则程序执行结果如何？为什么？

单击第一下： 欢迎使用Visual Basic! 单击第二下： 欢迎使用Visual Basic! 单击第三下： 欢迎使用Visual Basic!

上机实践

调试运行以上程序。

【练习4-3】根据所输入的百分制成绩score，给出相应的五级计分等级，即“优秀” (score>=90)，“良好”(80<=score<90)，“中”(70<=score<80)，“及格”(60<=score<70)，“不及格”(score<60)， 用块ElseIf语句完成，请把下面的程序填写完整。 Dim score As Integer Private Sub Form_click()

score = Val(InputBox(\输入成绩\If score>=90 then Print “优秀”

Elseif score>=80 then

Print \良好\ElseIf score >= 70 Then Print \中\

ElseIf score >= 60 Then Print \及格\Else

Print \不及格\End If

?补充ElseIf语句 End Sub