帮忙找一下！！！急急急急~~~ 帮忙找一下诗！~（急急急急急急急！~！~！）
作者：佚名 文章来源：不详 点击数：708 更新时间：2006-11-7
当我们编写程序时，会常常遇到程序信息内容更新的问题，对于小的文件更新，可以提供给客户自己到网络上下载，但对于大且多的文件，由于网络的原因，通过下载却又不实际，动辄是更新不完整，影响了程序的运行。当时我编写“商务娱乐频道系统”时，也遇到了这样的问题，对于大型的视频及图片文件，我考虑到了使用压缩包提供给客户，但是通过使用压缩程序却不能将我的文件按要求进行解压到其他相应的目录，那时我想到了何不自己制作压缩与解压缩程序呢。解压时将文件解压到程序所要的位置。
为了这个项目，我仔细的研究了VB的安装程序，原来VB是通过系统所自带的资源来进行压缩与解压缩，如MakeCab.exe、vb6stkit.dll等。
其实真真做起来还是挺简单的，就是调用几个API函数便可以搞定。近日，闲着有空，翻看自己的旧程序，故决定将该程序整理出来，与大家共享。
下面是具体的程序编写模块，首先你需要建立一个工程（名称由你自己确定了）：
1. 添加两个模块，在这里我给它们分别命名为modAPI、modMain；
2. 添加三个窗体，在这里我给它们分别命名为frmMain、frmLogin、frmAddInfo；
3. 以下是各个模块的源代码内容，请先保存该工程，并且关闭，然后转到该工程的文件夹下，按下面的提示进行源代码拷贝；
用记事本打开frmMain.frm文件，copy以下内容到其中：
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "信息文件更新"
ClientHeight = 5385
ClientLeft = 45
ClientTop = 330
ClientWidth = 8550
ControlBox = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5385
ScaleWidth = 8550
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdOk
Caption = "导出更新列表"
Height = 375
Index = 3
Left = 5385
TabIndex = 6
Top = 4980
Width = 1545
End
Begin VB.CommandButton cmdOk
Caption = "关 闭"
Height = 375
Index = 2
Left = 7620
TabIndex = 5
Top = 4980
Width = 885
End
Begin VB.CommandButton cmdOk
Caption = "打 包"
Height = 375
Index = 1
Left = 3810
TabIndex = 1
Top = 4980
Width = 885
End
Begin VB.CommandButton cmdOk
Caption = "展 开"
Height = 375
Index = 0
Left = 0
TabIndex = 0
Top = 4980
Width = 885
End
Begin MSComctlLib.ListView lstInfo
Height = 4275
Left = 0
TabIndex = 2
Top = 330
Width = 8505
_ExtentX = 15002
_ExtentY = 7541
View = 3
Arrange = 1
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "序号"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "压缩包文件"
Object.Width = 6068
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "目标信息"
Object.Width = 7832
EndProperty
End
Begin MSComDlg.CommonDialog comdInfo
Left = 0
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
MaxFileSize = 30000
End
Begin MSComctlLib.ProgressBar PGBar
Height = 345
Left = 30
TabIndex = 4
Top = 4620
Width = 8505
_ExtentX = 15002
_ExtentY = 609
_Version = 393216
Appearance = 0
Scrolling = 1
End
Begin VB.Label lblAbout
BackStyle = 0 'Transparent
Caption = "关于本程序..."
Height = 255
Left = 7260
TabIndex = 8
Top = 60
Width = 1215
End
Begin VB.Label lblInfo
AutoSize = -1 'True
Caption = "请等待，正在创建包信息文件..."
Height = 180
Index = 1
Left = 30
TabIndex = 7
Top = 4740
Width = 4980
End
Begin VB.Label lblInfo
AutoSize = -1 'True
Caption = "展开打包信息更新列表："
Height = 180
Index = 0
Left = 30
TabIndex = 3
Top = 30
Width = 1980
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ==============================================
' 信息打包与展开 (主窗体模块，即展开窗体)
'
' 功能 :利用系统所存在的资源自作压缩与解压缩程序
'
' 作 者 :谢家峰
' 整理日期 :2004-08-08
' Email :douhapy@sina.com
'
' ==============================================
'
Option Explicit
Private Declare Function ExtractFileFromCab Lib "vb6stkit.dll" _
(ByVal Cab As String, ByVal File As String, ByVal dest As String, _
ByVal iCab As Long, ByVal sSrc As String) As Long
'说明：
'cab 为系统安装目录下的压缩包
'file 为压缩包内的某文件名称（需在该文件名前加“@”字符）
'dest 为压缩包内的某文件解压后的完全路径名
'icab 为压缩包的数目
'ssrc 临时文件夹，一个有效的文件夹路径
Dim s_FileNames() As String '源文件名（不含路径）
Dim d_FileNames() As String '目标文件名（含路径）
Dim cab_FileName As String '包文件名
Private Sub cmdOK_Click(Index As Integer)
Dim FileNum As Long
Dim i As Long
Dim j As Long
Dim FileName As String
Select Case Index
Case 0
FileName = App.Path & "/更新.ini"
'查找包文件信息
s_FileNames = GetFiles(App.Path & "/*.cab_")
If UBound(s_FileNames) = 0 Then
MsgBox "当前目录下没找到“商务频道系统文件更新”包文件！", , App.EXEName
Exit Sub
End If
If UBound(s_FileNames) > 1 Then
With comdInfo
.Filter = "商务频道系统文件更新包|*.cab_|"
.DialogTitle = "请指定“商务频道系统文件更新”包的位置"
.InitDir = App.Path
.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
.FileName = App.Path & "/" & s_FileNames(1)
On Error GoTo Errfind
.ShowOpen
cab_FileName = Trim(Right(.FileName, Len(.FileName) - Len(App.Path & "/")))
On Error GoTo 0
End With
Else
cab_FileName = s_FileNames(1)
End If
Screen.MousePointer = 11
PGBar.Visible = False
lblInfo(1).Visible = True
DoEvents
'将当前包复制到系统安装文件夹下
If FileExists(WindowsPath & cab_FileName) Then Kill WindowsPath & cab_FileName
FileCopy App.Path & "/" & cab_FileName, WindowsPath & cab_FileName
'转换包路径信息（为系统安装目录下的文件）
cab_FileName = WindowsPath & cab_FileName
SetAttr cab_FileName, vbNormal
'获得“更新.ini”文件
j = ExtractFileFromCab(cab_FileName, "@更新.ini", FileName, 1, App.Path & "/")
SetAttr FileName, vbNormal
lblInfo(1).Visible = False
PGBar.Visible = True
Screen.MousePointer = 1
DoEvents
If j = 0 Then
MsgBox "该压缩包信息不完整，或不是“商务频道系统文件更新”包！" & vbCrLf & vbCrLf & "解压没完成,请索取最新的更新包！", , App.EXEName
'删除系统安装目录下的复制包
Kill cab_FileName
Exit Sub
Else
SetAttr FileName, vbNormal
End If
Screen.MousePointer = 11
'解压信息
FileNum = CLng(CLng(ReadIniFile(FileName, "文件数目", "FileNum")))
ReDim s_FileNames(FileNum)
ReDim d_FileNames(FileNum)
'其中s_FileNames的最后一个数据为播放信息文件
For i = 1 To FileNum
s_FileNames(i - 1) = ReadIniFile(FileName, "源文件信息", "File" & i)
s_FileNames(i - 1) = GetFileName(s_FileNames(i - 1))
d_FileNames(i - 1) = ReadIniFile(FileName, "目标文件信息", "File" & i)
DoEvents
Next
lstInfo.ListItems.Clear
PGBar.Min = 1
PGBar.Max = FileNum + 1
For i = 1 To FileNum
DoEvents
'建立文件夹
CreateFloder d_FileNames(i - 1)
'解压文件
If FileExists(d_FileNames(i - 1)) Then SetAttr d_FileNames(i - 1), vbNormal
j = ExtractFileFromCab(cab_FileName, "@" & s_FileNames(i - 1), d_FileNames(i - 1), 1, App.Path & "/")
If j = 0 Then
MsgBox "该压缩包信息不完整，或不是“商务频道系统文件更新”包！" & vbCrLf & vbCrLf & "解压没完成,请索取最新的更新包！", , App.EXEName
lstInfo.ListItems.Clear
PGBar.Min = 0
PGBar.Value = 0
Screen.MousePointer = 1
Exit Sub
End If
PGBar.Value = i
DoEvents
lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, s_FileNames(i - 1), d_FileNames(i - 1)
Next
'删除系统安装目录下的复制包
Kill cab_FileName
Kill FileName
PGBar.Value = FileNum + 1
MsgBox "解压缩完成，系统更新完成，谢谢使用！", , App.EXEName
PGBar.Min = 0
PGBar.Value = 0
Case 1 ' 执行信息打包
lstInfo.ListItems.Clear
frmLogin.Show 1, Me
Case 2
Unload Me
Case 3
If lstInfo.ListItems.count = 0 Then MsgBox "无信息可供导出！", , App.EXEName: Exit Sub
With frmMain.comdInfo
.Filter = "更新列表信息|*.txt"
.DialogTitle = "导出包列表信息文件"
.InitDir = CurDir()
.Flags = cdlOFNHideReadOnly
.FileName = "更新列表.txt"
On Error GoTo ErrLab
.ShowSave
FileName = .FileName
If FileExists(FileName) Then
SetAttr FileName, vbNormal
Kill FileName
End If
'导出信息
With lstInfo
WritePrivateProfileString "文件数目", "FileNum", CStr(.ListItems.count), FileName
For i = 1 To .ListItems.count
WritePrivateProfileString "压缩包文件信息", "File" & i, .ListItems(i).SubItems(1), FileName
WritePrivateProfileString "目标文件信息", "File" & i, .ListItems(i).SubItems(2), FileName
Next
End With
End With
MsgBox "信息列表被导出在“" & FileName & "”文件中！", , App.EXEName
Case Else
End Select
Screen.MousePointer = 1
Exit Sub
ErrLab:
If Err.Number = 32755 Then
'解压文件
d_FileNames(FileNum) = App.Path & "/" & s_FileNames(FileNum)
If FileExists(d_FileNames(i - 1)) Then SetAttr d_FileNames(FileNum), vbNormal
ExtractFileFromCab cab_FileName, "@" & s_FileNames(FileNum), d_FileNames(FileNum), 1, App.Path & "/"
SetAttr d_FileNames(FileNum), vbNormal
PGBar.Value = FileNum + 1
lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, s_FileNames(FileNum), App.Path & "/" & s_FileNames(FileNum)
'删除系统安装目录下的复制包
If FileExists(cab_FileName) Then Kill cab_FileName
Kill FileName
MsgBox "您取消了指定用户信息的位置，该用户信息缺省被放在“" & d_FileNames(FileNum) & "”！" _
& vbCrLf & vbCrLf & "解压缩完成，系统更新完成，谢谢使用！", , App.EXEName
PGBar.Min = 0
PGBar.Value = 0
Else
Err.Raise Err.Number, , Err.Description
End If
Screen.MousePointer = 1
Exit Sub
Errfind:
If Err.Number = 32755 Then
Else
Err.Raise Err.Number, , Err.Description
End If
Screen.MousePointer = 1
Exit Sub
End Sub
Private Sub lblAbout_Click()
lblAbout.BorderStyle = 1
frmAbout.Show 1, Me
End Sub
Private Sub lstInfo_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Not (Item Is Nothing) Then
lstInfo.ToolTipText = "[目标信息] " & Item.ListSubItems(2)
End If
End Sub
帮我翻译一下!急急急急急急急急~~~~~!!!!!!!!~
社会的变化更可能发生在那里的社会是一个混合不同类型的人比在社会里，类似的人在许多方面。原因很简单，这是因为有更多不同的方式看待事物目前在第一样的社会。还有更多的想法，更多的利益分歧，以及更多的团体和组织以不同的信仰。此外，通常有一个更大的世俗的利益和更大的宽容的混合社会。所有这些因素都倾向于推动社会变革的开放更多的生活领域的决定。在一个社会里，人们非常相似在许多方面，有较少的场合人们看到了需要或有机会改变，因为一切似乎是相同的。虽然条件可能无法令人满意，他们至少习惯和无可争议的。
在一个社会，社会变化也可能会发生更频繁和更容易在物质方面的文化比在非物质，例如，在技术，而不是在价值观念;中已经学到以后的生活，而不是什么是早期的经验教训;在较基本和少情感方面的社会生活比他们的对立;在简单的内容，而不是在复杂的;的形式而不是实质内容;和内容，是可以接受的文化，而不是在奇怪的内容。
此外，社会变革比较容易，如果它是渐进的。举例来说，它更容易在人与人之间的关系持续规模，而不是一个急剧二分法。这是一个变化的原因并没有出现更迅速地美国黑人相比，美国其他少数民族的，因为急剧的差异它们之间的外观和白人。
1、床前明月光，疑是地上霜。李白
2、举头望明月，低头思故乡。李白
3、月下飞天镜，云生结海楼。李白
4、举杯邀明月，对影成三人。李白
5、长安一片月，万户捣衣声。李白
6、明月出天山，苍茫云海间。李白
7、醉月频中圣，迷花不事君。李白
8、却下水晶帘，玲珑望秋月。李白
9、我寄愁心与明月，随君直到夜郎西。李白
10、俱怀逸兴壮思飞，欲上青天览明月。李白
11、峨嵋山月半轮秋，影入平羌江水流。李白
12、松风吹解带，山月照弹琴。王维
13、深林人不知，明月来相照。王维
14、明月松间照，清泉石上流。王维
15、广泽生明月，苍山夹乱流。马戴
16、月黑雁飞高，单于夜遁逃。卢纶
17、露从今夜白，月是故乡明。杜甫
18、星临万户动，月傍九霄多。杜甫
19、晨兴理荒秽，带月荷锄归。陶渊明
20、无言独上西楼，月如钩。李煜
21、明月别枝惊鹊，清风半夜鸣蝉。辛弃疾
22、可怜九月初三夜，露似珍珠月似弓。白居易
23、一弹流水一弹月，半入江风半入云。
24、更深月色半人家，北斗阑干南斗斜。刘方平
25、晓镜但愁云鬓改，夜吟应觉月光寒。李商隐
26、会挽雕弓如满月，西北望射天狼。苏轼
27、庭下如积水空明，水中藻荇交横，盖竹柏影也。苏轼
28、不见乡书传雁足，惟见新月吐蛾眉。唐·王维
29、春江潮水连海平，海上明月共潮生。唐·张若虚
30、春秋满四泽，夏云多奇峰，秋月扬明辉，冬岭秀孤松。晋·陶渊明
31、大漠沙如雪，燕山月似钩。唐·李贺
32、当时明月在，曾照彩云归。宋·晏几道
33、洞庭秋月生湖心，层波万倾如熔金。唐·刘禹锡
34、共看明月应垂泪，一夜乡心五处同。唐·白居易
35、江畔何人初见月？江月何年初照人？人生代代无穷已，江月年年只相似。唐·张若虚
36、辽海吞边月，长城锁乱山。清·萧诗
37、露从今夜白，月是故乡明。唐·杜甫
38、梅花雪，梨花月，总相思。自是春来不觉去偏知。清·张惠言
39、片云天共远，永夜月同孤。唐·杜甫
40、清风明月本无价，近山遥水皆有情。清·梁章钜
41、新月如佳人，出海初弄色。宋·苏轼
42、月上柳梢头，人约黄昏后。宋·欧阳修
43、好山好水看不够，马蹄催趁月明归。岳飞《池州翠微亭》
44、明月出天山，苍茫云海间。李白《关山月》
45、长安一片月，万户捣衣声。《子夜吴歌（三）秋歌》
46、骝马新跨白玉鞍，战罢沙场月色寒。李白《军行》
47、晨兴理荒秽，带月荷锄归。陶潜《归田园居》
48、月黑雁飞高，单于夜遁逃。卢纶《塞下曲》
49、大漠沙如雪，燕山月似钩。李贺《马诗》
50、湖光秋月两相和，潭面无风境未磨。刘禹锡《望洞庭》
51、深林人不知，明月来相照。王维《竹里馆》
52、吹灯窗更明，月照一天雪。袁枚《十二月十五日》
53、月出惊山鸟，时鸣春涧中。王维《鸟鸣涧》
54、初月如弓未上弦，分明挂在碧霄边。缪氏子《赋新月》
55、可怜九月初三夜，露似珍珠月似弓。白居易《暮江吟》
56、凉月如眉挂柳湾。越中山色镜中看。戴叔伦《兰溪棹歌》
57、鸟宿池边树，僧推月下门。贾岛《题李凝幽居》
58、钓罢归来不系船，江村月落正堪眠。司空曙《江村即事》
59、举杯邀明月，对影成三人。我歌月徘徊，我舞影零乱。李白《月下独酌》
60、今夜月明人尽望，不知秋思落谁家。王建《十五夜望月》
61、更深月色半人家，北斗阑干南斗斜。《月夜》刘方平
62、满月飞明镜，归心折大刀。《八月十五夜月》(唐杜甫)
63、露从今夜白，月是故乡明。《月夜忆舍弟》(杜甫)
64、海上生明月，天涯共此时。《望月怀远》(张九龄)
65、青女素娥俱耐冷，月中霜里斗婵娟。《霜月》(李商隐)
66、此生此夜不长好，明月明年何处看。《中秋月》（苏轼)
67、尘中见月心亦闲，况是清秋仙府间。《八月十五夜桃源玩月》(唐刘禹锡)
望月怀远 张九龄
海上生明月，天涯共此时。情人怨遥夜，竟夕起相思。 灭烛怜光满，披衣觉露滋。不堪盈手赠，还寝梦佳期。
【秋夕望月】张九龄
清迥江城月，流光万里同。所思如梦里，相望在庭中。 皎洁青苔露，萧条黄叶风。含情不得语，频使桂华空。
【海上生明月】朱华
皎皎秋中月，团圆海上生。影开金镜满，轮抱玉壶清。 渐出三山岊，将凌一汉横。素娥尝药去，乌鹊绕枝惊。 照水光偏白，浮云色最明。此时尧砌下，蓂荚自将荣。
【杂曲歌辞·竹枝】李涉
石壁千重树万重，白云斜掩碧芙蓉。 昭君溪上年年月，独自婵娟色最浓。
【中秋月二首】李峤
盈缺青冥外，东风万古吹。何人种丹桂，不长出轮枝。 圆魄上寒空，皆言四海同。安知千里外，不有雨兼风。
【秋晨同淄川毛司马秋九咏·秋月】骆宾王
云披玉绳净，月满镜轮圆。裛露珠晖冷，凌霜桂影寒。 漏彩含疏薄，浮光漾急澜。西园徒自赏，南飞终未安。
【八月十五日夜同诸客玩月】白居易
月好共传唯此夜，境闲皆道是东都。嵩山表里千重雪， 洛水高低两颗珠。清景难逢宜爱惜，白头相劝强欢娱。 诚知亦有来年会，保得晴明强健无。
【秋霁丰德寺与玄贞师咏月】唐彦谦
露冷风轻霁魄圆，高楼更在碧山巅。四溟水合疑无地， 八月槎通好上天。黯黯星辰环紫极，喧喧朝市匝青烟。 夜深独与岩僧语，群动消声举世眠。
【咏月】李建枢
昨夜圆非今夜圆，却疑圆处减婵娟。 一年十二度圆缺，能得几多时少年。
【中秋月彩如昼，寄上南海从翁侍御】无可
海静天高景气殊，鲸睛失彩蚌潜珠。 不知今夜越台上，望见瀛洲方丈无。
【中秋夜君山脚下看月】无可
汹涌吹苍雾，朦朣吐玉盘。雨师清滓秽，川后扫波澜。 气射繁星灭，光笼八表寒。来驱云涨晚，路上碧霄宽。 熠耀游何在，蟾蜍食渐难。棹飞银电碎，林映白虹攒。 水魄连空合，霜辉压树干。夜深高不动，天下仰头看。
【中秋台看月】无可
海雨洗烟埃，月从空碧来。水光笼草树，练影挂楼台。 皓耀迷鲸口，晶荧失蚌胎。宵分凭栏望，应合见蓬莱。
【中秋夜南楼寄友人】无可
海月出白浪，湖光射高楼。朗吟无绿酒，贱价买清秋。 气冷鱼龙寂，轮高星汉幽。他乡此夜客，对酌经多愁。
【中秋夜陇州徐常侍座中咏月】无可
陇城秋月满，太守待停歌。与鹤来松杪，开烟出海波。 气笼星欲尽，光满露初多。若遣山僧说，高明不可过。
【中秋江驿示韦益】无可
莫惜三更坐，难销万里情。同看一片月，俱在广州城。 泪逐金波满，魂随夜鹊惊。支颐乡思断，无语到鸡鸣。
八月十五夜月 杜甫
满月飞明镜，归心折大刀。 转蓬行地远，攀桂仰天高。 水路疑霜雪，林栖见羽毛。 此时瞻白兔，直欲数秋毫。
十五夜望月 王建
中庭地白树栖鸦，冷露无声湿桂花。 今夜月明人尽望，不知秋思落谁家！
南斋玩月 王昌龄
高卧南斋时，开帷月初吐。 清辉澹水木，演漾在窗户。 荏苒几盈虚，澄澄变今古。 美人清江畔，是夜越吟苦。 千里共如何，微风吹兰杜。
中秋月 齐已
空碧无云露湿衣，众星光外涌清规。 东林莫碍渐高势，四海正看当路时。 还许分明吟皓魄，肯教幽暗取丹枝。 可怜关夜婵娟影，正对五候残酒卮。
月夜 刘方平
更深月色半人家，北斗阑干南斗斜。 今夜偏知春气暖，虫声新透绿窗纱。 嫦娥 李商隐 云母屏风烛影深，长河渐落晓星沈。 嫦娥应悔偷灵药，碧海青天夜夜心。
月夜忆舍弟 杜甫
戍鼓断人行，秋边一雁声。 露从
霜月 李商隐
初闻征雁已无蝉，百尺楼高水接天。 青女素娥俱耐冷，月中霜里斗婵娟
秋宵月下有怀 孟浩然
秋空明月悬，光彩露沾湿。 惊鹊栖未定，飞萤卷帘入。 庭槐寒影疏，邻杵夜声急。 佳期旷何许！望望空伫立。
倪庄中秋 元好问
强饭日逾瘦， 狭衣秋已寒。 儿童漫相忆， 行路岂知难。 露气入茅屋， 溪声喧石滩。 山中夜来月， 到晓不曾看。
中秋月 晏殊
十轮霜影转庭梧，此夕羁人独向隅。 未必素娥无怅恨，玉蟾清冷桂花孤。
八月十五日夜湓亭望月 白居易
昔年八月十五夜，曲江池畔杏园边。 今年八月十五夜，湓浦沙头水馆前。 西北望乡何处是，东南见月几回圆。 昨风一吹无人会，今夜清光似往年。
天竺寺八月十五日夜桂子 皮日休
玉颗珊珊下月轮，殿前拾得露华新。 至今不会天中事，应是嫦娥掷与人。
中秋登楼望月 米芾
目穷淮海满如银，万道虹光育蚌珍。 天上若无修月户，桂枝撑损向西轮。 明月何皎皎 明月何皎皎，照我罗床帏。 忧愁不能寐，揽衣起徘徊。 客行虽云乐，不如早旋归。 出户独彷徨，愁思当告谁！ 引领还入房，泪下沾裳衣。 秋夜月 当初聚散。便唤作、无由再逢伊面。 近日来、不期而会重欢宴。 向尊前、闲暇里，敛著眉儿长叹。 惹起旧愁无限。 秋蕊香引 留不得。 光阴催促，奈芳兰歇，好花谢，惟顷刻。 彩云易散琉璃脆，验前事端的。 风月夜，几处前踪旧迹。 忍思忆。 这回望断，永作终天隔。 向仙岛，归冥路，两无消息。
舒兰 >
三十年前
你从柳树梢头望我
我还小
你圆
我也圆
三十年后
我从柳树梢头望你
你是一杯乡色酒
你满
乡愁也满
参考资料： http://zhidao.baidu.com/question/123176282.html
请大家帮一下忙找一下这个人,,,急急急
答：人失踪了，你需要发寻人启事。在网络上发，你也要去一些热门的论坛发，例如：百度贴吧李毅吧、天涯论坛等
帮忙找一下!!!急急急急~~~
答：lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, s_FileNames(FileNum), App.Path & "/" & s_FileNames(FileNum) '删除系统安装目录下的复制包 If FileExists(cab_FileName) Then Kill cab_FileName Kill FileNameMsgBox "您取消了指定用户信息的位置,该用户信息缺省被放在“" & d_...
帮忙找一下诗!~(急急急急急急急!~!~!)
答：帮忙找一下诗!~(急急急急急急急!~!~!) 1、床前明月光,疑是地上霜。李白 2、举头望明月,低头思故乡。李白 3、月下飞天镜,云生结海楼。李白 4、举杯邀明月,对影成三人。李白 5、长安一片月,
找几篇美文~~有的快告诉我~~急急急!!
答：匆匆忙忙地去信任一个人,那你就可能也会那么快地被你所信任的那个人背弃;倘若你只是出于某种肤浅的需要去信任一个人,那么旋踵而来的可能就是恼人的猜忌和背叛;但倘若你迟迟不敢去信任一个值得你信任的人,那永远不能获得爱的甘甜
...既要有古诗 也要有文言文 急急急急 求助 要准确哟 帮忙找一下_百度...
答：荷花:接天莲叶无穷碧, 映日荷花别样红。竹子:绿竹半含箨,新梢才出墙。 雨洗娟娟净,风吹细细香。菊花:秋丛绕舍似陶家,遍绕篱边日渐斜。不是花中偏爱菊,此花开尽更无花。月光:明月松间照,清泉石上流。柳:碧玉妆成一树高,万条垂下绿丝绦。 已赞过 已踩过< 你对这个回答的评价是? 评论 收起 ...
急急急~~!!!大家帮忙找一下~~!!
答：“诗情画意”改成：“诗情花艺”“其乐无穷”改成；“骑乐无穷”“无微不至”改成：“无胃不治”“依依不舍”改成：“衣衣不舍”
忙解一下,谢谢! 急急急急!!!
答：48 公式啊 圆柱体积=底面积*高 条件是底面积相等，第二个圆柱高度是第一个的三倍 也就是说第二个的体积是第一个的三倍 即24*2=48
2005年的日历表,我急用,烦忙找一下
答：万年历查询 http://www.hao123.com/haoserver/wn.htm
查找作文(必须是500字左右)急急急急急急~~~
答：查找作文(必须是500字左右)急急急急急急~~~ 要6篇作文:1.升新初一,对母校、老师和同学的不舍2.我喜欢读书(有具体事例)3.读《格列佛游记》有感4.我是家庭小主人(暑期在家做家务事的事情)5.游泳趣事6.打乒乓球的趣事要是好的... 要6篇作文:1.升新初一,对母校、老师和同学的不舍2.我喜欢读书(有具...
急急急急!!!高中英语重点词组2000个,谁能帮忙找一下???
答：高中英语重点词组2000 1. be able to 能，会 2. abound in 盛产，富于，充满 3. be about to 即将(做)4. above all 首先，首要，尤其是 5. be absorbed in 专心致力于…6. be abundant in …富于，…丰富 7. by accident 偶然 8. in accordance with 与…一致；按照，根据 9. ...
