从 Option Explicit 开始的零碎知识点(二)

    每次开始敲一页代码的时候，经常会遇到“定义”这个东西 Option Explicit，今天在写程序的时候碰到了一个不需要“Option Explicit”直接定义的，如下：

Option ExplicitDim a, b, c, max                            '定义变量Private Sub cmdcomp_Click()  If a > b Then                                   '如果 a>b    max = a                                       '将a赋值给max    Else      max = b                                       '否则将b赋值给b      End If    If c > max Then                                 '如果c>max    max = c                                       '将c赋值给变量max      End If    txt1.Text = max                                 '将max输出到文本框中End SubPrivate Sub cmdexit_Click()  Unload Me                                       '卸载窗体End SubPrivate Sub Form_Load()  a = Val(InputBox("请输入第一个数"))       '输入第一个数后赋值给变量a  b = Val(InputBox("请输入第二个数"))       '输入第二个数后赋值给变量b  c = Val(InputBox("请输入第二个数"))       '输入第三个数后赋值给变量cEnd Sub

    于是在网上 查阅了一下 Option Explicit 语句

    在模块级别中使用，强制显式声明模块中的所有变量。如果没有使用 Option Explicit 语句，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是 Variant 类型的。

    使用 Option Explicit 可以避免在键入已有变量时出错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱。

    Option Explicit 语句示例
    该示例使用 Option Explicit 
    语句来强制显式声明所有变量。如果试图使用一个未声明的变量，则会在编译时导致错误。

    Option Explicit 
    语句只能在模块级使用。

    Option explicit '强制显式地声明变量。
    Dim MyVar '声明变量。
    MyInt = 10 '未声明的变量将产生错误。
    MyVar = 10 '已声明的变量则不会产生错误。

    举个很简单的例子来说，同样是在一栋大楼里，有会员卡的可以随意走动，没有会员卡的会被发现并且请出大楼，直白一点说就是：可以减少不必要的错误产生。