vb中返回当前系统毫秒数的函数是

vb中返回当前系统毫秒数的函数是Timer。

Timer

函数，返回一个

Single，代表从午夜开始到现在经过的秒数。

语法：

Timer

说明：Microsoft

Windows中，Timer函数返回一秒的小数部分。

Timer

函数示例：

本示例使用

Timer

函数来暂停应用程序。同时用

DoEvents

在暂停期间将控制让给其他进程。

Dim PauseTime, Start, Finish, TotalTime

If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then

PauseTime = 5 ' 设置暂停时间。

Start = Timer ' 设置开始暂停的时刻。

Do While Timer < Start + PauseTime

DoEvents ' 将控制让给其他程序。

Loop

Finish = Timer ' 设置结束时刻。

TotalTime = Finish - Start ' 计算总时间。

MsgBox "Paused for " & TotalTime & " seconds"

Else

End

End If

1 VB的函数是在函数中用函数名=数值来返回数据的：Calc=result

2 Calc(result, constd) 这种调用无法使用函数的返回值

=============================================

不是很明白你的意图：

1 你的If constd = 000000000000001 Then Return result语句中return result的result值在那之前没有给值或计算，

2 你的函数Calc(result, constd)计算结果做何用途？

==============================================

因为你的result只在以下语句中获得数据

If (a + constd) (a + constd) < 2 Then

result = a + constd

Calc(result, constd)

Else

你原先在ELSE中写，因为result没有被赋值，因此始终是初始化的0值，你写到最会，获得的是result = a + constd的值

可以返回数组类型，例子代码：

    MsgBox Join(fun1(), "|")

End Sub

Function fun1()

    fun1 = Array("abc", "def")

End Function

不能。

在vb中，return语句并不是用在函数的返回值上，这一点跟C和C++不同。主要用在下面两个语句：

1) GoSubReturn 语句

语法：

GoSub line

line:

Return

必要的 line 参数可以是任何行标签或行号

2) OnGoSub + Return 语句

语法：

On expression GoSub destinationlist

expression： 必要参数。数值表达式，其运算结果应该是一个界于 0 到 255 之间的整数，包含 0 和 255。如果 expression 的计算结果不是一个整数，则它会先四舍五入为一个整数。 

destinationlist： 必要参数。行号或行标签的列表，之间要以逗号隔开。