望高手给予指点！！！（程序看不懂） - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 望高手给予指点！！！（程序看不懂）

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 874 人关注过本帖

标题：望高手给予指点！！！（程序看不懂）

取消只看楼主加入收藏

二吾

等　级：新手上路
帖　子：25
专家分：0
注　册：2010-7-7
结帖率：88.89%

楼主

已结贴√ 问题点数：20 回复次数：4

望高手给予指点！！！（程序看不懂）

程序代码：

Static Sub DelayLoop(DelayTime)
Const SecondInDay = 24& * 60& * 60&
LoopFinish = Timer + DelayTime               'Timer是函数
If LoopFinish > SecondInDay Then
   LoopFinish = LoopFinish - SecondInDay
   Do While Timer > LoopFinish
   Loop
End If
Do While Timer < LoopFinish
Loop
End Sub

Private Sub Form_Click()
FontSize = 12
Print "现在输出第一行"
Print "等待5秒钟……"                        '运行结果有问题
DelayLoop 5                                 '调用过程方法一
Print
Print "输出第二行"
Print "等待10秒钟……"
Call DelayLoop(10)                          '调用过程方法二
Print
Print "输出第三行"
End Sub

运行结果与预计的不同，您可以在编译器上运行看看，谢谢了！！！