vb不用api可不可以把系统时间精确到1/10秒
form1里有控件
label1 '用来显示时间
timer1 '计时器 设置interval=1000,记录时间
timer2 '计时器 设置interval=100,记录1/10s
Public ltime As String '存放时间
Public i As Integer '存放1/10秒
Private Sub Form_Load()
i = -1
End Sub
Public Sub Timer1_Timer()
ltime = CStr(Time)
End Sub
Public Sub Timer2_Timer()
i = i + 1
If i > 9 Then i = 0
Label1.Caption = ltime & "." & i
End Sub