程序记时

sub  tim

dim t

t=timer

语句

msgbox timer-t

end sub