'随机生成进程所需的时间
Public Sub CreateProcessRnd()
Dim i As Single
Call Randomize
i = Int((60 * Rnd) + 1)
mvaintNeedTime = Int(i) '//变量名写错了,是mvarintNeedTime = Int(i)
End Sub为了避免这种情况,最好把“VB-》工具-》选项”中的“需要变量声明”选中,或手工在模块最开始处加一行Option Explicit。
Public Sub CreateProcessRnd()
Dim i As Single
Call Randomize
i = Int((60 * Rnd) + 1)
mvaintNeedTime = Int(i) '//变量名写错了,是mvarintNeedTime = Int(i)
End Sub为了避免这种情况,最好把“VB-》工具-》选项”中的“需要变量声明”选中,或手工在模块最开始处加一行Option Explicit。
你在前面加Option Explicit,以防有诈