13问答网 > 在VB中输入以下代码 Sub a(i) f = Timer + i Loop End Sub Private Sub Command1_Click() FontSize = 12

在VB中输入以下代码 Sub a(i) f = Timer + i Loop End Sub Private Sub Command1_Click() FontSize = 12

2025-03-11 04:39:02

推荐回答（2个）

回答1：

你应该在你的子过程a内部用DoEvents来把控制权还给系统，这样就不是造成程序假死的现象。建议使用API函数Sleep来实现延时：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
FontSize = 12
Print "现在输出第一行"
Print "等待5秒钟……"
DoEvents  '假如没有这个，上面那行就会在延时结束后才会出现
Sleep 5000  '延时5000毫秒即5秒，下同
Print
Print "现在输出第二行"
Print "等待10秒钟……"
Print
DoEvents  '这行也一样的意思
Sleep 10000
Print "现在输出第三行"
End Sub

回答2：

语文捉鸡~ 你把 a 的代码贴出来。