<code id="6mcsu"></code>
<li id="6mcsu"></li>
<li id="6mcsu"><dl id="6mcsu"></dl></li>
  • <code id="6mcsu"><tr id="6mcsu"></tr></code>
    或者

    VBA中的Timer函數(shù)用法

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

    一、題目:

      要求編寫一段代碼,運(yùn)用 Timer 函數(shù)來(lái)計(jì)算本代碼運(yùn)行所化的時(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():宏程序的開(kāi)始語(yǔ)句。宏名為示例_1_040。
    2、Dim t, i&, a  :聲明變量t,a 均為可變型變量,i為長(zhǎng)整型變量。
    3、t = Timer :把系統(tǒng)的時(shí)間賦給變量t。
    4、For i = 1 To 1000000 :從1 到 1000000循環(huán)。
    5、a = a + i :把a(bǔ)+i的值賦給變量a,實(shí)際上是一個(gè)累加的過(guò)程。
    6、MsgBox Timer - t & "秒" :利用消息框顯示現(xiàn)在的時(shí)間減去前面設(shè)置的時(shí)間,得到運(yùn)行整個(gè)代碼所化的時(shí)間。

    Timer 函數(shù)

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

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


    久久亚洲中文字幕精品一区四| 亚洲AV无码一区东京热| 无码人妻一区二区三区在线| 中文字幕无码精品亚洲资源网久久| 亚洲欧洲精品无码AV| 最近中文字幕完整在线看一| 亚洲AV无码一区二区三区国产| 无码中文字幕乱在线观看| 伊人久久无码精品中文字幕| 亚洲av中文无码乱人伦在线r▽| 精品无码人妻一区二区三区品| 国产AV无码专区亚洲AWWW| 亚洲欧美日韩中文字幕一区二区| 久久精品无码一区二区日韩AV| 无码少妇一区二区三区浪潮AV| 无码av免费毛片一区二区| 精品久久久久久久久中文字幕 | 最近中文字幕大全免费视频 | 中文无码不卡的岛国片| 久久久久久久亚洲Av无码| 一本大道东京热无码一区| 人妻系列AV无码专区| 中文字幕人成乱码在线观看| 乱人伦中文字幕在线看| 在线综合+亚洲+欧美中文字幕| 亚洲日韩中文字幕在线播放| 久クク成人精品中文字幕| 中文字幕乱码免费视频| 日韩中文字幕精品免费一区| 无码国内精品久久人妻麻豆按摩 | 高清无码午夜福利在线观看| 91中文在线观看| 在线天堂资源www在线中文| 最好看最新的中文字幕免费| 在线观看中文字幕| 无码毛片一区二区三区中文字幕| 最近中文字幕高清中文字幕无 | 中文字幕人妻无码一区二区三区| 精品无码免费专区毛片| 中文人妻无码一区二区三区| 亚洲av中文无码乱人伦在线播放|