'随机生成进程所需的时间
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。