<ul id="g60s4"><pre id="g60s4"></pre></ul>
<strong id="g60s4"><nav id="g60s4"></nav></strong>
<ul id="g60s4"></ul>
  • <tr id="g60s4"></tr>
  • 
    
  • 或者

    VBA中的Timer函數用法

    作者:徐小樣 瀏覽:153 發布時間:2018-03-22
    分享 評論 0

    一、題目:

      要求編寫一段代碼,運用 Timer 函數來計算本代碼運行所化的時間。

    二、代碼:

    ?

    1

    2

    3

    4

    5

    6

    7

    8

    Sub 示例_1_040()

      Dim t, i&, a

      t = Timer

      For i = 1 To 1000000

        a = a + i

      Next i

      MsgBox Timer - t & "秒"  ‘返回0.046875秒

    End Sub

    三、代碼詳解

    1、Sub 示例_1_040():宏程序的開始語句。宏名為示例_1_040。
    2、Dim t, i&, a  :聲明變量t,a 均為可變型變量,i為長整型變量。
    3、t = Timer :把系統的時間賦給變量t。
    4、For i = 1 To 1000000 :從1 到 1000000循環。
    5、a = a + i :把a+i的值賦給變量a,實際上是一個累加的過程。
    6、MsgBox Timer - t & "秒" :利用消息框顯示現在的時間減去前面設置的時間,得到運行整個代碼所化的時間。

    Timer 函數

    返回一個 Single,代表從午夜開始到現在經過的秒數。

    Timer 
    說明
    Microsoft Windows中,Timer函數返回一秒的小數部分。


    亚洲精品国产自在久久| 精品无人区麻豆乱码1区2区新区| 精品久久久久久久中文字幕| 日韩精品无码免费一区二区三区| 伊人久久精品无码麻豆一区| 91久久福利国产成人精品| 久久99精品久久久久子伦小说| 国产拍揄自揄精品视频| 国产偷国产偷高清精品| 中文字幕一精品亚洲无线一区| 成人精品综合免费视频| 亚洲国产成人精品无码区花野真一| 久久免费的精品国产V∧| 国产精品9999久久久久| 人妻少妇精品一区二区三区| 日韩AV无码精品人妻系列| 国产女精品视频在ktv| 国产精品成人一区二区三区| 青草青草久热精品观看| 另类国产精品一区二区| 亚洲国产成人久久精品大牛影视| 久久久久99这里有精品10| 99久久久国产精品免费无卡顿| 亚洲精品国产第1页| 4444亚洲国产成人精品| 久久久久成人精品无码中文字幕| 久久精品美女视频| 久久久久国产精品免费网站| 久久久无码精品亚洲日韩蜜桃 | 亚洲av综合日韩| 中文字幕日韩三级| 亚洲av日韩av无码黑人| 精品无码日韩一区二区三区不卡| 丰满日韩放荡少妇无码视频| 亚洲日韩精品一区二区三区| 亚洲AV日韩AV永久无码绿巨人| 1024日韩看片四虎紧急入口| 国产日韩视频在线观看| 日韩国产免费一区二区三区 | 久久亚洲日韩精品一区二区三区| 日韩人妻精品一区二区三区视频 |