基础篇 共50页[1 2 3 4 5 6 7 >»<... 最后一页]

 常量的定义

一、定义常量   

与变量一样，常量在使用之前也要先进行定义。定义常量的格式为：   

 [Public] Const常量名[As类型名]=表达式

从上面的格式中可以看出，常量的定义的格式与变量定义的格式有些类似，但又有很大的区别。下面将详细说明。   

其中，说明类型是可选的，当省略说明常量类型时，常量的类型由它的值决定。等号后面的表达式必须用常量表达式，不能包含变量。例如：

Const PI=3.1415上面这行语句就定义了一个代表圆周率常量，它的类型是浮点型的，在之后用到圆周率时，就可以用常量“PI'’来代替。例如要计算圆的周长，可用如下的代码：

      L=2*PI*r

其中i和r分别是存放周长和半径的变量。程序执行到此处时，自动将常量PI换成3．1415，因此，对常量的处理要比变量快一些。使用常量还有一个好处，就是当以后要改变PI的精度时，如把它改成3.1415926，只需要定义PI处改变一下就行了；而如果直接使用数值3.1415的话，该数出现了多少次，就要改动多少次，这样不仅麻烦还极易出错。

如前所述，根据常量的作用域也可以把它分为三种：过程级常量、模块级常量以及全局常量。过程级常量必须在过程内部定义，模块级常量是在某个模块的“(声明)”部分定义的，它们都是使用的“Const'’关键字，只是定义地方不一样而已。全局常量则是在标准模块的“(声明)”部分定义的，而且它的定义格式与前两种常量的稍有些不同，需要在“Const'’前面加上“Public'’关键字。

定义常量时，在表达式中还可以包含已经定义过的常量，现举例如下：

    Const PI=3.1415

    Const R=5

    Const L=2*PI*R

在此例中，定义常量L时，其中包含了已经定义过的常量PI和R。

需要注意的是在定义字符型常量时，后面的字符串必须加上双引号，否则的话VB会把这个字符串认作是已经定义常量，从而导致错误。如图“定义过程级和模块级常量”中的常量文本，如果把“abc”的双引号去掉，VB会认为abc是已经定义常量而不是字符串。另外，常量的值在定义之后，就再也不能在程序中进行改变，如果试图以常量赋值将会发生错误。

二、计算圆周长及面积实例

现在，我们通过一个计算圆周长及面积的实例来说明前面介绍的内容。其步骤如下：

步骤1：

首先，启动VB并新建一个工程。

步骤2：

在窗体上添加三个命令按钮控件，并将它们的“Caption'’属性分别设置为“计算圆周长”、“计算圆面积”、“退出”。

步骤3：

为程序编写如下代码：

Option Explicit
Dim r As Integer '定义存储半径的变量
Const PI = 3.1415 '定义圆周率常量

Private Sub Command1_Click() '计算圆的周长
Dim L As Double
L = 2 * PI * r
MsgBox L
End Sub

Private Sub Command2_Click() '计算圆的面积
Dim S As Double
S = PI * r * r
MsgBox S
End Sub

Private Sub Form_Load() '在启动窗体时，要求用户输人半径
r = InputBox("请输入圆的半径", "输人数据", 1)
End Sub

Private Sub Command3_Click() '退出程序
Unload Me
End Sub最后，保存该工程及窗体。

上面各段代码已经给出注释，下面再详细说明一下。程序开始时，首先定义了一个用来保存半径的模块级变量以及用来表示圆周率的常量。在窗体的启动事件中，使用InputBox函数要球用户输入半径。以下是三个命令按钮的代码，前两个都很简单，这里就不再说明。第三个命令按钮的单击事件只有一行语句，即是卸载当前窗体，由于该程序中只有一个窗体，因此这个窗体卸载后程序就结束运行。