无毒一身轻——21天改变体质

  人生许多的不幸和悲哀多数都是源自于无知与疏忽,无知就是你该知道的不知道,疏忽就是你该注意而没有注意,这就非常非常不值得。疏忽所造成的伤害远远大过无知,这两个都必需要花些时间。

  有一个东西,是全世界没有象祖国大陆蔓延那么多的,而且你看看现在年轻人身体为什么越来越差,你看看他们肚子饿,在各大机场,甚至在贵宾室,还有在工地,我看到他们忙得没有时间吃饭。

  还有科学家,为什么身体越来越差,去年二月台湾发生了一件很大的新闻,很优秀的三个大学教授,很年轻的,都四十多岁,最年轻的才41岁,两个礼拜死了三个优秀的大学教授,你有空去看看。为什么他们身体这么差?你看他们平时很忙啊,口渴的时候没时间喝水,你知道他们喝什么吗?就是喝可乐汽水,你看现在小孩子是不是都这样,年轻人是不是都这样。肚子饿了,没有时间吃饭,吃什么?吃方便面。

  祖国大陆是全世界方便面销量最大的地区,而且年轻人吃方便面的数字Continue reading

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