[此贴子已经被作者于2007-6-25 13:32:33编辑过]
dim tPrivate Sub Timer1_Timer()
t = t + 1v = Val(Text1) / 3600 'text1表示车速
s = v * t ,s表示距离End Sub思路就是这样.
[此贴子已经被作者于2007-6-26 2:12:06编辑过]