VB6 函数Space和String拼速度，结果速度一样
发表于 2024年3月14日 08:27
新建From1（窗体），新建Command1（按钮CommandButton），代码：
返回列表Private Sub Command1_Click()
Dim strA As String
Dim strB As String
Const lngMax As Long = 100000000
Dim lngTickStartTime As Long
Dim lngTickEndTime As Long
lngTickStartTime = GetTickCount '获取开始时间 ----------------需要计算时间的代码 V----------------
strA = Space(lngMax)
lngTickEndTime = GetTickCount '获取结束时间 ----------------需要计算时间的代码 A----------------
'将时间差值输出
Dim strShow As String
strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)
Debug.Print "1: " & strShow
strA = String(lngMax, " ")
strShow = f_TimeStampToStr(lngTickEndTime - lngTickStartTime, 0)
Debug.Print "2: " & strShow
End Sub运行结果：
1: 125毫秒
2: 125毫秒多次计算都是一样的速度。
关于时间请参考：
《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子程序 f_TimeStampToStr》
