首页 理论教育 常用的程序设计语句-Access数据库应用技术教程

常用的程序设计语句-Access数据库应用技术教程

时间:2023-11-01 理论教育 版权反馈
【摘要】:Dim X1,X2′变量X1,X2——此为注释语句,不被执行。Varname为变量的名称,是必需的关键字,遵循标准的变量命名约定。在过程级别中声明的变量,只在过程内是可用的。

常用的程序设计语句-Access数据库应用技术教程

1.注释语句

(1)Rem注释内容。

(2) “′”(半角符的单引号)注释内容。

例如:

Rem定义两个数字变量

Dim X1,X2

′变量X1,X2——此为注释语句,不被执行。

X1=1

X2=2

2.声明语句

(1)Sub⋯End Sub语句。

格式:

Sub 过程名()

语句行

End Sub

功能:命名和定义一个过程。

例如:使用Sub STUMARK()⋯End Sub定义了一个判断成绩及格与否的过程程序(见例10.2与图10-25)。

(2)Dim语句

格式:

Dim[WithEvents]Varname[([Subscripts])][As[New]type][,[WithEvents]

Varname[([Subscripts])][As[New]type]]⋯

功能:声明变量并分配存储空间

参数:

WithEvents是可选的关键字,说明Varname是一个用来响应由ActiveX对象触发的事件的对象变量。WithEvents只有在类模块中才是合法的。使用WithEvents,可以声明任意个所需的单变量,但不能使用WithEvents创建数组。New和WithEvents不能一起使用。

Varname为变量的名称,是必需的关键字,遵循标准的变量命名约定。

Subscripts为数组变量的维数,是可选的关键字。最多可以定义60维的多维数组。Subscripts参数使用下面的语法:[lower to]upper[,[lower to]upper]⋯如果不显式指定lower,则数组的下界由Option Base语句控制。如果没有使用Option Base语句,则下界为0。

New是可选的且可隐式地创建对象的关键字。如果使用New来声明对象变量,则在第一次引用该变量时将新建该对象的实例,因此不必使用Set语句来给该对象引用赋值。New关键字不能声明任何内部数据类型的变量以及从属对象的实例,也不能与WithEvents一起使用。

Type是可选的关键字,为变量的数据类型,可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(对变长的字符串)、String*length(对定长的字符串)、Object、Variant、用户定义类型或对象类型。所声明的每个变量都要一个单独的As Type子句。

说明:(www.xing528.com)

①在模块级别中用Dim声明的变量,对该模块中的所有过程都是可用的。在过程级别中声明的变量,只在过程内是可用的。

②可以使用Dim语句在模块级别或过程级别中声明变量的数据类型。例如,下面的语句声明了Integer类型的变量。

Dim NumberOfEmployees As Integer也可以使用Dim语句来声明变量的对象类型。下面的语句为工作表的新建实例声明了一个变量。

Dim X As New Worksheet

③如果定义对象变量时没有使用New关键字,则在使用该变量之前,必须使用Set语句将该引用对象的变量赋值为一个已有对象。在该变量被赋值之前,所声明的对象变量有一个特定值Nothing,这个值表示该变量没有指向任一个对象实例。

④可以使用带空圆括号的Dim语句来定义动态数组。在定义动态数组后,可以在过程内使用ReDim语句来定义该数组的维数和元素。如果试图在Private,Public或Dim语句中重新定义一个已显式定义了大小的数组的维数时,就会发生错误

⑤如果不指定数据类型或对象类型,且在模块中没有Deftype语句,则该变量默认设置为Variant类型。

⑥当初始化变量时,数值变量被初始化为0,变长的字符串被初始化为一个零长度的字符串(""),而定长的字符串则用0填充。Variant变量被初始化为Empty。用户自定义类型的变量的每个元素作为各自独立的变量进行初始化。

注意:当在过程中使用Dim语句时,通常将Dim语句放在过程的开始处。

3.赋值语句

格式:[Let]变量名=数值

其中,Let为可选项。

功能:向一个变量传送一个数值。

例如:

X1=100

Let X1=200

Dim X2 As integer′定义X2为整型变量

X2=10

4.人机对话1

格式:MsgBox("提示信息")

功能:以函数形式在程序运行时,显示提示信息,实现人机对话

例如:MsgBox("不及格")

当程序执行该语句时在屏幕上显示“不及格”。

5.人机对话2

格式:InputBox("提示信息")

功能:以函数形式在程序运行时,显示提示信息,并等待用户键盘输入信息,按【Enter】键激活,实现人机对话。

例如:当程序执行到MARK=Val(InputBox("INPUT CJ"))时,在屏幕上显示“INPUT CJ”,并等待输入,当输入50并按【Enter】键后,则将50转换成数字型送入变量MARK中。

尽管MsgBox与InputBox均为函数,不是语句,但是仍可实现人机对话,这对初学程序者,调试自己的程序很有用。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

我要反馈