<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函數(shù)用法

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

    一、題目:

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

    二、代碼:

    ?

    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ǒng)的時間賦給變量t。
    4、For i = 1 To 1000000 :從1 到 1000000循環(huán)。
    5、a = a + i :把a+i的值賦給變量a,實際上是一個累加的過程。
    6、MsgBox Timer - t & "秒" :利用消息框顯示現(xiàn)在的時間減去前面設(shè)置的時間,得到運行整個代碼所化的時間。

    Timer 函數(shù)

    返回一個 Single,代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。

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


    精品国产品香蕉在线观看| 亚洲精品中文字幕无乱码麻豆 | 日韩人妻无码精品无码中文字幕| 国产精品久久久香蕉| 亚洲精品无码久久久久久久| 无码精品日韩中文字幕| 秋霞久久国产精品电影院| 2020国产精品视频| 日韩精品国产自在久久现线拍| 91麻豆精品国产| 国产伦精品一区二区三区视频小说| 亚洲AV永久无码精品一百度影院| 日韩亚洲欧洲在线com91tv| 国产精品十八禁在线观看| 国内精品国语自产拍在线观看91| 在线精品自偷自拍无码中文| 欧乱色国产精品兔费视频| 亚洲国产精品人久久电影| 91精品国产免费久久国语蜜臀| 久久久久亚洲精品无码蜜桃| 亚洲精品国产自在久久| 日韩美一区二区三区| 亚洲精品人成网线在线播放va| 国产精品久久久久9999高清| 亚洲精品午夜在线观看| 1024你懂的国产精品| 7m凹凸精品分类大全免费| 3d动漫精品一区视频在线观看 | 日韩精品无码免费视频| 日韩一区二区三区视频| 日韩va中文字幕无码电影| 日韩插啊免费视频在线观看| 国产69精品久久久久观看软件| 99国产精品永久免费视频| 亚洲а∨天堂久久精品9966| 日韩国产精品视频| 色综合99久久久无码国产精品| 国产精品无码专区AV在线播放| 精品国产一区二区三区香蕉事| 国产精品天堂avav在线| 日韩电影久久久被窝网|