`

Option Explicit

 
阅读更多
<wbr></wbr>

<wbr><span style="font-size:18px">Option Explicit { On | Off } <br> 各部分说明: On 可选。启用 Option Explicit 检查。如果在 Option Explicit 语句后没有指定 On 或 Off,则默认为 On。 Off 可选。禁用 Option Explicit 检查。<br> Option Explicit 语句 在模块级别中使用,强制显示声明模块中的所有变量。Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit,则必须使用 Dim、Private、Public、ReDim 或Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时会出现错误。如果没有使用 Option Explicit 语句,除非使用Deftype 语句指定了缺省类型,否则所有未声明的变量都是 Variant 类型的。如果代码中没有指定 Option Explicit,编译器的默认设置将是 Option Explicit On。<br> 强制声明的方式:1.在模块的声明段中加入语句:Option Explicit;2.通过执行“工具”菜单中的“选项”命令,在弹出的“选项”对话框中单击“编辑器”标签,将“要求变量声明”复选框选定。</span></wbr>

使用Option Explicit 可避免拼错现有变量的名称,或避免在变量范围不清楚的代码中产生混淆。说通俗点,就是为了避免混乱,使用 Option Explicit 之后,必须对变量进行声明才可以使用!

隐式变量不是很好,如果变量名输入错误,系统检查不出这种类型的错误;类型说明符定义的变量不容易让别人看明白,程序员编程时也比较麻烦,我觉得显示声明比较好。


分享到:
评论

相关推荐

    option explicit

    为宏代码,可以加入时间等很多你想要的东西,此代码一定帮助你很多

    取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit

    取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G...

    简单小动画

    Option Explicit Dim imgIndex As Integer '标识当前显示的是第几个图像 ' 卸载窗体 Private Sub cmdClose_Click() Unload Me frmMain.Show End Sub '运行或停止演示 Private Sub cmdRun_Click() If Timer1....

    VB多种窗体透明/半透明源码

    Option Explicit 'Transparancy API's Private Dec...... ..... 半透明窗体(对鼠标点击无反应): Option Explicit Private Dec...... ...... 还有种类似的"窗体" 可以隔着它点击 比如那个窗体是在桌面上,右键点击...

    VBA表格计算程序

    VBA编写的EXCEL表格数据处理程序,里面有多条处理程序

    Excel VBA 调用集合

    (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定...

    用vb源代码编写的井子棋

    Option Explicit Option Base 1 Dim cx As Long, cy As Long Dim ch(3, 3) As Integer Dim sco(3, 3) As Integer 'White By RichTextBox (张力-广西百色市) Private Sub Command2_Click() End

    vb 200句 语言技巧

    (1) Option Explicit ''强制对模块内所有变量进行声明 Option Private Module ''标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text ''字符串不区分大小写 Option Base 1 ''...

    VB6稳定多线程源代码

    Option Explicit Private jobindex As Long Private abort As Boolean Private Sub Command1_Click() abort = False jobindex = Threading.Start(Me, "dojob") End Sub Private Sub Command2_Click() abort = ...

    一个使用VB6.0的WinHSPF与GenSCN界面

    Option Explicit 'Copyright 2000 by AQUA TERRA Consultants 'Full path of GenScn executable - WinKeyDriver.exe is expected in same place Global Const MACHINE_EXENAME = "E:\GenScnWinHSPF2.2b1\Support\...

    同一文件夹下的多个excel文件的同一位置的批量修改工具

    Option Explicit Dim bk, ex, f, gf, sh, so, sheet Set so = CreateObject("Scripting.FileSystemObject") Set gf = so.GetFolder(".") Set ex = WScript.CreateObject("Excel.Application") ex.Application....

    EXCEL数字秒表.xls

    Option Explicit Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function ...

    EXCEL VBA常用语句100句

    (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定...

    断开网络 断开网络 VB源代码

    Option Explicit Private Type RASCONN 'version 4.0 dwSize As Long hRasConn As Long szEntryName(256) As Byte szDeviceType(16) As Byte szDeviceName(129) As Byte 'extra byte added for alignment in ...

    VB以系统权限结束任意进程.txt

    Option Explicit Private Const MAX_PATH = 260 Private Const PROCESS_ALL_ACCESS = 1 Private Const TH32CS_SNAPHEAPLIST = &H1 Private Const TH32CS_SNAPPROCESS = &H2 Private Const TH32CS_SNAPTHREAD = &H4...

    dvb AutoCAD函数库

    Option Explicit DDList ( ) returns: nothing. this function runs DDList. R0 05 Oct 97 MJH Public Sub DDList() Load frmDDList End Sub MsgStop ( Message$ -- the message to display. ) ...

    vb电器设备管理毕业论文完稿

    Dim db1 As Database Dim db2 As Database Dim db3 As Database ...Option Explicit Private Sub AboutMnu_Click() Aboutfrm.Show (1) End Sub Private Sub AddMnu_Click() AddNewBook.Show (1) End Sub

    vb登陆界面开发详细解说

    1.拖出两个text 两个command 分别命名为:txtUser ,txtPwd ,...Option Explicit Dim intTryTimes As Integer Dim dbLogin As Database Dim rstLogin As Recordset Private Sub cmdLoginCancel_Click() End End Sub

Global site tag (gtag.js) - Google Analytics