Function sj(cs1,cs2)'随机数
Dim MyValue
Randomize
MyValue = Int(((cs2-cs1+1) * Rnd()) + cs1)
sj= MyValue
End Function` 在这里插入代码片
随机时间按键精灵
最新推荐文章于 2024-07-20 11:23:25 发布
Function sj(cs1,cs2)'随机数
Dim MyValue
Randomize
MyValue = Int(((cs2-cs1+1) * Rnd()) + cs1)
sj= MyValue
End Function` 在这里插入代码片