1. Sub 计算程序运行时间()
    2. a=Time()
    3. time()-a
    4. End Sub