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 閱讀(233) 評論(0)  編輯  收藏 所屬分類: VBA

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


          網(wǎng)站導航:
           
          主站蜘蛛池模板: 报价| 中西区| 金平| 佳木斯市| 会理县| 西乌| 红安县| 长乐市| 剑河县| 建阳市| 五指山市| 凉山| 安泽县| 镇沅| 冕宁县| 山东省| 夏邑县| 兰考县| 红安县| 河间市| 屏边| 万州区| 邵武市| 清水河县| 屯昌县| 元氏县| 三穗县| 河津市| 德钦县| 慈溪市| 泽库县| 鹤壁市| 余庆县| 伊宁县| 安阳市| 枣阳市| 青州市| 龙岩市| 盱眙县| 平阴县| 海城市|