求一个生成随即数的程序
我想请教大家一个问题，就是我有个论坛，我现在想让它的 “论坛总在线人数” 显示的时候，由程序随机生成。比如（范围在300-1000之间）然后后面所显示的“在线会员数 和 访客数”都随机生成。要保证每次显示的数字，“在线会员数”+“访客数”=“论坛总在线人数”谁帮我写个这样的程序？ 问题点数：20、回复次数：8Top
1 楼KimSoft（革命的小酒天天醉-http://blog.csdn.net/kimsoft/）回复于 2005-12-21 11:14:20 得分 10
Private Function GetRndNumber()
Dim intRndNumber
Dim dtmNow
Randomize
intRndNumber = Int(90000 * Rnd) + 10000
dtmNow = Now()
GetRndNumber = Year(dtmNow) & _
Right(String(2, "0") & Month(dtmNow), 2) & _
Right(String(2, "0") & Day(dtmNow), 2) & "_" & _
Right(String(2, "0") & Hour(FormatDateTime(dtmNow, vbShortTime)), 2) & _
Right(String(2, "0") & Minute(dtmNow), 2) & _
Right(String(2, "0") & Second(dtmNow), 2) & _
"_" & intRndNumber
End FunctionTop
2 楼KimSoft（革命的小酒天天醉-http://blog.csdn.net/kimsoft/）回复于 2005-12-21 11:15:29 得分 0
以为你只要个随机数呢，看错了。呵呵。不过上面的是原理。Top
3 楼ybfqlyq（Rossy|http://blog.ybfq.com）回复于 2005-12-21 11:30:31 得分 0
呵呵。。。。
BS一下。Top
4 楼chinastorm（JOBS.CN）回复于 2005-12-21 11:48:53 得分 0
论坛总在线人数不能用随机数，在线会员数+访客数用随机数就行了
Top
5 楼benimaru10101954（新用户）回复于 2005-12-21 15:45:34 得分 0
能不能帮我写详细点呢 就象楼上的说的那样“论坛总在线人数不能用随机数，在线会员数+访客数用随机数就行了”Top
6 楼baby97（小雕（Asp→.Net中...）回复于 2005-12-21 16:16:20 得分 0
坐两个随机数相加就可以了。Top
7 楼AitStudio（轻罗小扇）回复于 2005-12-21 17:07:04 得分 10
dim a1
dim a2
randomize
a1=int(rnd(1000)+1)
randomize
a2=int(rnd(1000)+1)
Top
8 楼benimaru10101954（新用户）回复于 2005-12-22 13:04:59 得分 0
谢谢Top
