Randomize 语句

初始化随机数生成器。

Randomize [number]

number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器,赋给它新的种子值。如果省略 number,则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize,则第一次调用 Rnd 函数(无参数)时,它将使用相同的数字作为种子值,随后使用最后生成的数值作为种子值。

注意 要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。

下面例子举例说明如何使用 Randomize 语句:

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
Continue reading

用一条SQL得到Access数据库中的随机记录集.

针对“用一条SQL得到数据库中的随机记录集”问题在网上已经有很多答案了:
SQL Server 2000:
SELECT TOP n * FROM tanblename ORDER BY NEWID()
Access
SELECT TOP n * FROM tanblename ORDER BY rnd([一个自动编号字段])

好了!就说说这个Access的!

打开Access2003建立一个带有自动编号字段的表 T1 : id_(auto),content_
随便插入些许记录

然后,点选“查询”新建一个查询,“设计视图”,选择T1,然后选择SQL视图(这样可以写自己的SQL了,比较习惯),好了,写吧:

SELECT TOP 3 [content_] FROM [T1] ORDER BY rnd([id_])

然后运行一下结果,嗯记住了是什么结果哦。
Continue reading

“Ever The Same”

今天翻出来重新回响.

We were drawn from the weeds
We were brave like soldiers
Falling down under the pale moonlight
You were holding to me
Like a someone broken
And I couldn't tell you but I'm telling you now

Just let me hold you while you're falling apart
Just let me hold you so we both fall down

Fall on me
Tell me everything you want me to be
Forever with you forever in me
Ever the same

Continue reading

自.

自厉.
最近是不是有些太放纵?

肆意自己沉默,肆意自己吃东西.
.
时间又被我浪费过去了.
还是一样的么?
重复的时间,重复的下雨天.
[stun]

七个问题.

问题一,如果你家附近有一家餐厅,东西又贵又难吃,桌上还爬着蟑螂,你会因为它很近 很方便,就一而再、再而三地光临吗?
回答:你一定会说,这是什么烂问题,谁那么笨,花钱买罪受?
可同样的情况换个场合,自己或许就做类似的蠢事。 不少男女都曾经抱怨过他们的情人或配偶品性不端,三心二意,不负责任。明知在一起没 什么好的结果,怨恨已经比爱还多,但却“不知道为什么”还是要和他搅和下去,分不了 手。说穿了,只是为了不甘,为了习惯,这不也和光临餐厅一样?

–做人,为什么要过于执著?!

问题二,如果你不小心丢掉100块钱,只知道它好像丢在某个你走过的地方,你会花200块 钱的车费去把那100块找回来吗?
回答:一个超级愚蠢的问题。

可是,相似的事情却在人生中不断发生。做错了一件事,明知自己有问题,却死也不肯认错,反而花加倍的时间来找藉口,让别人对自己的印象大打折扣。被人骂了一句话,却花了无数时间难Continue reading