变体性能测试
Option Explicit
Sub test()
Dim startTime
startTime = Time()
'请将i/j/a三个变量全部设置为变体并运行本程序,记下时间;
'然后再将三者都设置为Integer并运行,再记下时间,并与前者比较。
'Dim i, j, a
Dim i As Integer, j As Integer, a As Integer
'每次声明都要写完整,不然读不出
'如果不申明,获取的是变体类型,太费内存了,执行效率也很低下
For i = 1 To 20000
For j = 1 To 20000
a = 123
Next j
Next i
MsgBox "共计运行 " & DateDiff("s", startTime, Time()) & " 秒"
End Sub
声明后用时是不申明的一半
数字类型
- integer %
- long &
- double # 支持小数
- currency @支持小数
两边都是数字字符串,用加号的作用相当于&
所以 连字符用的 &左右要留一个空格
Option Explicit
Sub 类型()
Dim a
'a = 30000 * 2