实验四、分支结构程序设计

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

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

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

一. 实验目的和要求

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

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

二. 实验内容和原理

【练习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 引伸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

If flag = 0 Then

Form1.Print \欢迎使用Visual Basic!\flag = 1

’注①Dim falg as Integer

Private Sub Form_click()

ElseIf flag = 1 Then

Form1.Cls flag = 0

End If End Sub 问题

(1)在窗体上单击三下，窗体中显示什么结果？ (2)注意变量flag定义的位置，在这个位置定义的变量称作 。若把变量flag变量定义放在Form_click()事件过程里，如：

Private Sub Form_click() Dim flag As Integer If flag = 0 Then

……

在窗体上单击三下，此时程序的运行结果怎样？ (3)若要求窗体显示的字体是隶书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，如注①所示，则程序执行结果如何？为什么？

【练习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

?? End Sub 引伸

若把上面的ElseIf语句改写成块If语句，该如何补充完整。 If score>=90 then

Print “优秀” Else

If score>=80 then

?? End Sub

’补充块IF语句 ’补充ElseIf语句

【练习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<90 and x>=80

Text2.Text = \良好\

’****** 错误4 *******

Case x >= 70 and x<80

Text2.Text = \中\

’****** 错误5 *******

Case x >= 60

Text2.Text = \及格\ Case else

Text2.Text = \不及格\ End Select End Sub

调试运行程序，运行界面参考图3-23。

图3-23 练习三程序运行界面

【练习4-5】编程，在窗体上循环输出字符串“欢迎使用Visual Basic”。第一次单击窗体时以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示；第四次单击时则清除窗体上的信息；第五次又重新开始。

引伸

若要求依次单击窗体时，所显示字体的字号在原来基础上递增5，该如何修改？

三. 讨论、心得（必须做）

本文来源：https://www.bwwdw.com/article/99bh.html