飞机起飞

来源：百度文库编辑：神马文学网时间：2024/04/25 12:56:57

vba 代码：
Sub 飞机起飞()
Dim 时间 As Long
For j = 1 To 100
For i = 1 To 400
ActiveSheet.Shapes("Picture 3").IncrementLeft -1
时间 = Timer + 0.09
Do
DoEvents
Loop Until Timer > 时间
Next
ActiveSheet.Shapes("Picture 3").Flip msoFlipHorizontal
For k = 1 To 400
ActiveSheet.Shapes("Picture 3").IncrementLeft 1
时间 = Timer + 0.09
Do
DoEvents
Loop Until Timer > 时间
Next
ActiveSheet.Shapes("Picture 3").Flip msoFlipHorizontal
Next
End Sub

源文件下载：
http://u.xunzai.com/fileview_168312.html

飞机起飞飞机起飞前截下巨贪（图） - 美国垂直起飞的新飞机胜过直升机美国US Airways飞机起飞失败，落入哈德森河（图）军机体制难造民机体制之痛致中国大飞机难起飞英国胖夫妇共重241公斤坐在一起飞机难起飞欧洲欲造太空飞机可从跑道起飞上太空（图）李作鹏：九一三事件我为何没阻拦林彪飞机起飞？掩耳盗铃-李作鹏：九一三事件我为何没阻拦林彪飞机起飞？-中华网博客李作鹏：九一三事件我为何没阻拦林彪飞机起飞？ - 嗨！历史的日志 - 网易博客李作鹏：九一三事件我为何没阻拦林彪飞机起飞？ - 嗨！历史的日志 - 网易博客黑马起飞天鹅起飞黑马起飞黑马起飞黑马起飞黑马起飞文献综述--拂晓起飞起飞，黄河三角洲通达信公式黑马起飞通达信公式黑马起飞通达信黑马起飞进入起飞线通达信--黑马起飞