1.托福作文写作范文训练一
2.求“好友买卖”源代码
3.VBA PPT 文本框设置
4.Black Light Shines的中文歌词
Disintegration (Remastered)
歌手：The Cure
The Cure - Disintergration
oh i miss the kiss of treachery
噢 我怀念那叛变一吻
the shameless kiss of vanity
怀念那空虚而不知廉耻的一吻
the soft and the black and the velvety
温情款款 一袭黑衣 天鹅绒般柔滑的身段
up tight against the side of me
紧紧依偎在我身旁
and mouth and eyes and heart all bleed
嘴巴眼睛甚至心全都血流不止
and run in thickening streams of greed
如黏稠的贪婪之河奔流不息
as bit by bit it starts the need
渐渐地一发不可收拾
to just let go my party piece
只为了摧毁我的派对
oh i miss the kiss of treachery
噢 我怀念那叛变一吻
the aching kiss before i feed
怀念那揪心一吻
the stench of a love for a younger meat
在我为浊臭之爱献上鲜活的肉体
and the sound that it makes
和那夜夜销魂的浪叫之前
when it cuts in deep
当我感到心如刀割
the holding up on bended knees
双膝跪地为此悔过
the addiction of duplicities
但依旧口是心非
as bit by bit it starts the need
渐渐地一发不可收拾
to just let go my party piece
只为了摧毁我的派对
but i never said i would stay to the end
但我绝不许诺 我会和你走到最后
so i leave you with babies and hoping for frequency
于是我狠心丢下你和孩子 渴望重头再来
screaming like this in the hope of the secrecy
如此这般撕心呐喊 但愿不会走漏风声
screaming me over and over and over
一遍又一遍撕心呐喊吧
i leave you with photographs
照片我也留给了你
pictures of trickery
都是些骗你的画面
songs about happiness murmured in dreams
歌中唱的都是梦中呓语的虚假幸福
when we both us knew
当你我最后明白真相
how the ending would be...
结局该如何收场呢
so it's all come back round to breaking apart again
一切重头再来只会令关系再度破裂
breaking apart like i'm made up of glass again
分开全都源于我就是个玻璃人
making it up behind my back again
玻璃打造了我的全部
holding my breath for the fear of sleep again
唯有屏住呼吸心怀对睡眠的恐惧
holding it up behind my head again
我不得不苦苦支撑着
cut in deep to the heart of the bone again
心如刀割以致锥心刺骨
round and round and round
无尽的轮回啊
and it's coming apart again
最后的结局就是诀别
over and over and over
悲剧一遍又一遍上演
now that i know that i'm breaking to pieces
既然我知道我会粉身碎骨
i'll pull out my heart
我会掏出我的心
and i'll feed it to anyone
将它献给随便哪个人
crying for sympathy
为获同情苦苦哀求
crocodiles cry for the love of the crowd
就像鳄鱼为了人群中的爱流泪哀求一样
and the three cheers from everyone
博得每个人的三声喝彩
dropping through sky
然后从天上坠落
through the glass of the roof
穿过玻璃穹顶
through the roof of your mouth
穿过你的上颚
through the mouth of your eye
穿过你的瞳孔
through the eye of the needle
穿过针眼
it's easier for me to get closer to heaven
这样于我而言更易接近天堂
than ever feel whole again
而非肤浅地再次来过
i never said i would stay to the end
我绝不许诺 我会和你走到最后
i knew i would leave you with babies and everything
我知道我会把孩子和一切东西都丢给你
screaming like this in the hole of sincerity
透过真诚的洞穴撕心呐喊
screaming me over and over and over
一遍又一遍撕心呐喊吧
i leave you with photographs
照片我也留给了你
pictures of trickery
都是些骗你的画面
stains on the carpet
地毯上的污点
and stains on the memory
和记忆里的污点并存
songs about happiness murmured in dreams
歌中唱的都是梦中呓语的虚假幸福
when we both of us knew
当你我最后明白真相
how the end always is
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
how the end always is...
结局无论如何已成定局
扩展资料：
The Cure 在1989年推出了这张大热门专辑《Disintegration》。
《Disintegration》同时也是 Robert Smith“悲情三部曲”的第二部(第一部是《Pornography》，第三部是《Bloodflowers》)，显得黑暗诱人，带着神秘和忧郁，整张专辑有着催眠曲一样的感觉，没有了乐队以前的黑暗绝望的作风，尽管专辑的基调比以前更为忧郁。
The Cure 的音乐罕见的变得迷人了起来。好像在无垠的大海里，仰望夜空闪亮的星光，慢慢下沉，痛苦浸透，安详地窒息。
铺天盖地的深蓝色键盘，孤寂而灿烂的吉他，黑暗中幻化出彩色光芒的贝司，沉稳压抑而华丽眩目的鼓，还有 Robert Smith 凄美冷艳的歌声。
托福作文写作范文训练一
关于2012伦敦奥运会开幕式歌曲
据英国媒体报道，英国著名摇滚乐队缪斯（Muse）创作的《Survival》被选为2012年伦敦奥运会官方歌曲，而今年的伦敦奥运会将从2012年7月27日到8月12日在伦敦举行。《Survival》作为钦定的奥运官方歌曲将会在伦敦奥运会多场比赛，运动员入场以及奖牌颁发仪式上播放。据传。2012伦敦奥运会开幕式歌曲包括86首备选背景音乐，由丹尼·博伊尔泄露。2012伦敦奥运会开幕日期播放歌曲列表如下:
Captain Algernon Drummond/William Johnson Cory - 'Eton Boating Song'
Elgar/AC Benson - 'Land of Hope and Glory'
The Jam - 'Going Underground'
Muse - 'Map of the Problematique'
Big Ben Chimes
Sex Pistols - 'God Save the Queen'
The Clash - 'London Calling'
Mike Oldfield - 'Tubular Bells'
Mike Oldfield - 'In Dulci Jubilo'
Vangelis - 'Chariots of Fire'
BBC News 1954
Arthur Wood - The Archers Theme
Winifred Atwell - 'Black and White Rag'
Sugababes - 'Push the Button'
OMD - 'Enola Gay'
David Rose - 'The Stripper'
Lionel Bart - 'Food Glorious Food'
Irwin Kostal, Richard Sherman, Robert Sherman - 'Bedknobs and Broomsticks'
Rizzle Kicks - 'When I Was a Youngster'
Eric Clapton - 'Wonderful Tonight'
Colin Tully - Gregory's Girl Theme
William Pitt - 'City Lights'
The Who - 'My Generation'
The Rolling Stones - 'Satisfaction'
Millie Small - 'My Boy Lollipop'
The Kinks - 'All Day and All of the Night'
The Beatles - 'She Loves You'
Mud - 'Tiger Feet'
Led Zeppelin - 'Trampled Under Foot'
The Specials - 'A Message to You Rudy'
David Bowie - 'Starman'
Simon May - EastEnders Theme
The Shipping Forecast
Sir Hubert Parry/William Blake - 'Jerusalem'
Elgar - 'Nimrod'
Handel - 'Arrival of the Queen of Sheba'
Eric Coates - 'Dambusters March'
Handel - 'Music for the Royal Fireworks'
Monty Norman - James Bond Theme
Queen - 'Bohemian Rhapsody'
Sex Pistols - 'Pretty Vacant'
Duran Duran - 'The Reflex'
New Order - 'Blue Monday'
Frankie Goes to Hollywood - 'Relax'
Soul II Soul - 'Back To Life'
Happy Mondays - 'Step On'
Eurythmics - 'Sweet Dreams (Are Made of This)
The Verve - 'Bittersweet Symphony'
Prodigy - 'Firestarter'
Underworld - 'Born Slippy'
Jaan Kenbrovin, John William Kellette - 'I'm Forever Blowing Bubbles'
Muse - 'Uprising'
Kano & Mikey J - 'Random Antics'
Tinie Tempah - 'Pass Out'
MIA - 'Paper Planes'
Coldplay - 'Viva La Vida'
The Chemical Brothers - 'Galvanize'
Franz Ferdinand - 'Take Me Out'
Kaiser Chiefs - 'I Predict a Riot'
Roll Deep - 'Shake a Leg'
Adele - 'Rolling in the Deep'
Oasis - 'The Hindu Times'
Oasis - 'Wonderwall'
Emeli Sande - 'Heaven'
William Monk/Henry Francis - 'Abide With Me'
Pink Floyd - 'Eclipse'
The Beatles - 'The End'
The Beatles - 'Hey Jude'
David Bowie - 'Heroes'
Eric Spear - Coronation Street Theme
Ron Grainer - Doctor Who Theme
John Philip Sousa - Monty Python Theme/'The Liberty Bell'
David Bowie - 'Absolute Beginners'
Blur - 'Song 2'
Dizzee Rascal - 'Bonkers'
Tigerstyle - 'Nacnha Onda Nei' (contains Michael Jackson - 'Billie Jean', Queen & David Bowie - 'Under Pressure' and Ilaiyaraaja - 'Naanthaan Ungappanda')
Arctic Monkeys - 'I Bet You Look Good on the Dancefloor'
Mark Ronson & Amy Winehouse - 'Valerie'
Radiohead - 'Creep'
求“好友买卖”源代码
?托福作文写作范文训练一?由托福考试栏目为您提供，童鞋们，GRE考试的日子正在一步步逼近，如果觉得下面的方法适合你，就赶快利用起来吧，我祝大家考试顺利!
题目：
阅读部分：出土了一种用陶土做的disk，一面有花纹，一面没花纹。没花纹那面周围有一圈凸起刚好形成了一个浅浅的碗。disk下面还有短短的手柄。这种disk有三种可能的用法。
1、用来做饭，disk无花纹面的碗刚好可以盛放食物，而手柄方便烹饪的时候移动disk。
2、用来当鼓，往disk上蒙上兽皮，就可以形成一个腔体。人们可以一手持手柄，一手击鼓。
3、用作镜子。往无花纹面里到些液体，就可以当镜子用了。而且，这种用法很像古希腊的手持镜子。
听力部分：上用法都不可信
? 不可能用于烹饪的。想一想我们家里用的pans and pots，使用之后会blackend or discolored，因为长时间接触高温，炊具势必会发黑。但是出土的200件disk中没有一个出现了这种情况。
? 做鼓使用也不可能发出好听的声音。这中disk使用陶土制作，即使蒙上兽皮敲击的声音也远不如用兽皮和木头制作的鼓好听。此外，陶土制作的鼓非常沉，使用不便。
? 无法当作镜子。倒入液体后，disk就必须被水平放置，这样人们可以弯腰照镜子。但是被水平放置后，有花纹的那一面就看不见了。古希腊的镜子是手持的，垂直拿在手里，这样可以随时看见镜子的花纹。
范文：
About the function of disks, the reading mentions three hypotheses, which are refuted by the listening one by one with the following arguments.
The first possible function of disks, raised by the reading, is for cooking. The listening, however, is opposite to this point by further explaining that after being heated for a long time, cookers must be blackened or discolored, just like pans and pots at our home. But the fact is that among the 200 unearthed disks, none of them is blackened or discolored.
Regarding to the drum theory, the listening still disagrees with it. For one thing, it could not produce sound that is pleasing to ears for this kind of disk is made of clay, which, even though covered with hides, could not produce sound that is better than that produced by drums made of hides and wood. For another, drums made of clay are too heavy, making it much inconvenient to use. The listening, therefore, casts doubt on what the reading indicates.
Finally, the reading states that disks could serve as mirrors. This opinion is in sharp contrast with the belief in the listening that it is unlikely that disks are used as mirrors. After pouring liquid, disks must be laid horizontally. And people could look in the mirror by bending down. But the problem is that with the mirror being horizontal, the side which is decorated could not be seen. But the Greek mirrors are held by hands so that the decorative pattern is visible.
VBA PPT 文本框设置
终于编程编出来了，下面是代码：
Dim sFind As String '注释: 声明查找变量
Dim FileType, FiType As String '注释: 声明文件类型
Private Sub Form_Load() '注释: 设置程序启动时的大小
Me.Height = 6000
Me.Width = 9000
End Sub
Private Sub Form_Resize()
On Error Resume Next '注释：出错处理
RichTextBox1.SelColor = vbGreen '默认字体颜色
Me.RichTextBox1.BackColor = vbBlack
RichTextBox1.Top = 20
RichTextBox1.Left = 20
RichTextBox1.Height = ScaleHeight - 40
RichTextBox1.Width = ScaleWidth - 40
End Sub
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If KeyCode = vbKeySpace Then
RichTextBox1.SelFontName = CommonDialog1.FontName
End If
End Sub
Private Sub RichTextBox1_Change()
If RichTextBox1.Text = "" Then
xinjian.Enabled = False
baocun.Enabled = False
chazhao.Enabled = False
chazhao1.Enabled = False
Else
xinjian.Enabled = True
baocun.Enabled = True
chazhao.Enabled = True
chazhao1.Enabled = True
End If
End Sub
Private Sub shiyong_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt", rtfText '注释：请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "专用记事本：" & "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息"
End Sub
Private Sub guanyu_Click()
MsgBox "专用记事本 Ver1.0 版权所有(C) 2007 ", vbOKOnly, "关于"
End Sub
Private Sub open_Click()
Dim strtxt As String
CommonDialog1.FileName = ""
CommonDialog1.Flags = vbofnfilemustexist
CommonDialog1.Filter = "全部文件(*.*)|*.*|word(文档)(*.doc)|*.doc|文本文件(*.txt)|*.txt"
CommonDialog1.FilterIndex = 1
RichTextBox1.SelColor = vbGreen
RichTextBox1.Text = ""
CommonDialog1.DialogTitle = "专用记事本-打开"
CommonDialog1.Action = 1
If CommonDialog1.FileName = "" Then
Close
Else
Open CommonDialog1.FileName For Input As #1
If Err.Number = 0 Then
Do While Not EOF(1)
Input #1, strtxt$
RichTextBox1.Text = RichTextBox1.Text + strtxt$ + vbCrLf
Loop
Close #1
End If
End If
Me.RichTextBox1.SelStart = 0
Me.RichTextBox1.SelLength = Len(RichTextBox1.Text)
Me.RichTextBox1.SelColor = vbGreen
Me.RichTextBox1.BackColor = vbBlack
Me.RichTextBox1.Refresh
End Sub
Private Sub xinjian_Click()
RichTextBox1.Text = "" '注释：清空文本框
FileName = "未命名"
Me.Caption = FileName
Me.RichTextBox1.SelColor = vbGreen
Me.RichTextBox1.BackColor = vbBlack
End Sub
Private Sub baocun_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|word文档(*.doc)|(*.doc)|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "专用记事本：" & FileName
End Sub
Private Sub tuichu_Click()
End
End Sub
Private Sub yanse_Click()
CommonDialog1.Action = 3 '显示字体颜色拾取框
Me.RichTextBox1.SelColor = CommonDialog1.Color
End Sub
Private Sub chazhao_Click()
sFind = InputBox("请输入要查找的字,词：", "查找内容", sFind) '查找代码
RichTextBox1.Find sFind
End Sub
Private Sub chazhao1_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 '继续查找下一个内容
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
Black Light Shines的中文歌词
Sub Change_WhiteText_toBlack()
On Error Resume Next
Dim i, j As Single
For i = 2 To ActivePresentation.Slides.Count
For j = 1 To ActivePresentation.Slides(i).Shapes.Count
With ActivePresentation.Slides(i).Shapes(j)
If .Fill.BackColor = vbWhite And .TextFrame.TextRange.Font.Color = vbWhite Then
.TextFrame.TextRange.Font.Color = vbBlack
End If
End With
Next
Next
End Sub
插入模块，复制代码到其中。
《Black Light Shines》歌词：
Black Light Shines - Anna Ternheim
Wake up in a haze
Light as a feather
Amazed by the white linen sheet
Placed over your head
Out of the steel bed
Out of the aches
Released from your head
Thinking kills us all in the end
Black light shines
Over your head on the wall
Black light shines
No name on your badge anymore
Black light shines
The 9th of July
A first last goodbye
Your face in the wind being 5 maybe 6
Without wings you fly
Out of the steel bed
Out of the aches
Released from your head
Thinking kills us all in the end
Black light shines
Over your head on the wall
Black light shines
No name on your badge anymore
Black light shines
Wake up in a haze
Light as a feather
Amazed by the white linen sheet
Placed over your head
Over your head on the wall
Get up on your feet and walk
Black light shines
Black light shines
Oh black light shines
