第6章--程序设计基础PPT.pptx

  1. 1、本文档共269页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第6章--程序设计基础PPT

数据库管理系统应用;6.1 VBA概述 6.2 VBA语言基础 6.3 VBA模块的创建 6.4 VBA程序设计基础 6.5 过程调用与参数传递 6.6 VBA程序错误处理;学习要点;6.1 VBA概述;6.1.1 VB编程环境:VBE;进入VBE编程环境(2);1.注释语句;6.1.2 VBA程序书写原则;6.2.1 数据类型;6.2.2 常量、变量与数组;1. 常量;(1)符号常量;(2)内部常量;(3)系统常量;2. 内存变量;2)变量的创建方法;(2)显式声明创建变量;举例;补充:类型说明符;强制声明;3)变量的使用范围(作用域);全局/模块变量声明方式;变量的使用规则与作用域;(1)全局变量与私有变量的比较;;(2)私有变量与局部变量的比较;私有变量与局部变量的比较;(3)静态变量与非静态变量;静态变量与非静态变量;3.数组;数组的类型;(1)声明静态数组;(1)声明静态数组;【例】;2)数组的使用;3)声明动态数组;建立动态数组的步骤;说明(1);说明(2);举例(1);举例(2);6.2.3 标准函数;注意事项;1. 数学函数;1. 数学函数;1. 数学函数;1. 数学函数;1. 数学函数;1. 数学函数;1. 数学函数;1. 数学函数;【例】;2. 字符串函数;InStr函数;【例1】;2. 字符串函数;【例1】;2. 字符串函数;【例1】;2. 字符串函数;2. 字符串函数;【例】;2. 字符串函数;【例】;3. 日期/时间函数;3. 日期/时间函数;截取日期分量函数;截取日期分量函数;截取日期分量函数;Weekday函数;3. 日期/时间函数;截取时间分量函数;3. 日期/时间函数;DateSerial函数;3. 日期/时间函数;3. 日期/时间函数;3. 日期/时间函数;4. 类型转换函数;4. 类型转换函数;4. 类型转换函数;Str函数;4. 类型转换函数;Val函数;5.条件函数;IIF函数举例;【例2】;【例3】; (2)Switch函数;Switch函数举例;【例2】;(3)Choose函数;Choose函数举例;Choose函数举例;(1)输入框函数(InputBox);参数说明;【例】;(2)消息框(MsgBox)函数;消息框(MsgBox);Buttons选项取值说明(1);Buttons选项取值说明(2);Buttons选项取值说明(补充);举例;函数的返回值(补充);【例】;函数综合举例(2);【例】编写一个返回系统日期的函数过程Getdate。;6.2.4 运算符与表达式;(1)算术运算符;说明(1);说明(2);整数除法举例;说明(3);取模运算举例;说明(4);(2)字符运算符;运算符;运算符举例;+运算符;+运算符举例;(3)关系运算符;关系运算符规则;(4)逻辑运算符;各个逻辑运算符的真值表;2. 表达式和优先级;(2) 表达式的书写规则;(3)运算优先级;表达式举例;6.3 VBA模块的创建; 模块以____________________或_____________为单元的集合方式存储。;;6.3.1 类模块的创建;6.3.2 标准模块的创建;标准模块示例; 模块是以过程为单元组成的。;1. Sub过程;说明;Sub过程调用方法;Public与Private的举例(1);Public与Private的举例(2);Public与Private的举例(3);2. Function过程;函数过程的调用形式;举例;6.4 VBA程序设计基础; VBA中的语句是能够完成某项操作的一条完整命令,它可以包含关键字、函数、运算符、变量、常量以及表达式等。;VBA语句类型;6.4.1 声明语句;6.4.2 赋值语句;赋值语句举例; 语句的执行方式按流程可以分为:;例1:已知圆的半径r(从键盘上输入),编写area子过程求圆的面积s。 Public Sub area() Const PI = 3.14 Dim r As Single r = InputBox(请输入圆的半径:) S = PI * r ^ 2 Debug.Print 圆的面积为: s End Sub;例2:从键盘上输入两个数x、y,编写swap子程序实现这两个数据的交换。 Public Sub swap() x = InputBox(请从键盘上输入一个数X:) y = InputBox(请从键盘上输入一个数Y:) Debug.Print 交换前X、Y分别为:, x, y t = x x = y y = t Debug.Print 交换后X、Y分别为:, x, y End Sub; 在VBA代码中使用If条

文档评论(0)

djdjix + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档