实验四分支结构程序设计.docVIP

浙江大学城市学院实验报告 课程名称 VB程序设计基础 实验项目名称 结构程序设计 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求 二. 实验内容和原理 【练习-1】Private Sub Form_Click() score = Val(InputBox(输入成绩)) If score 60 Then Print 不合格 If score = 60 and score85 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）查看程序执行流程，进一步加深对分支结构的理解。 【练习-2】’注①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)在窗体上单击三下，窗体中显示什么结果？ (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!:flag=1 If flag = 1 Then Form1.Cls: flag = 0 End Sub 问出现什么结果，为什么？ (5)若在Form_Click()事件过程中第一行的变量名flag拼写错了，写成了falg，如注①所示，则程序执行结果如何？为什么？ 【练习-3】Dim score As Integer Private Sub Form_click() score = Val(InputBox(输入成绩)) If score=90 then Print “优秀” ElseIf score=80 then …… ’补充ElseIf语句 End Sub 引伸 若把上面的ElseIf语句改写成块If语句，该如何补充完整。 If score=90 then Print “优秀” Else If score=80 then …… ’补充块IF语句 End Sub 【练习-4】’****** 错误1 *******”提示信息的下一行是错误的，改正有错的语句并调试完成程序。 Private Sub