授课时间

 
 

第 15  

 
 

课   次

 
 

第2次

 
 

章   节

 

名   称

 
 

第11章 编程工具VBA和模块

 

第一节 VBA概述

 

1、   VBA

 

2、   VBA和宏

 

3、   将宏转化为模块

 

第二节 VBA编程的基本概念和步骤

 

第三节VBA程序设计基础

 
 

授   课

 

方   式

 
 

理论课( √ );实践课(  );习题课(  );其他(  )

 
 

教学

 

时数

 
 

2

 
 

教   学

 

目   的

 

要   求

 
 

使学生掌握基本的VBA语句,能够读懂程序并写出运行结果。

 
 

教   学

 

重   点

 

难   点

 
 

重点:  VBA语句、VBA程序设计

 

难点:VBA编程实例

 
 

教   学

 

方   法

 

手   段

 
 

多媒体演示和讲授结合。

 
 

教学内容

 
 

课堂组织

 
 

1第11章  编程工具VBA和模块

 

 

 

第一节  VBA概述

 

 

 

第二节VBA程序设计基础

 

一、VBA数据类型

 

二、常量和变量

 

三、运算符和表达式

 

四、VBA常用语句

 

五、VBA程序流程控制

 

 

 

第三节VBA程序运行分析

 
 

导课(5分钟):展示VBA编程界面,引出本课。

 

正课:(80分钟)采用多媒体演示和讲授的教学方法。

 

1、什么是VBA(5分钟)

 

    VBA是Office系列软件中内置的用来开发应用系统的编程语言,是可视化BASIC语言,是编程简单、功能强大的面向对象开发工具。可以像编写VB程序那样来编写VBA程序。用VBA语言编写的代码,将保存在Access中的一个模块里,并通过启动这个模块来实现相应的功能。

 

2、VBA的基本数据类型(30分钟)

 

1. 数值类型

 

2. 字符类型

 

    字符型用于存放字符串。字符串包括除双引号和Enter键以外可打印的所有字符,双引号作为字符串的定界符号。

 

    3. 逻辑类型

 

    逻辑型数据用于逻辑判断,亦称布尔型。其值只有两个:逻辑真True和逻辑假False。

 

    4. 日期/时间类型

 

    字面上可被认作日期和时间的字符,只要用#括起来,都可以作为日期/时间型数据。

 

   3、例题(25分钟)

 

(1) 下列程序的功能是找出被5、7除,余数为1的最小的5个正整数。

 

Dim  Ncount%, n%

 

Do

 

     n=n+1

 

     If  nMod5=1 And nMod7=1 Then

 

           Debug.Print n

 

           Ncount=Ncount+1

 

     End If

 

Loop Until Ncount=5

 

(2) 阅读下面程序段,分析程序的运行结果。

 

    s = 0

 

    For i = 1 To 1000

 

         s = s + i

 

         If s>5000 Then GoTo mline

 

    Next

 

    mline:Debug.Print  s

 

    程序运行结果是在立即窗口显示5050。

 

(3)以下程序的功能是在立即窗口中输出100到200之间所有的素数,并统计输出素数的个数。

 

Private Sub Command2_Click()

 

Dim i%, j%, k%, t %         't 为统计素数的个数

 

Dim b As Boolean

 

For i=100 To 200

 

      b=True

 

      k=2

 

      j=Int(Sqr(i))

 

      Do While k<=j And b

 

            If IModk=0 Then

 

                 b=false

 

            End If

 

      k=k+1

 

      Loop

 

      If b=True Then

 

           t=t+1

 

           Debug.Print i

 

      End If

 

Next i

 

Debug.Print "t=";  t

 

End Sub

 

总结(5分钟):本次课,同学们要学会读懂程序。

 
 

讨   论

 

练   习

 

作   业

 
 

读懂书上297页图11-8 中程序的意思

 
 

教   学

 

后   记

 
 

内容讲授完整,学生继续练习程序的读取。