如何在主函数中控制事件如题发生。。
用timer在主函数中怎么用。。

解决方案 »

  1.   

    vb语法
    按几率执行代码
    Sub aaa()
        Select Case Int(Rnd * 100 + 1)
            Case 1
                 '1%几率的动作
            Case 2 To 11
                 '10%几率的动作
            Case 12 To 31
                 '20%几率的动作
        '    ....自己设计几率的比例
        '    ...
        '    ...
            Case Else
                 '剩余几率的动作
        End Select
    End Sub