vb怎样通过简单语句输出输出现在的毫秒数？不用定义新的数据类型的，谢谢

Timer 函数

返回一个 Single，代表从子夜开始到现在经过的秒数。

输出毫秒数就可以 Print Timer * 1000

您可以用API函数GetSystemTime或GetLocalTime返回的SYSTEMTIME结构的参数获得系统日期和精确到毫秒的系统时间。
GetSystemTime返回UTC时间，GetLocalTime返回当地时间。
如下例：
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Sub Timer1_Timer()
Dim s As String
Dim sys As SYSTEMTIME

GetSystemTime sys ‘或者 GetLocalTime sys

s= CStr(sys.wYear) + "," + CStr(sys.wMonth) + "," + CStr(sys.wDay)
Lab