发信人: fishy()
整理人: fishy(2000-11-08 09:07:56), 站内信件
|
说明：这个系列给大家提供一些自制的函数的原码，这样以后大家要实现什么功
能的时候就可以直就用了
Public Function Random(Min As Integer, Max As Integer) As Integer
'产生Min到Max之间的随机整数
Randomize
Random = Round(Rnd * (Max - Min + 1) - 0.5) + Min
End Function
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.yes8.com
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.14]
|
|