module1.bas

来自「本程序在JAVA编程环境实现了递归下降法的一个教学演示系统,可方便理解递归下降法」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Option Explicit
Public s As Long

Public Sub Sleep()
Dim t As Long
For t = 0 To s
Next t
DoEvents
End Sub