Visual Basic教程ppt.ppt

第1章VisualBasic概述 1 1关于VisualBasic 1 2VB6 0集成开发环境 1 2 1标题栏 标题栏是位于集成开发环境最上面的水平条 用来显示打开的工程名和系统的工作状态 工作状态有 设计 运行 和 中断 三种状态 分别当程序在设计 运行和调试时显示 例如 如图显示了启动VB时标题栏的显示 工程名为 工程1 工作状态为 设计 1 2 2菜单栏 VB的菜单栏提供了13个下拉菜单 除了标准的 文件 编辑 视图 工具 窗口 和 帮助 菜单之外 还提供了编程专用的菜单 工程 格式 运行 外接程序 和 调试 另外还有用于数据库操作的 查询 和 图表 菜单 1 2 3工具栏 VB有 标准 编辑 窗体编辑器 和 调试 四组工具栏 工具栏是对常用命令的快速访问 集成开发环境中启动VB之后显示的标准工具栏示 单击工具栏上的按钮则执行该按钮所代表的操作 当鼠标停留在工具栏按钮上时可显示出该按钮的功能 1 2 4工具箱 工具箱 Toolbox 也称为控件箱 提供了用于开发应用程序的各种控件 用户设计界面时可以从中选择所需的控件拖放到窗体中 1 2 4工具箱 创建用户自定义控件箱的步骤 1 2 5窗口 窗体设计器窗口窗体设计器窗口中显示的是一个空白的窗体 窗体是用户用来显示的程序界面 用户可以通过在窗体上放置控件来设计界面 当打开VB时 程序默认创建一个空白窗体名称为Form1 编程人员可以修改它的名称 操作区中布满了小点 这些小点是用来对齐控件位置的 1 2 5窗口 2 工程资源管理器窗口默认的工程资源管理器窗口工程名 工程文件名 窗体名 窗体文件名 查看代码查看对象切换文件夹资源管理器窗口以树状结构列出应用程序中所有的文件清单 包括窗体和模块等 三个按钮分别是 查看代码 查看对象 和 切换文件夹 1 2 5窗口 3 属性窗口属性窗口用于列出当前选定窗体和控件的属性设置 每个对象都是用属性来表示其特征的 左侧为 属性名 是显示属性的名称 右侧为 属性值 是属性名对应的设置值 可以在此设置和修改属性值 1 2 5窗口 4 代码窗口代码窗口又称为代码编辑器窗口 有4种方法都可以打开代码窗口 双击窗体的任何地方 单击鼠标右键 选择快捷菜单中的 查看代码 菜单项 单击工程资源管理器窗口中的 查看代码 按钮 选择 视图 菜单中的 代码窗口 菜单项 1 2 5窗口 5 窗体布局窗口图窗体布局窗口窗体布局窗口用于观察应用程序中各窗体在屏幕上的位置 有一个表示屏幕的小图像 用鼠标拖动表示窗体的小图像 可以方便地调整程序运行时窗体显示的位置 1 2 5窗口 6 其它窗口其它窗口都可以使用 视图 菜单中的各菜单项来打开 对象浏览器窗口对象浏览器窗口用来显示对象库中对象的属性和方法 1 2 5窗口 2 调色板窗口图调色板窗口调色板窗口用于设置对象颜色 左侧的两个方框分别用来设置和显示颜色 单击上面方框的外框为设置背景色 内小方块为设置前景色 背景色和前景色分别由下面方块和字符 Aa 的颜色显示 1 2 6使用帮助 1 通过 内容 菜单项查找帮助信息 1 2 6使用帮助 2 通过 索引 菜单项查找帮助信息 当选择 帮助 菜单 搜索 菜单项时 界面显示如图 1 2 6使用帮助 查找需要帮助信息的步骤如下 1 在右侧 输入要查找的单词 栏输入需要查找的单词 2 如果还有其他并列的单词 则单击按钮 选择 AND OR NEAR 和 NOT 关系符号后 再输入并列的单词 例如要查找 CommandButton 的 Caption 属性 可以输入 CommandButtonANDCaption 查找 3 输入完要查找的单词后 单击 列出主题 按钮 4 在下面显示的主题中选择一条 然后单击 显示 按钮 则在右侧就会显示相应的帮助信息 1 3简单程序实例 例1 1 创建一个窗体 窗体界面上放置两个按钮 Command1 Command2 和一个标签 Label1 控件 单击按钮Command1在标签Label1上显示 你好 单击Command2则在左上角显示 再见 1 3简单程序实例 创建应用程序界面在Windows环境下 通过 开始 菜单选择 MicrosoftVisualBasic6 0中文版 菜单项启动VB 在出现的 新建工程 窗口的 新建 选项卡中选择 标准EXE 图标 则会建立一个新工程 1 创建窗体创建新工程时 系统就自动创建了一个空白的新窗体 窗体名默认为 Form1 窗体是用户组织用户交互信息的界面 窗口 窗体中当然布置的是用于用户交互的控件 1 3简单程序实例 2 创建控件在窗体界面中需要绘制两个按钮 CommandButton 控件和一个标签 Label 控件 1 3简单程序实例 3 对齐控件为了将控件在界面上布局得更整齐美观 将三个控件进行调整位置和大小 单击 Command1 按钮 按 Shift 键的同时单击 Command2 按钮 则两个按钮都被选中 2 选择 格式 菜单 统一尺寸 菜单项 两者都相同 菜单项 将两个按钮的大小调整相同 1 3简单程序实例 2 设置属性通过属性窗口给创建的对象设置属性 单击Label1在属性窗口中出现 Label1 的所有属性 在 属性窗口 中滚动属性列表 选定属性名 Caption 删除属性值使其为空白 属性窗口的设置如图 1 3简单程序实例 单击 Command1 按钮 在 属性窗口 中选定属性名 Caption 修改属性值为 开始 设计界面击 Command2 按钮 在 属性窗口 中选定属性名 Caption 修改属性值为 结束 则设计界面如图所示 1 3简单程序实例 3 编写程序代码 1 打开代码编辑器窗口从工程资源管理器窗口中 选定Form1窗体 然后单击 查看代码 按钮 就打开了代码编辑器窗口 2 生成事件过程代码窗口有对象列表框和过程列表框 要编写的代码是在鼠标单击 Command1 按钮时发生的事件 因此在对象列表框选择Command1 在过程下拉列表中选择Click 单击 事件 1 3简单程序实例 3 编写代码在 Sub 和 EndSub 语句之间输入下列代码 使单击Command1按钮时Label1文本框中显示 你好 Label1 Caption 你好 以同样的方法生成Command2按钮的单击事件过程 编写将Label1位置移到左上角并显示 再见 的程序代码 PrivateSubCommand2 Click Label1 Move0 0Label1 Caption 再见 EndSub 1 3简单程序实例 4 保存工程将设计的窗体和编写的代码保存 步骤如下 1 选择 文件 菜单 保存工程 菜单项 在打开的 文件另存为 对话框中 使用默认的窗体名文件名 Form1 单击 保存 按钮 则生成了 Form1 frm 窗体文件 2 然后在弹出的 工程另存为 对话框中 使用默认的工程名 工程1 单击 保存 按钮 则生成工程文件 工程1 vbp 1 3简单程序实例 5 调试并运行应用程序选择 运行 菜单 启动 菜单项 显示运行界面 运行程序 单击按钮 开始 Command1 标签 Label1 就会显示 你好 标签 Label1 就会移到窗体的左上角并显示 再见 6 生成EXE文件为了使应用程序能脱离VB环境的应用程序 需要生成EXE文件 1 4 1面向对象的程序设计方法 对象对象是动作的主体 可以是窗体 控件和应用程序 一个复杂的对象可以由若干个简单的对象组成 1 在窗体中放置了两个按钮和一个标签 其中窗体 按钮和标签都是对象 它们相互之间没有什么联系 都是相互独立的 2 对象的创建是通过单击工具箱中的控件 然后在窗体上拖放就可以 不需要编写程序代码 3 对象是程序和数据的组合 例如按钮Command1是一个对象 它的大小 位置等由数据构成 当鼠标放置在Command1上并单击时 按钮能识别鼠标并且按钮发生按下的形状变化以及响应Click事件的整个过程都是由VB自动生成的程序代码实现 4 在窗体上放置的两个命令按钮Command1和Command2 它们是两个不同的独立对象 但都是命令按钮类 是属于同一个对象类 1 4 1面向对象的程序设计方法 2 对象的属性属性是对象的数据 用来表示对象的特性 属性有属性值 改变对象的属性值就可以改变对象的特性 对应例中对象的属性有几点说明 1 VB为每一类对象都定义了若干属性 按钮Command1和Command2同属于一类对象 因此具有同样多的属性 但属性值不同决定了每个对象的特殊性 2 属性的设置可以当设计时在属性窗口中完成 也可以在运行时由代码来实现 例如Label1的 Caption 属性 可以在属性窗口中删除为空白 也可以在Command1 Click事件过程代码中设置 Label1 Caption 你好 1 4 1面向对象的程序设计方法 3 对象的方法对象的方法是指对象可以进行的动作或行为 方法中的代码是不可见的 由VB自动生成 使对象按指定的方式动作 对应对象的方法有几点说明 1 Label1 Move0 0 表示将标签Label1对象移到左上角 0 0 位置 Move是标签的方法 是标签能够执行的动作 使Label1移动的代码由VB自动生成是不可见的 2 VB中每一类对象能够执行的动作根据对象类的特点不一定相同 比如窗体Form1对象有 Show 显示 和 Hide 隐藏 方法 而标签Label1对象则没有这两种方法 1 4 2事件驱动的编程机制 VB编程的核心就是为每个要处理的事件编写响应事件的过程代码 对应对象的事件有几点说明 1 按钮Command1能够识别单击Click事件 当按钮Command1被鼠标单击时就触发Click事件执行程序代码 PrivateSubCommand1 Click Label1 Caption 你好 EndSub 2 当程序运行时 如果用户不用鼠标单击按钮 就不会触发单击Click事件 程序就处于停滞状态 如果用户先单击按钮Command2 则触发Command2的Click事件执行对应的事件代码 程序执行的顺序由用户触发事件的顺序决定 3 事件代码需要用户在代码编辑器窗口中编写 以便使用户或系统在触发相应的事件时执行指定的操作 习题 一 填空题1 VB是面向 的程序设计语言 2 VB6 0提供了 和 三个版本 3 可以通过VB 帮助菜单 的 和 三个下拉菜单项分别获得帮助信息 4 VB提供了4种工具栏 包括编辑 和调试 5 VB中 用来表示对象的特性 6 VB是 驱动的编程机制 7 在VB中 若要生成一个不依赖于VB环境就可运行的文件 应生成 习题 二 简答题1 VB的集成开发环境有哪些窗口 2 VB的标准控件箱中常用控件有哪些 3 用VB开发程序的开发步骤有哪几步 4 简述VB的事件驱动的编程机制是什么含义 三 上机题1 练习在VB的集成开发环境中将 例1 1 中的文本框Label1的属性背景和字的颜色分别改成黄色和蓝色 将字体改成 粗体 和 小二 习题 2 创建一个工程 在窗体中放置一个标签 并在下面放置两个按钮 第一个按钮上显示 第一 第二个按钮上显示 第二 单击第一个按钮在标签上显示 第一 单击第一个按钮在文本框上显示 第二 运行界面如图所示 3 在窗体的任意位置画一个命令按钮 然后在属性窗口中设置下列属性 第2章VisualBasic语言基础 2 1VB语言的基本概念 2 1 1标识符 标识符是编程时为变量 常量 数据类型 过程 函数 类等定义的名字 VB中所有的标识符都有相同的命名规则 命名规则如下 1 标识符由字母 数字或下划线 组成 不能包含标点符号 空格等 2 标识符必须以字母开头 不能以数字或其他字符开头 例如 2a 1 1等都是不合法的 3 标识符最长不能超过255个字符 4 自定义的变量 过程名等不能和VB中的关键字同名 例如 变量名不能是False If End等 2 1 2书写规范 VB代码中字母的大小写 1 VB代码中不区分字母的大小写 2 VB中的关键字首字母总被转换成大写 其余字母被转换成小写 3 对于用户自定义的变量 过程名等 VB以第一次定义的大小写为准 以后每次输入的变量或过程名自动按第一次定义的格式转换 语句按行书写VB的语句按行书写 每行最多允许255个字符 2 可以将多个语句合并到同一行上 语句间用 号分隔 3 单行语句可以通过续行符 将一行分成若干行书写 一行语句最多只能有25个续行 2 1 2书写规范 3 注释语句注释语句用于在代码中添加注释 代码段中的注释语句VB并不运行 只是提高程序的可读性 便于程序的维护和调试 VB提供了两种方法来添加注释 1 Rem语句语法 Rem注释文本例如 添加注释说明按钮Command1的Click事件的功能 PrivateSubCommand1 Click Rem单击按钮在标签中显示 你好 或者在一行上写注释 PrivateSubCommand1 Click Rem单击按钮在标签中显示 你好 2 1 2书写规范 2 单引号 注释符语法 注释文本使用 加注释更加灵活也更常用 例如 PrivateSubCommand1 Click 单击按钮在标签中显示 你好 或者在一行上写注释 PrivateSubCommand1 Click 单击按钮在标签中显示 你好 2 2 1数据类型 数据类型多达12种 包括 Integer Long Single Double Currency Byte String Boolean Date Object和Variant 1 数值型数值型数据包含两类共五种数据类型 1 整数数据存放整数数据的有Integer 整型 和Long 长整型 2 小数数据存放小数数据的有Single 单精度浮点型 Double 双精度浮点型 和Currency 货币型 Currency型的数据小数点前面可以有15位小数点后有4位 2 2 1数据类型 2 字节型 Byte Byte型用于存储二进制数据 0 255的整数可以用Byte型表示 3 字符型 String 字符型用于存放字符串 字符串是用双引号 括起来的一串字符 字符型有变长和定长两种 分别表示固定长度和可变长度的字符串 变长字符串型是根据存放的字符串长度可增可减 4 布尔型 Boolean 布尔型存储的只能是True或False 如果数据的值只有 True或False Yes或No On或Off 则可以用Boolean型表示 2 2 1数据类型 5 日期型 Date 日期型用于存储日期和时间 日期型数据必须以一对 括起来 如果不含时间值 则自动将时间设置为午夜 00 00 00 如果不含日期值 则自动将日期设置为公元1899年12月30日 6 变体型 Variant 变体型能够存储系统定义的所有类型的数据 是一种可变的数据类型 当没有说明数据类型时 则变量自动为Variant型 但采用Variant型占用的内存也比其他类型多 Variant型还包含三种特定值 Empty Null和Error 7 对象型 Object 对象型用于表示任何类型的对象 可引用应用程序中或其它应用程序中的对象 必须使用Set语句先对对象引用赋值 然后才能引用对象 2 2 1数据类型 数据类型以及存储空间大小与范围 2 2 2常量 1 一般常量一般常量包括 数值常量 字符常量 逻辑型常量和日期常量 1 数值常量数值常量由正负号 数字和小数点等组成 其中小数可以用定点数和浮点数表示 整数 由数字和正负号组成 例如 12 123 1234567 整数大多数都是以十进制表示的 也可以用十六进制数 基数为16 或八进制数 基数为8 表示 八进制数用前缀 O引导 由数字0 7组成 十六进制数用前缀 H引导 由数字0 9 A F或a f组成 2 2 2常量 十进制数 八进制数和十六进制数的相互转换实例 定点数 带有小数点的正数或负数 表示数的范围比较小 例如 75 32 3 1415926 0 0005 浮点数分为单精度浮点数和双精度浮点数 分别表示为mEn和mDn m为尾数 n为指数 指数为乘以10的幂次 例如 93 2E5 单精度型 25 2E 3 单精度型 2 35D 12 双精度型 2 2 2常量 字符常量字符常量是用双引号 括起来的一串字符 例如 abC 李明 你好 其中 双引号中无任何字符 也不含空格 为空字符串 逻辑常量逻辑常量只有两个 True 真 False 假 日期常量日期常量是用前后两个 把表示日期和时间的值括起来 例如 以下几种都是表示2004年3月15日 2004 3 15 3 15 2004 2004 3 15 2004 3 157 30 00 2 2 2常量 2 符号常量符号常量是指在程序中用符号表示的常量 符号常量又分为系统内置常量和用户定义常量两种 1 用户定义常量用户定义常量用具有含义的常量名来代替难记的一般常量 使用符号常量可增加程序代码的可读性 在程序中使用用户定义常量 应该使用Const语句先行说明 语法 Public Private Const常量名 As数据类型 表达式说明 表示可省略的参数 表示是可选择的参数 表达式可以由数值 字符串等常量以及运算符组成 甚至可以用前面定义过的用户定义常量 2 2 2常量 常量名的命名规则符合标识符的命名规则 例如 以下都是将难记的常量 用用户定义常量表示 ConstPI 3 1415926ConstPIAsSingle 3 1415926PrivateConstPIAsSingle 3 1415926例如 使用用户定义常量PI定义新下用户定义常量 ConstPI2 PI 2 2 系统内置常量系统内置常量与应用程序的对象 方法和属性一起使用 一般以Vb为前缀 如VbBlue为蓝色 2 2 3变量 1 变量的声明变量的声明分为 显式声明 和 隐式声明 1 显式声明显式声明是在变量使用之前 用Dim Static Public Private语句声明一个变量或多个变量 语法 Dim变量名 As数据类型 Dim变量名 As数据类型 变量名 As数据类型 说明 用Dim语句声明变量就是定义该变量应存储的数据类型 当省略数据类型时 则默认为Variant型 同时声明多个变量时 各变量用逗号分开 2 2 3变量 语法 Dim变量名AsString 长度如果没有声明变量的数据类型 则VB把它看作变体型 Variant 然而 变体型可能会浪费内存空间 有时变体型还可能无效 所以 在使用变量前最好先声明变量类型 显式声明还有Static Public Private语句 声明变量的语法格式与Dim语句相似 语法 Public变量名 As数据类型 变量名 As数据类型 Private变量名 As数据类型 变量名 As数据类型 Static变量名 As数据类型 变量名 As数据类型 2 2 3变量 2 隐式声明隐式声明是用一个特殊的类型符号加在变量名后面来声明数据类型 而在使用一个变量之前不需要声明这个变量 例如 用隐式声明变量 PrivateSubCommand1 Click 单击按钮在标签中显示 你好 a 你好 Label1 Caption aEndSub 程序分析 变量a被隐式声明为字符型 并将 你好 赋值给a 尽管隐式声明比较方便 但如果将变量名拼错的话 就会导致难以查找的错误 2 2 3变量 3 OptionExplicit语句 在代码窗口中各种模块的声明部分输入OptionExplicit语句 在代码编辑器从对象下拉列表中选择 通用 从过程下拉列表选择 声明 然后输入代码 OptionExplicit 2 2 3变量 在 工具 菜单中选择 选项 菜单项 单击 编辑器 选项卡 选择 要求变量声明 复选框如图所示 当下次启动VB后 就在任何新模块中自动插入了OptionExplicit语句 2 2 3变量 2 变量的赋值在声明一个变量后 就可以给变量赋值 赋值语句用于将表达式的值赋给变量 语法 Let 变量 表达式说明 Let可以省略 是赋值符号 例如 下面几种都是赋值语句 Dima bAsIntegera 5Leta 5b 5 a b 2 3 1运算符和表达式 1 算术运算符和表达式算术运算符是用来进行数值运算的运算符 算术表达式是用算术运算符将常量 变量等连接起来的式子 算术运算符包括 和Mod 用于两个数的加 减 乘 除运算 为双目运算 用于两个数的除法运算并返回一个整数商 为双目运算 用于求一个数的幂运算即指数运算 为双目运算 Mod 用于两个数的除法运算并返回余数 为双目运算 例如 以下都是算术表达式 其中x 5 2 x结果为102 3结果为810 4结果为2 510 4结果为210Mod4结果为2 3 15 2004 1 15 2004 结果为60 两个日期的间隔天数 2 3 1运算符和表达式 2 关系运算符和表达式关系表达式的值只能是True False或NULL 关系运算符包括 以及Is和Like 等于符 与赋值符号 不同 不等于符 Is 比较两个对象是否一致 Like 比较两个字符串的模式是否匹配 在Like表达式中可以使用通配符 2 3 1运算符和表达式 3 连接运算符和表达式连接运算符是用来合并字符串的运算符 包括 和 连接表达式是用连接运算符将两个运算数连接起来 例如 以下都是连接表达式 Hello World 结果为 HelloWorld 2 4 结果为 24 2 4 结果为 24 2 4结果为242 4结果为6说明 运算符与运算数之间应加一个空格 运算符会自动将非字符串类型的数据转换成字符串后再进行连接 而 运算符则不行 2 3 1运算符和表达式 4 逻辑运算符和表达式逻辑表达式是用逻辑运算符将逻辑变量连接起来 逻辑运算符包括And 与 Or 或 Not 非 Eqv 等价 Imp 包含 和Xor 异或 如表2 5是a和b进行逻辑运算的结果 2 3 2各种运算的优先顺序 当在表达式中运算符不止一种时 系统会按预先确定的顺序进行计算 这个顺序称为运算符的优先顺序 各种运算符的优先顺序有以下原则 1 表达式的括号最优先 相同优先级的运算按从左到右顺序进行 2 各种类型运算符的优先顺序 从高到低 如下 算术运算符 字符串连接运算符 关系运算符 逻辑运算符 3 同一类运算符的优先顺序也不同算术运算符的优先顺序 从高到低 如下 负号 整数除法 Mod 2 3 2各种运算的优先顺序 例2 1 判别某年是否是闰年 闰年的条件符合下面二者之一 1 能被4整除 但不能被100整除 2 能被4整除又能被400整除 要求 单击按钮Command1计算出2004年是否是闰年 并在窗体的标签Lable2中显示结果 2 3 2各种运算的优先顺序 界面设计 窗体界面中放置了两个标签Lable1和Lable2 以及一个按钮Command1 分别设置其Caption属性 单击Command1时判断2004年是否是闰年 程序代码如下 PrivateSubCommand1 Click 单击按钮计算闰年DimxAsIntegerDimyAsBooleanx 2004y xMod4 0 And xMod100 0 Or xMod4 0 And xMod400 0 Label2 Caption yEndSub 2 4 1算术函数 算术函数是系统给用户提供进行算术运算的函数 算术函数有几点说明 1 函数具有返回值 应注意函数返回值的数据类型 2 三角函数的运算都使用弧度 3 Fix x 和Int x 函数都是对数值型变量取整 但对于正数和负数结果不同 Fix 10 5 10Int 10 5 10Fix 10 5 10Int 10 5 11 4 用Rnd x 函数用于产生随机数 当x 0时产生与前一次相同的随机数 如果不断地重复Rnd函数 会反复出现同一序列的随机数 可以用Randomize语句消除这种情况 语法 Randomize x 2 4 1算术函数 例2 2 根据直角三角形的两条直角边 计算其斜边的长度 计算斜边根据公式 界面设计 在窗体上放置三个文本框 Text1 Text2 Text3 三个标签 Label1 Label2 Label3 和一个按钮Command1 Text1和Text2用来输入两条直角边的长度 计算的斜边显示在文本框Text3中 单击按钮Command1计算斜边 2 4 2每年字符函数 界面设计 界面包含5个标签 Label1 Label5 四个文本框 Text1 Text4 和一个按钮 Command1 四个文本框分别用于输入字符串和从第几个位置开始取几个字符 单击按钮Command1进行取字符运算 2 4 2字符函数 程序代码如下 PrivateSubCommand1 Click 单击按钮取字符Dims1AsString s2AsStringDimaAsInteger bAsIntegers1 Text1 Text 输入字符串a Val Text2 Text 输入起始个数b Val Text3 Text 输入字符个数s2 Mid s1 a b 取字符Text4 Text s2EndSub程序分析 使用Mid函数取字符串的任意位置字符 2 4 3日期与时间函数 日期时间函数提供日期和时间有关的函数 2 4 3日期与时间函数 例2 4 使用日期和时间函数在窗体上显示系统当前的日期和时间 界面设计 界面包含5个 Label1 Label5 标签 四个文本框 Text1 Text4 和一个按钮 Command1 四个文本框分别用于显示年份 月份 日期和时间 单击按钮Command1在四个文本框中显示时间 程序代码如下 PrivateSubCommand1 Click 单击按钮显示时间Text1 Text Year Date 显示年份Text2 Text Month Date 显示月份Text3 Text Day Date 显示日期 显示时间Text4 Text Hour Now Minute Now Second Now EndSub 2 4 4类型转换函数和判断函数 1 类型转换函数转换函数是用来将数据强制转换成某种特定的数据类型 如表所示为转换函数的功能 例子以及转换结果 2 4 4类型转换函数和判断函数 2 判断函数VB还提供了一些判断函数用来判断数据的类型 如表所示为判断函数的功能 例子以及转换结果 2 5 1InputBox函数 InputBox函数用于接受用户键盘输入的数据 也称为输入框 语法 变量 InputBox 对话框字符串 标题 文本框字符串 横坐标值 纵坐标值 帮助文件 帮助主题号 说明 对话框字符串 在输入对话框中显示的字符串 最大长度是1024个字符 标题 指对话框标题栏的字符串 如果省略 则标题栏中为当前工程名 文本框字符串 指文本框中显示的字符串 如果省略则文本框为空 横 纵坐标值 指对话框在屏幕上的位置 横 纵坐标值为输入框左上角的坐标 2 5 1InputBox函数 程序分析 InputBox函数出现的对话框中自动生成一个文本框和 确定 取消 两个按钮 对话框中显示 请输入学号 标题为 输入学号 文本框中显示的默认值为 2001010123 对话框等待用户在文本框输入内容 可以在文本框中输入也可以使用默认值 InputBox函数返回值给变量Number 如果用户单击 确定 按钮或按 ENTER 键 例如 使用InputBox函数输入学号 所显示的输入框Number InputBox 请输入学号 输入学号 2001010123 2 5 2MsgBox函数 MsgBox函数用于向用户发布提示信息 要求用户做出必要的响应 也称为消息框 语法 变量 MsgBox 消息文本 显示按钮和图标 标题 帮助文件 帮助主题号 说明 消息文本 在对话框中作为消息显示的字符串 用于提示信息 如果消息的内容超过一行时 可以在每行之间插入回车符Chr 13 或换行符Chr 10 进行换行 标题 在对话框标题栏中显示的标题 省略时为空白 显示按钮和图标 是c1 c2 c3 c4的总和 用来指定显示按钮的数目 形式 使用的图标样式 2 5 2MsgBox函数 例如 使用消息框显示出错提示信息 消息框如图所示 Response MsgBox 对不起 你的学号不正确 vbOKOnly vbExclamation 出错 程序分析 显示的消息框中消息文本为 对不起 你的学号不正确 标题为 出错 按钮只有一个 确定 按钮 vbOKOnly 图标为警告 vbExclamation 当单击 确定 按钮 则返回1给变量Response 2 5 3Print方法 1 Format格式函数用格式函数Format可以使数值 日期或字符型数据按指定的格式输出 语法 Format 表达式 格式字符串 说明 表达式可以是数值 日期型或字符型表达式 格式字符串是一个字符串常量或变量 由专门的格式说明字符组成 当格式字符串为常量时 必须放在双引号中 1 数字占位符 在格式字符串中 的位置上有数字存在 就显示出来 否则 该位置就什么都不显示 2 5 3Print方法 2 0 数字占位符 与 功能相同 只是多余的位用0补齐 3 小数点占位符 小数点与 或 0 结合使用 根据格式字符串的位置 小数部分多余的数字按四舍五入处理 4 千分位符号占位符 从小数点左边一位开始 每3位用一个逗号分开 逗号可以放在小数点左边的任何位置 但不能放在头部 也不能紧靠小数点 5 其他符号还可以使用 百分号 美元符号 正号 负号 指数形式 E 或E 等来设置数值型数据的输出格式 2 5 3Print方法 例如 Format函数在窗体中显示 DimaAsSinglea 12345 67PrintFormat a PrintFormat a PrintFormat a 000000 000 PrintFormat a 00 000 PrintFormat a PrintFormat a PrintFormat a 0 00E 00 则在窗体中显示如下 1234612 345 67012345 67012345 6701234567 12345 671 23E 04 6 用指定格式显示日期和时间例如 按指定格式显示当前日期和时间 PrintFormat Now mm dd yyyy 按指定格式显示日期PrintFormat Now dddddd 按完整格式显示日期PrintFormat Now h m s 按指定格式显示时间则显示 03 15 20042004年3月1515 13 24 2 5 3Print方法 2 Spc函数Spc n 函数是在显示下一个表达式之前插入n个空格 例如 Print Hello Spc 2 World 则在窗体上显示 HelloWorld 3 Tab函数Tab n 函数是将光标移动到第n列 例如 Print Hello Tab 8 World 则在窗体上显示 HelloWorld 习题 一 选择题1 下列字符串中 是合法变量 A char 1 student No a1234B exp 123a x yC x y x yD end 1bcx2 变量MyDate为日期型 下面赋值语句中正确的 A MyDate 1 4 2004 B MyDate 1 4 2004 C MyDate Date 1 4 2004 D MyDate Format m d yyyy 1 4 2004 3 下列数据中 是Boolean型常量 A 123B AndC TrueD Or4 x为Integer型 如果Sgn x 的值为 1 则x的值是 A 等于0B 小于0C 大于0D 任意整数 习题 5 I被j整除的逻辑表达式 A I j 0B I j 0C IjD Imodj 06 在Form Click事件中执行PrintFormat 1236 54 0 0 语句的正确结果是 A 123456B 123 654 0 C 123 654 D 123 6547 表达式为4 5 6 7 8Mod9的值为 A 4B 5C 6D 78 a VisualBasic 下面使b Basic 的语句是 A b left a 8 12 B b Mid a 8 5 C b Right a 5 D b left a 8 5 9 可用于设置系统当前时间的语句是 A DateB Date C TimeD Timer10 下面的运算符中优先级最高的是 A NotB C D 习题 11 在窗体上放置一个命令按钮Command1和一个文本框 把Text1的Text属性设置为空 运行下面的事件过程代码 PrivateSubCommand1 Click Dima ba InputBox 输入一个整数 b Text1 TextText1 Text a bEndSub运行程序 在Text1文本框中输入456 单击按钮Command1 然后在出现的输入框中输入123 单击 确定 按钮 在Text1中显示的内容是 A 579B 123C 456123D 456 习题 二 填空题1 VB中的注释语句采用 VB的续行符采用 若要在一行书写多条语句 则各语句间应加分隔符 VB的语句分隔符为 2 在VB中 字符型常量应用 符号将其括起来 整型常量应用 符号将其括起来 3 隐式声明字符型变量应使用 符号 整型变量应使用 符号 4 可实现将字符串小写转换成大写的的函数是 5 代数表达式为 1 d 2 e 2 5 2 则对应的VisualBasic表达式是 6 将下面的十进制数75用八进制表示为 用十六进制数表示为 习题 7 变量a是Single型 a 1 23456 b Int a c Sgn a d Abs a e Fix a 则 b c d e 8 x是小于100的非负数 用VB的表达式表示 9 使用MsgBox显示如下图 则写出语句 10 在窗体中放置一个命令按钮 运行下面的程序代码 PrivateSubCommand1 Click Dima ba InputBox 输入一个数字 b Len a Print TheLengthof a bEndSub在出现的输入框中输入 12345 单击 确定 按钮 结果是 习题 三 简答题1 下面符号名中哪些是合法的VB符号常量和变量名 x1 2a If x 2 y x x y Form1 frm x y2 VB中是否可以出现下列形式的数 D32 3 457E 10 368 2 5E 1 87E 5 12E3 8 8 75D 63 写出下面数学表达式对应的VB算术表达式 第3章VisualBasic语言进阶 3 1基本控制结构 3 1 1顺序结构 顺序结构就是整个程序按书写顺序依次自上而下执行 前面两章设计和编写的程序都是顺序结构的 顺序结构如图所示 先执行A 再执行B 即自上而下依次运行 图左 左 图为框式流程图 图 右 为N S流程图 又称为盒图 3 1 2分支结构 分支结构用于判断并分支 又称为选择结构 如图所示 E代表条件 当E条件成立 True 时执行A 否则 False 执行B 两条分支汇合在一起为一个出口 分支结构有几种形式 If Then Else结构 SelectCase结构和IIf函数 3 1 2分支结构 1 If Then Else结构If Then Else结构表示 如果 就 否则 语法 If条件Then语句或者 If条件1Then语句块1 ElseIf条件2Then语句块2 Else语句块n EndIf 条件可以为各种表达式 都要转换为Boolean型 即所有非零的数值 字符等都转换为True 而0 0 值则转换为False 当If Then Else结构只有单独的If语句时 可以没有EndIf语句 首先测试条件1 如果为False 就测试条件2 依此类推 直到找到一个为True的条件就执行Then后面的语句块 当只有一个条件而且执行的是单个语句时 If Then Else结构可以简化成If Then语句 3 1 2分支结构 例3 1 使用If Then语句查询学生的成绩 大于等于60分的为及格 其余为不及格格 界面设计 在窗体界面中创建两个文本框 Text1 Text2 两个标签 Label1 Label2 和一个按钮 Command1 文本框Text1输入分数 单击按钮Command1则在文本框Text2中显示成绩 3 1 2分支结构 程序代码如下 PrivateSubCommand1 Click 单击按钮显示成绩DimxAsSingleDimyAsStringx Val Text1 Text y 不及格 Ifx 60Theny 及格 Text2 Text yEndSub程序分析 使用If Then语句 当满足条件 x 60 就执行Then后面的语句 y 及格 否则就执行If Then语句后面的语句 3 1 2分支结构 例3 2 使用If Then Else结构查询学生的成绩 大于等于60分的为及格 其余为不及格 界面设计和功能要求与 例3 1 相同 程序流程图如图所示 程序代码如下 PrivateSubCommand1 Click 单击按钮显示成绩DimxAsSingleDimyAsStringx Val Text1 Text Ifx 60Theny 及格 Elsey 不及格 EndIfText2 Text yEndSub 3 1 2分支结构 例3 3 使用多个条件的If Then Else结构查询学生的成绩 将成绩分成优 良 中 及格和不及格 90 100为优 80 90为良 70 80为中 60 70为及格 60以下为不及格 3 1 2分支结构 程序代码如下 PrivateSubCommand1 Click 单击按钮显示成绩DimxAsSingleDimyAsStringx Val Text1 Text Ifx 90Theny 优 ElseIfx 80Then y 良 ElseIfx 70Theny 中 ElseIfx 60Theny 及格 Elsey 不及格 EndIfText2 Text yEndSub 程序分析 使用有多个条件的If Then Else结构 判断的顺序是 x 90 x 80 x 70 x 60 剩下的就是 x 60 3 1 2分支结构 2 SelectCase结构SelectCase结构与If Then Else结构类似 但对多条件选择时 有时用SelectCase语句代码效率更高 更易读 语法 SelectCase变量 表达式Case值1语句块1 Case值2语句块2 CaseElse语句块n EndSelect 3 1 2分支结构 例3 4 使用SelectCase结构实现学生成绩的查询 将成绩分成优 良 中 及格和不及格 90 100为优 80 90为良 70 80为中 60 70为及格 60以下为不及格 Case70To79y 中 Case60To69y 及格 CaseElsey 不及格 EndSelectSubText2 Text yEnd PrivateSubCommand1 Click 单击按钮显示成绩DimxAsSingleDimyAsStringx Int Text1 Text SelectCasexCase90To100y 优 Case80To89y 良 程序分析 x Int Text1 Text 用来将分数取整 因为分数可能是小数 Case90To100 后面的值使用连续的范围表示90 100 3 1 2分支结构 3 IIf函数If Then Else结构当只有一个条件时还可以使用IIf函数来实现 用IIf函数语句可以说是If Then Else结构的简写版本 语法 IIF 条件 真部分 假部分 说明 IIf函数的步骤是先判断条件 当条件为True时执行真部分 否则就执行假部分 在 例3 2 中当分数 60为及格 否则为不及格的关系可以用IIf函数表示为 y IIf x 60 及格 不及格 3 1 2分支结构 4 嵌套嵌套是指把一个结构嵌入另一个结构之内 即If和EndIf SelectCase和EndSelect对都嵌入 不能有交叉 因此在读程序时 与If或SelectCase匹配的是最近的EndIf或EndSelect 如图所示为三层If嵌套的结构 If与最近的EndIf匹配成对 而且在书写时应养成每层缩进的习惯便于程序的阅读 3 1 3循环结构 1 Do Loop结构 Do循环有两种形式 即 当型 循环 While结构 和 直到型 DoWhile结构 循环 当型 循环结构的程序流程图如图 直到型 循环结构的程序流程图 当型 循环的语法 DoWhile Until条件语句块 ExitDo 语句块 Loop 3 1 3循环结构 直到型 循环的语法 Do语句块 ExitDo 语句块 LoopWhile Until条件说明 直到型 循环与 当型 循环所不同的是先执行语句块 然后测试条件 只要条件为True就循环语句块 如果条件为False 则跳过循环体 这种 直到型 循环保证语句块至少被执行一次 注意 在Do Loop结构中Until和While不同 判断条件正好相反 Until结构是只要条件为False 而不是True 就执行循环的语句块 否则跳出循环体 3 1 3循环结构 例3 6 用 当型 循环计算1到100的和 界面设计 在窗体界面中放置一个文本框Text1 一个标签和一个按钮Command1 单击按钮Command1开始计算1 100的和 序代码如下 PrivateSubCommand1 Click 单击按钮开始计算DimiAsInteger SumAsIntegerSum 0 i 1 DoWhilei 100Sum Sum ii i 1LoopText1 Text SumEndSub 3 1 3循环结构 例3 7 用 直到型 循环While计算1到100的和 Sum Sum ii i 1当i 100直到E为真图3 10流程图Sum 0i 1Text1 Text Sum界面设计与图相同 程序代码如下 PrivateSubCommand1 Click 单击按钮开始计算DimiAsInteger SumAsIntegerSum 0 i 1DoSum Sum ii i 1LoopWhilei 100Text1 Text SumEndSub 如果将循环体外的置初始值语句由 i 1 改为 i 101 则两种不同的Do Loop结构结果就不同了 例3 6 判断条件后直接跳出循环 Sum的结果是0 例3 7 进入循环体一次后判断条件跳出循环 Sum的结果是101 3 1 3循环结构 2 For Next结构如果已经知道了循环的次数 使用For Next循环比Do Loop循环更方便 语法 For计数器 初始值To终止值 Step步长 语句块 ExitFor Next 计数器 For Next循环的步骤 1 设置计数器等于初始值 2 如果步长为正值 则判断计数器是否大于终止值 如果大于则跳出循环 如果步长为负数则判断计数器是否小于终止值 3 执行语句块 4 计数器 计数器 步长 5 循环执行步骤 2 5 For Next循环步长为正值的程序流程图如图所示 3 1 3循环结构 例3 8 用For Next循环结构来