第五章Visual Basic程序设计
- 格式：ppt
- 大小：1.03 MB
- 文档页数：67
文档推荐
-
VisualBasic程序设计_0004页数:5
-
8966 VisualBasic程序设计页数:150
-
VisualBasic程序设计作业题解页数:29
下载文档原格式
合集下载
Visual Basic 6.0程序设计教程第5章 过程与函数
5.2 Sub过程
例5.1 编一个交换两个整型变量值的子过程。
Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X : X=Y : Y=Temp End Sub Private Sub command1_click() Dim a%,b% a=val(inputbox(“a=“)) b=val(inputbox(“b=“)) print “a=“;a,”b=“,b call swap(a,b) print “a=“;a,”b=“,b End Sub
5.2.2 通用过程（Sub过程）的定义
子过程的定义形式如下： [Public|Private][Static] Sub 子过程名([形参表])
<局部变量或常数定义> ＜语句组＞ [Exit Sub]
＜语句组＞ End Sub
说明：（1）子过程名：命名规则与变量名规则相同。
子过程名不返回值，而是通过形参与实参的传递得到结果， 调用时可返回多个值。
（2）在函数体内，函数名可以当变量使用，函数的返回值 就是通过对函数名的赋值语句来实现的，在函数过程中至少要 对函数名赋值一次。 （3）AS类型：是指函数返回值的类型，若省略，则函数返 回变体类型值（Variant）。
（4）Exit Function：表示退出函数过程，常常是与选择结 构（If或Select Case语句）联用，即当满足一定条件时，退出 函数过程。 （5）形参数列表：形参的定义与子过程完全相同。 例5.2
第六章 过ห้องสมุดไป่ตู้与函数
本章要求：
掌握Sub子程序和Function函数过程的定义和调 用方法； 掌握传址和传值两种参数传递方式的区别及其 用途； 熟悉数组参数的使用方法； 了解过程的嵌套调用和递归调用的执行过程； 掌握过程作用域的有关概念； 掌握变量的作用域和生存期
Visual Basic 程序设计
Visual Basic 程序设计
1、引言
介绍本文档的目的、范围和定义。
2、系统概述
描述系统的主要功能、目标受众和使用环境。
3、系统架构
详细说明系统的整体架构，包括主要模块、子系统和各模块之间的关系。
4、数据库设计
说明系统所使用的数据库结构，包括各数据表的字段和关系。
5、用户界面设计
展示系统的界面设计，包括主要窗体、菜单、按钮和输入控制等。
6、功能设计
根据系统需求，详细描述每个功能模块的设计和实现方式。
7、性能优化
介绍系统的性能优化策略和方法，包括代码优化、数据库索引和缓存等。
8、安全设计
说明系统的安全设计措施，包括用户认证、权限管理和数据加密等。
9、测试计划
列出系统的测试目标、测试用例和测试环境，以及测试进度和责任人。
10、维护与支持
描述系统的维护和支持策略，包括错误修复、功能更新和用户培训等。
11、附录
附上系统相关的文档、代码示例和其他参考资料。
本文档涉及附件：
附件1、数据库设计文档
附件2、界面设计图纸
附件3、测试用例表格
本文所涉及的法律名词及注释：
- 版权：在文档中提及的原创作品享有的法定权利。
- 许可证：授予他人使用软件或技术的权利的文件。
- 法律责任：依法对违反法律规定的行为承担的责任。
《VB程序设计》课程标准
课程标准课程名称：Visual Basic程序设计学时学分：160（2）专业层次：微机制订日期：2012年9月归口单位：计算机工程系制订人：Visual Basic程序设计是一个理论和实际紧密相连的技术，上机实验是教学中的必要环节。
现提出一套可行的“Visual Basic程序设计”课程的课程标准。
1 课程概述●课程研究的对象和研究内容随着计算机的普及和以Internet为代表的信息高速公路的迅速发展，计算机应用已深入到社会的各行各业，这不仅要求当今的大学生要掌握好本专业知识，同时还要有用计算机技术为本专业服务的能力。
因此熟练掌握一种计算机应用软件开发工具是对大学生的基本要求，这将直接影响到计算机在其他专业领域中的应用。
本课程所讲授的Visual Basic即是一种易学实用、适用面广的面向对象的软件开发平台。
VB程序设计课程可以使学生掌握软件设计的基础知识和基本方法，培养学生具有利用软件开发环境解决实际问题的能力，为进一步学习其它计算机知识及今后使用或开发应用程序奠定基础。
●课程在整个课程体系中的地位“Visual Basic程序设计”属于计算机基础教育课程的三个层次“文化、技术、应用”中的第二层次，是微机高职专业学生必修的计算机技术基础课程。
它的先修课是《信息技术基础》。
2. 课程目标（1）使学生理解程序设计的基本概念，建立起程序设计的基本思路，提高学生的理论知识水平。
主要包括了算法的概念、程序设计中的基本技巧和一些常用算法；能够阅读、理解源程序和设计解题流程的能力；了解结构化程序设计和面向对象程序设计的思想，能编制出风格良好的程序；最后达到使用Visual Basic 建立一个小型的应用系统的目的。
（2）使学生掌握基本的程序设计的技术和方法，培养学生的实际动手能力。
这些技术和方法包括算法的设计，程序的实现，能够使用Visual Basic建立一个小型的应用系统。
（3）使学生了解程序设计在本专业的应用、发展及其趋势，培养学生的科研素质。
visual_Basic程序设计教程_课后习题答案及练习
第三章 VB基本语言
一、填空题
1、一般可以使用__________关键字声明常量。
2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种
数据类型。
3、变量的声明分为两种方法：__________和____________。 4、在VB中，用___________________语句设定数组的下界，用_____________ 和__________________语句分别返回数组的上、下界。 5、在代码模块中加入Option Explicit的目的是 _____________________。 6、function aa (a1 as date,optional a2 as boolean) as single，写出optional 命令的作用__________________。 7、在VB中，我们用一个简单的______语句就能实现退出程序。 8、生成消息框的命令是____________，生成输入框的命令是 ____________。 9、通用对话框（commondialog）属activex控件，它可以显示多个标准 对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文 件，则应设置其属性filter=____________，若要使它显示为打印对话 框，则应使用什么方法____________。 10、从字符串中任意位置截取字符的函数是__________。 11、语句For j = 3 To 20 Step 3 使循环体执行了______次。 12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应
二、选择题
1、下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2、可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（ ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（ ） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（ ） A．可视化 B．面向对象 C．面向图形 D．事件驱动
visualbasic程序设计教程第四版刘炳文编著清华大学
visualbasic程序设计教程第四版刘炳文编著清华大学Visual Basic程序设计教程第四版本教程为清华大学刘炳文编著的Visual Basic程序设计教程第四版。
无论你是初学者还是有一定编程基础的学习者，本教程都将帮助你从基础到进阶，全面掌握Visual Basic的程序设计技巧和开发应用。
第一章：入门指引在本章中，我们将介绍Visual Basic的起源、特点和应用领域。
同时，我们还会讲解如何搭建Visual Basic的开发环境，并带你完成第一个简单的程序。
第二章：基本语法本章将详细讲解Visual Basic的基本语法，包括变量、数据类型、运算符、控制结构等。
通过学习这些基本知识，你将能够编写简单的程序逻辑和实现基本的算法。
第三章：界面设计好的界面设计是一个成功程序的关键。
在本章中，我们将介绍Visual Basic强大的界面设计工具，如窗体、按钮、文本框、标签等，帮助你创建美观、易用的用户界面。
第四章：事件处理在本章中，我们将学习如何处理各种用户事件，如点击按钮、输入文本等。
你将了解到事件处理程序的编写方法，以实现程序对用户操作的响应。
第五章：文件操作现实生活中，我们常常需要读取、写入文件来保存和处理数据。
通过学习本章内容，你将学会使用Visual Basic进行文件的读写操作，充分利用计算机来处理大量的数据。
第六章：数据库操作本章将介绍如何使用Visual Basic进行数据库的操作，包括连接数据库、查询数据、插入、更新、删除等。
数据库是现代软件开发的核心技术之一，掌握这些知识将使你在实际开发中更加得心应手。
第七章：高级主题在本章中，我们将介绍一些更高级的主题，如面向对象编程、异常处理、多线程编程等。
这些主题将帮助你进一步提升程序的效率和质量。
第八章：实例项目在本章中，我们将通过一个实例项目来综合运用前面学到的知识。
你将亲自动手完成一个小型的实际项目，从而巩固所学知识。
第九章：其他资源在本章中，我们将介绍一些其他相关资源，如学习网站、论坛、参考书籍等，帮助你继续深入学习和不断提升。
Visual Basic 程序设计
Visual Basic 程序设计简介Visual Basic（缩写为VB）是一种事件驱动的、面向对象的编程语言，由微软公司开发。
它是一种易于学习和使用的语言，广泛应用于Windows操作系统上的应用程序开发。
本文将介绍Visual Basic的基础知识和常用的程序设计技巧。
Visual Basic的特点Visual Basic是一种高级语言，具有易于理解和编写的特点，适合初学者入门。
Visual Basic使用直观的图形用户界面（GUI），使开发者能够快速创建交互式的Windows应用程序。
Visual Basic支持对象模型，可以通过创建和使用对象来组织代码和实现复杂的功能。
Visual Basic具有丰富的开发工具和库，可以大大减少开发时间和工作量。
程序结构一个Visual Basic程序由一系列语句和模块组成。
每个语句都有特定的作用，可以实现不同的功能。
以下是一个简单的Visual Basic程序的结构：vbImports SystemModule ProgramSub Mn()' 在这里编写主程序代码End SubEnd Module程序从`Imports System`语句开始，该语句导入了`System`命名空间，让我们可以使用其中的类和方法。
`Module Program`定义了一个模块，模块是一个可执行的代码单元，可以包含多个子程序（也称为方法）。
`Sub Mn()`是程序的入口点，程序从这里开始执行。
变量和数据类型在Visual Basic中，我们可以声明和使用不同类型的变量来存储和操作数据。
以下是常用的数据类型：Integer：表示整数。
Double：表示浮点数（双精度）。
Char：表示单个字符。
String：表示字符串。
Boolean：表示布尔值（True或False）。
声明变量可以使用`Dim`关键字，例如：vbDim age As Integerage = 20控制流程程序的执行流程可以通过控制流程语句来控制，例如条件语句和循环语句。
visualbasic程序设计知识点
visualbasic程序设计知识点Visual Basic程序设计知识点Visual Basic（VB）是一种基于事件驱动的编程语言，主要用于开发Windows应用程序。
本文将介绍一些Visual Basic程序设计的基础知识点。
以下是一些关键概念和技术，以帮助您了解和应用Visual Basic 程序设计。
1. Visual Basic简介- Visual Basic的历史和发展- Visual Basic的特点和优势- Visual Basic的应用领域2. 开发环境与工具- Visual Studio集成开发环境（IDE）- Visual Basic的版本和不同的开发工具3. 数据类型和变量- 整型、浮点型、布尔型等基本数据类型- 字符串类型和字符处理- 数组和集合类型4. 运算符和表达式- 算术运算符和逻辑运算符 - 条件表达式和比较运算符 - 逻辑控制语句和流程控制5. 函数和子程序- 自定义函数和过程- 参数传递和返回值- 递归函数和嵌套过程6. 对象和类- 对象的概念和属性- 类的定义和实例化- 类的继承和多态性7. 用户界面设计- 窗体和控件的基本概念- 用户界面的设计原则和实践 - 事件处理和交互操作8. 文件和数据操作- 文件的读写和操作- 数据库连接和操作- 文件和数据的异常处理9. 错误处理和调试- 异常处理和错误捕获- 调试技巧和工具- 日志记录和错误报告10. 高级话题与扩展- 多线程和异步编程- 网络通信和远程调用- 组件和库的使用总结：本文介绍了Visual Basic（VB）程序设计的一些基础知识点。
通过学习这些知识，您将能够使用VB开发Windows应用程序，并具备进一步深入学习和应用的基础。
希望本文对您的VB程序设计学习有所帮助。
visual basic程序设计
visual basic程序设计
visual basic程序设计
Visual Basic程序设计是一门针对微软公司的Visual Basic技术开发的语言，它是一种具有可视化特性的面向对象的程序设计语言，可被应用于窗口应用程序开发，Web应用程序开发，服务器应用程序开发，移动应用程序开发等方面。
Visual Basic程序设计语言允许开发者使用可视化拖放编程技术，快速构建复杂的程序，而无需熟悉底层的编程语言。
Visual Basic程序设计主要包括3个基本组件：窗体，控件和语句。
窗体是应用程序的主要部分，它可以显示图片、文本和其他内容；控件是可以在窗体上显示的活动元素，如按钮、文本框、列表等；语句是程序中的基本部分，它指示程序应该怎样执行，并可以控制代码的执行顺序。
Visual Basic程序设计的最大优势是可视化编程，即使没有编程经验也可以创建复杂的应用程序，因为它可以用可视化的方式显示程序的运行过程，使开发者可以清楚地了解到程序的执行过程，并可以轻松地更改程序的运行逻辑。
此外，Visual Basic程序设计也具有多种程序可用性，可以跨不同的操作系统平台，如Windows，Linux和MacOS。
另外，它还支持多种数据库系统，可以让开发者轻松访问和管理数据。
总之，Visual Basic程序设计是一种强大而功能强大的编程语言，可以让开发者快速开发复杂的应用程序，而无需熟悉底层编程语言。
因
此，它是一个理想的选择，可以帮助开发者快速和有效地实现客户的要求。
Visual Basic程序设计实用教程第五章
Visual Basic 程序设计 实用教程
2013-6-28
VB程序设计
1
第5章 菜单和对话框
菜单、对话框是一类特殊的控件， 菜单按应用分为下拉式菜单和弹出式菜 单两种；对话框可以分为固定格式的对 话框、用户自定义对话框和通用对话框。
2013-6-28
VB程序设计
2
第5章 菜单和对话框
5.1 5.2 5.3 下拉式菜单的设计 弹出式菜单 对话框
为通用级变量，在整个窗体中该类变量有效 '清除菜单对应的代码
Private Sub m11_Click() Text1.SetFocus '设置文本框一为当前鼠标的焦点 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" '退出菜单对应的代码 Text7.Text = "" Private Sub m12_Click() Text8.Text = "" End Text9.Text = "" End Sub End Sub
2013-6-28
VB程序设计
14
5.1 下拉式菜单
【例5-1】一个界面包含三个下拉菜单和一 个标签框，完成功能：选择菜单项中对应 的前景与背景颜色可以修改标签框中的字 体与背景颜色；子菜单中设置“还原”项 用来恢复标签框的初始颜色；利用子菜单 中“退出”项用来退出程序。
演示
2013-6-28 VB程序设计 15
请在数学、物理、语文、化学、外语、生 物栏中输入学生的成绩，然后选择“查询 数据”下拉菜单中的“统计成绩”选项。 若选择“输入数据”下拉菜单中的“清除” 项，将重新开始操作。
2013-6-28
VB程序设计
1
第5章 菜单和对话框
菜单、对话框是一类特殊的控件， 菜单按应用分为下拉式菜单和弹出式菜 单两种；对话框可以分为固定格式的对 话框、用户自定义对话框和通用对话框。
2013-6-28
VB程序设计
2
第5章 菜单和对话框
5.1 5.2 5.3 下拉式菜单的设计 弹出式菜单 对话框
为通用级变量，在整个窗体中该类变量有效 '清除菜单对应的代码
Private Sub m11_Click() Text1.SetFocus '设置文本框一为当前鼠标的焦点 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" '退出菜单对应的代码 Text7.Text = "" Private Sub m12_Click() Text8.Text = "" End Text9.Text = "" End Sub End Sub
2013-6-28
VB程序设计
14
5.1 下拉式菜单
【例5-1】一个界面包含三个下拉菜单和一 个标签框，完成功能：选择菜单项中对应 的前景与背景颜色可以修改标签框中的字 体与背景颜色；子菜单中设置“还原”项 用来恢复标签框的初始颜色；利用子菜单 中“退出”项用来退出程序。
演示
2013-6-28 VB程序设计 15
请在数学、物理、语文、化学、外语、生 物栏中输入学生的成绩，然后选择“查询 数据”下拉菜单中的“统计成绩”选项。 若选择“输入数据”下拉菜单中的“清除” 项，将重新开始操作。
Visual Basic 程序设计
Visual Basic 程序设计Visual Basic 程序设计文档范本1.简介1.1 目的1.2 背景1.3 目标受众2.安装和配置环境2.1 和安装 Visual Basic2.2 设置开发环境2.3 配置第三方工具和插件3.程序基础3.1 Visual Basic 的基本语法3.2 变量和数据类型3.3 控制流和循环3.4 函数和子程序3.5 错误处理4.用户界面设计4.1 使用窗体设计器4.2 添加控件和布局4.3 设置控件属性4.4 响应用户事件4.5 实现用户输入和输出5.数据库操作5.1 连接到数据库5.2 创建数据库表5.3 查询和过滤数据5.4 插入、更新和删除数据5.5 数据库事务处理6.文件操作6.1 读取和写入文本文件 6.2 读取和写入二进制文件 6.3 文件和文件夹操作6.4 错误处理和异常情况7.网络编程7.1 创建网络连接7.2 通过网络发送和接收数据 7.3 实现客户端和服务器7.4 使用 HTTP 和 Web API8.测试和调试8.1 单元测试8.2 调试工具和技巧8.3 性能调优和内存管理8.4 错误日志记录9.发布和部署9.1 编译和打包应用程序9.2 创建安装程序9.3 部署到不同平台和环境 9.4 更新和升级应用程序附件：________在本文档中涉及到的示例代码、演示视频等附件，请参考附件文件。
法律名词及注释：________1.版权：________指对创作性作品的独占控制权，包括复制、分发、展示和修改等权利。
2.许可证：________法律授权证书，规定了其他人对著作的使用方式和限制条件。
3.开源：________指软件源代码向公众开放，允许他人查看、修改和分发的许可。
4.商标：________法律保护下的标识，用于区分产品或服务提供者。
5.法律责任：________依法需要承担的法律后果，如违反软件许可协议可能面临民事诉讼。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
– Case 60 To 100
河北理工大学理学院
5.2 选择结构
• 4）Is <关系表达式> 当“变量或表达式”的值满足“关系表达式”指定条件时，执 行该Case子句中的语句块。
– Case Is < 60
说明：
• 1、“变量或表达式”的值与“表达式表列”的值均不匹配的 时候，执行case else 子句。
Print strC + "是字母字符" Case "0" To "9" Print strC + "是数字字符" Case Else
Print strC + “是其它字符"
End Select
河北理工大学理学院
5.2 选择结构
例5.5(补) 已知坐标点(x，y)，判断其落在哪个 象限。
方法一 方法二 If x > 0 And y >0 Then Select Case x,y Case x > 0 And y > 0 Print "在第一象限" Print "在第一象限" ElseIf x < 0 And y > 0 Then Case x < 0 And y > 0 Print "在第二象限" Print "在第二象限" ElseIf x < 0 And y < 0 Then Case x < 0 And y < 0 Print "在第三象限" Print "在第三象限" ElseIf x > 0 And y <0 Then Case x > 0 And y <0 Print "在第四象限" Print "在第四象限" End If End Select
• 2、“变量或表达式”可以是数值表达式或字符串表达式。 • 3、Case子句可以是一行或多行语句。 • 4、“表达式表列”中的表达式必须与“变量或表达式”的类 型一致。
河北理工大学理学院
5.2 选择结构
例5.4(补) 变量strC中存放了一个字符，判断该 字符类型。
用多分支结构实现：
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符"
河北理工大学理学院
5.1 算法及其描述
基本的循环结构有两种：当循环和直到循环。
• 当循环：首先判断条件是否成立，若成立，执行循环体再判断 条件，决定是否继续进行循环；若不成立，跳过这组操作，执 行此循环结构后面的操作。 • 直到循环：首先执行循环体，然后判断条件是否成立，若成立， 则继续进行循环操作；若不成立，执行此循环结构后面的操作。
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9" Then Print strC + "是数字字符"
Else
Print strC + “是其它字符" End If
不管有几个分支，依次判断，当某条件满足，执行相应的语句，其 余分支不再执行；若条件都不满足，且有Else子句，则执行该语句 块，否则什么也不执行。
ElseIf不能写成 Else If。
河北理工大学理学院
5.2 选择结构
例5.2(补) 已知百分制成绩mark，显示对应的五级制 成绩。哪些正确，哪些错误？
重要的是学会两个数的交换Fra bibliotek若上述语句次序 变一下，结果如何？
河北理工大学理学院
5.2 选择结构
2. If…Then…Else语句(双分支结构) If <表达式> Then
<语句块1>
Else
<语句块2>
End If 或If <表达式> Then <语句1> Else <语句2> 例：文字移动
• 书写锯齿型 • If 与End If配对。
T x 与 y 交换 x >y y<z T y 与 z 交换 z 为最小数 F F x >y>z
x< y
T x 与 y 交换 使得 x >y
河北理工大学理学院
5.2 选择结构
5. Select Case语句(情况语句) Select Case 变量或表达式 Case 表达式列表1
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
河北理工大学理学院
5.2 选择结构
哪个能实现，哪个不能实现？ 方法二代码错误：
• 1. Select Case 后不能出现多个变量；
• 2. Case后不能出现变量及有关运算符。
例5.6 商店售货，按购买货物的多少分别给予 不同优惠折扣如下:编程计算购物款数。购物不 足250元，无折扣，购物满250元、不足500元， 减价5%，购物满500元、不足1000元，减价 7.5%，购物满1000元、不足2000元，减价 10%，购物满2000元，减价15%。
语句块1
Case 表达式列表2 语句块2
数值型或字符串表达式
…
[Case Else 语句块n+1] End Select
功能：根据“变量或表达式”的值，从多个语句块中 选择符合条件的一个语句块执行。
河北理工大学理学院
5.2 选择结构
<表达式列表>：与<变量或表达式>同类型的下面四种 形式之一：
5.2 选择结构
6. 条件函数 （1）IIf函数形式是：
IIf（表达式，当表达式为True时的值，当表达式 为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句 如下：
Tmax=IIf（x > y，x，y）
河北理工大学理学院
河北理工大学理学院
5.2 选择结构
分析:设购物款为m， 折扣为d，以上规定 可表示如下：
0
5% d= 7.5% 10%
Select Case m Case Is < 250 d=0 Case Is < 500 d = 0.05 Case Is < 1000 d = 0.075 Case Is < 2000
Text1.Text = Str(m)
Text2.Text = Str(d) Text3.Text = Str(m * (1 - d)) End Sub
河北理工大学理学院
5.2 选择结构
Private Sub Command2_Click() End End Sub 运行结果如下：
河北理工大学理学院
x0 x0
河北理工大学理学院
5.2 选择结构
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then
<语句块1>
ElseIf <表达式2>Then <语句块2> … [Else
语句块 n+1 ]
End If
河北理工大学理学院
5.2 选择结构
例5.1(补) 已知变量strC中存放了一个字符，判断该字符 是字母字符、数字字符还是其它字符。
• 1） <表达式>
– Case “A”
• 2）<表达式1>[,<表达式2>]…… 当“变量或表达式”的值与其中之一相同，就执行该Case子 句中的语句块。
– 即一组枚举表达式(用逗号分隔) Case 2,4,6,8
• 3）<表达式1> To <表达式2>
当“变量或表达式”的值落在表达式1和表达式2之间（含自 身），则执行该Case子句中的语句块。表达式1<表达式2。
或
If <表达式> Then <语句>
例:输入三个数，输出其中最大值。
河北理工大学理学院
5.2 选择结构
例：已知两个数x和y，比较它们的大小，使得 x大于y.
河北理工大学理学院
5.2 选择结构
• 4）Is <关系表达式> 当“变量或表达式”的值满足“关系表达式”指定条件时，执 行该Case子句中的语句块。
– Case Is < 60
说明：
• 1、“变量或表达式”的值与“表达式表列”的值均不匹配的 时候，执行case else 子句。
Print strC + "是字母字符" Case "0" To "9" Print strC + "是数字字符" Case Else
Print strC + “是其它字符"
End Select
河北理工大学理学院
5.2 选择结构
例5.5(补) 已知坐标点(x，y)，判断其落在哪个 象限。
方法一 方法二 If x > 0 And y >0 Then Select Case x,y Case x > 0 And y > 0 Print "在第一象限" Print "在第一象限" ElseIf x < 0 And y > 0 Then Case x < 0 And y > 0 Print "在第二象限" Print "在第二象限" ElseIf x < 0 And y < 0 Then Case x < 0 And y < 0 Print "在第三象限" Print "在第三象限" ElseIf x > 0 And y <0 Then Case x > 0 And y <0 Print "在第四象限" Print "在第四象限" End If End Select
• 2、“变量或表达式”可以是数值表达式或字符串表达式。 • 3、Case子句可以是一行或多行语句。 • 4、“表达式表列”中的表达式必须与“变量或表达式”的类 型一致。
河北理工大学理学院
5.2 选择结构
例5.4(补) 变量strC中存放了一个字符，判断该 字符类型。
用多分支结构实现：
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符"
河北理工大学理学院
5.1 算法及其描述
基本的循环结构有两种：当循环和直到循环。
• 当循环：首先判断条件是否成立，若成立，执行循环体再判断 条件，决定是否继续进行循环；若不成立，跳过这组操作，执 行此循环结构后面的操作。 • 直到循环：首先执行循环体，然后判断条件是否成立，若成立， 则继续进行循环操作；若不成立，执行此循环结构后面的操作。
If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9" Then Print strC + "是数字字符"
Else
Print strC + “是其它字符" End If
不管有几个分支，依次判断，当某条件满足，执行相应的语句，其 余分支不再执行；若条件都不满足，且有Else子句，则执行该语句 块，否则什么也不执行。
ElseIf不能写成 Else If。
河北理工大学理学院
5.2 选择结构
例5.2(补) 已知百分制成绩mark，显示对应的五级制 成绩。哪些正确，哪些错误？
重要的是学会两个数的交换Fra bibliotek若上述语句次序 变一下，结果如何？
河北理工大学理学院
5.2 选择结构
2. If…Then…Else语句(双分支结构) If <表达式> Then
<语句块1>
Else
<语句块2>
End If 或If <表达式> Then <语句1> Else <语句2> 例：文字移动
• 书写锯齿型 • If 与End If配对。
T x 与 y 交换 x >y y<z T y 与 z 交换 z 为最小数 F F x >y>z
x< y
T x 与 y 交换 使得 x >y
河北理工大学理学院
5.2 选择结构
5. Select Case语句(情况语句) Select Case 变量或表达式 Case 表达式列表1
方法一 方法二 If mark >= 90 Then If mark < 60 Then Print "优" Print "不及格" ElseIf mark >= 80 Then ElseIf mark < 70 Then Print "良" Print "及格" ElseIf mark >= 70 Then ElseIf mark < 80 Then Print "中" Print "中" ElseIf mark >= 60 Then ElseIf mark < 90 Then Print "及格" Print "良" Else Else Print "不及格" Print "优" End If End If 方法三 If mark >= 60 Then Print "及格" ElseIf mark >= 70 Then Print "中" ElseIf mark >= 80 Then Print "良" ElseIf mark >= 90 Then Print "优" Else Print "不及格" End If
河北理工大学理学院
5.2 选择结构
哪个能实现，哪个不能实现？ 方法二代码错误：
• 1. Select Case 后不能出现多个变量；
• 2. Case后不能出现变量及有关运算符。
例5.6 商店售货，按购买货物的多少分别给予 不同优惠折扣如下:编程计算购物款数。购物不 足250元，无折扣，购物满250元、不足500元， 减价5%，购物满500元、不足1000元，减价 7.5%，购物满1000元、不足2000元，减价 10%，购物满2000元，减价15%。
语句块1
Case 表达式列表2 语句块2
数值型或字符串表达式
…
[Case Else 语句块n+1] End Select
功能：根据“变量或表达式”的值，从多个语句块中 选择符合条件的一个语句块执行。
河北理工大学理学院
5.2 选择结构
<表达式列表>：与<变量或表达式>同类型的下面四种 形式之一：
5.2 选择结构
6. 条件函数 （1）IIf函数形式是：
IIf（表达式，当表达式为True时的值，当表达式 为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句 如下：
Tmax=IIf（x > y，x，y）
河北理工大学理学院
河北理工大学理学院
5.2 选择结构
分析:设购物款为m， 折扣为d，以上规定 可表示如下：
0
5% d= 7.5% 10%
Select Case m Case Is < 250 d=0 Case Is < 500 d = 0.05 Case Is < 1000 d = 0.075 Case Is < 2000
Text1.Text = Str(m)
Text2.Text = Str(d) Text3.Text = Str(m * (1 - d)) End Sub
河北理工大学理学院
5.2 选择结构
Private Sub Command2_Click() End End Sub 运行结果如下：
河北理工大学理学院
x0 x0
河北理工大学理学院
5.2 选择结构
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then
<语句块1>
ElseIf <表达式2>Then <语句块2> … [Else
语句块 n+1 ]
End If
河北理工大学理学院
5.2 选择结构
例5.1(补) 已知变量strC中存放了一个字符，判断该字符 是字母字符、数字字符还是其它字符。
• 1） <表达式>
– Case “A”
• 2）<表达式1>[,<表达式2>]…… 当“变量或表达式”的值与其中之一相同，就执行该Case子 句中的语句块。
– 即一组枚举表达式(用逗号分隔) Case 2,4,6,8
• 3）<表达式1> To <表达式2>
当“变量或表达式”的值落在表达式1和表达式2之间（含自 身），则执行该Case子句中的语句块。表达式1<表达式2。
或
If <表达式> Then <语句>
例:输入三个数，输出其中最大值。
河北理工大学理学院
5.2 选择结构
例：已知两个数x和y，比较它们的大小，使得 x大于y.