国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:08:00
字體:
供稿:網(wǎng)友

第1.40例 Timer 函數(shù)

一、題目:

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

二、代碼:

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

Timer 函數(shù)

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

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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 浑源县| 河南省| 新兴县| 周宁县| 二连浩特市| 大理市| 湟中县| 高青县| 崇信县| 延寿县| 新丰县| 芜湖市| 枣阳市| 六安市| 衡阳市| 丹东市| 岳阳市| 沧源| 龙胜| 澎湖县| 盐城市| 六枝特区| 三穗县| 朝阳县| 紫阳县| 台中县| 惠东县| 凌海市| 新巴尔虎左旗| 定陶县| 中牟县| 封丘县| 新乡市| 孟州市| 苏州市| 灵石县| 登封市| 乐业县| 庆阳市| 将乐县| 原阳县|