<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    Jcat
    寵辱不驚,閑看庭前花開花落~~
    posts - 173,comments - 67,trackbacks - 0
    Options
    Option Explicit

    You must explicitly define each variable that you use.

    Option Private Module
    You can force all procedures in a module to be private - even those declared with the Public keyword.
    You can omit the Private keyword from your Sub declarations.

    Option Base [01]
    The lower bound of an array, created using the Array function, is determined by Option Base statement at the top of the module. The default lower bound is 0


    Declaring Variables
    Dim ?變量? As ? String
    變量?
    = ? " initialization "

    Const ?常量? As ? String ? = ? " initialization "

    Dim ?定長字符串? As ? String ? * ? 10
    定長字符串?
    = ? " 超過ten個無效(中文英文都算1個,看來編碼用的unicode) "



    Executing Sub from another Procedure
    Option ? Explicit


    Sub ?executingWay()
    ??? add?
    " flame " ,? 1 ,? 2

    ??? Call ?add( " call " ,? 1 ,? 2 )

    ??? Dim ?subName? As ? String :?subName? = ? " add "
    ??? Run?subName,?
    " run " ,? 1 ,? 2
    End?Sub


    Sub ?add(exeBy? As ? String ,?x? As ? Integer ,?y? As ? Integer )
    ??? MsgBox ?exeBy? & ? " :? " ? & ?(x? + ?y)
    End?Sub


    Executing Function from another Procedure
    Option ? Explicit

    Function ?executingWay()
    ??? Debug.Print?add(
    " flame " ,? 1 ,? 2 )

    ??? Dim ?funcName??? As ? String :?funcName? = ? " add "
    ??? Debug.Print?Run(funcName,?
    " run " ,? 1 ,? 2 )
    End?Function


    Function ?add(exeBy? As ? String ,?x? As ? Integer ,?y? As ? Integer )? As ? String
    ??? add?
    = ?exeBy? & ? " :? " ? & ?(x? + ?y)
    End?Function

    posted on 2008-03-20 11:16 Jcat 閱讀(235) 評論(0)  編輯  收藏 所屬分類: VBA

    只有注冊用戶登錄后才能發表評論。


    網站導航:
     
    主站蜘蛛池模板: 亚洲日本在线免费观看| 国产色爽免费视频| 亚洲日韩精品射精日| 亚洲国产第一站精品蜜芽| 美女黄色免费网站| 久久精品免费视频观看| 97视频免费在线| 亚洲天堂一区二区三区| 亚洲无砖砖区免费| 亚洲乱码一二三四区乱码| 99久久这里只精品国产免费| 亚洲福利精品一区二区三区 | 亚洲av无码乱码国产精品| 亚洲fuli在线观看| 成年大片免费高清在线看黄| 亚洲?V无码乱码国产精品| 亚洲成av人片在线看片| 精品无码国产污污污免费网站国产 | sss在线观看免费高清| 欧美男同gv免费网站观看| 中文字幕无码精品亚洲资源网久久| 成人A毛片免费观看网站| 久久久久久久尹人综合网亚洲| 亚洲男同gay片| 无码日韩精品一区二区免费暖暖 | 国产亚洲3p无码一区二区| 亚洲国产成人综合精品| 中文字幕无码毛片免费看| 午夜免费福利影院| 久久亚洲私人国产精品| 最新仑乱免费视频| eeuss免费影院| 伊人久久综在合线亚洲2019| 免费毛片在线看片免费丝瓜视频 | 亚洲精品视频免费| 日韩毛片无码永久免费看| 一级毛片视频免费观看 | 国产h肉在线视频免费观看| 精品亚洲av无码一区二区柚蜜| 国产在线jyzzjyzz免费麻豆 | 亚洲午夜精品久久久久久浪潮|