I was at my parent's dinner table. Before me was a worn journal of thin and discolored pages. It was my grandfather's journal and now belonged to my father. My grandfather had passed away in the months leading up to my birth. I never got to visit the places he had frequently and people who had been a part of his life's journey.

    I was now about to enter his world, through the words he had left behind. Within minutes, I was attracted by the power of the written words. In the magical script before me, I was transported to another age when food was an everyday art, planned, prepared and enjoyed in the company of others, and a time when people had the heart to pause，their own lives to embrace (拥抱）each other's struggles. All this was conveyed to me in the beauty of the words that flowed together to connect with the writer's mind and understand the world they lived in.

    That kind of writing seems to be lost on us today. We have gotten used to writing in bite-sized pieces for a public looking for entertainment, and hungry for information. No wonder, there are nearly 200 million bloggers on the Internet and a new blog is created somewhere in the world every half a second. Instead of adding to our collective wisdom, most of these writings reflect the superficiality (肤浅)and impatience of our day and age.

    This not only robs us of the skill of writing impressive essays, it also prevents us from exploring what is truly important. Writing humbles us in a way that is vital for our character growth, by reminding us about the limits of the self and our appropriate place in the vast flow of life. Writing frees us by helping us explore the unknown so that we truly open up to the magic of the world around us. I saw all of this in the writing s of my grandfather. And I've seen it again and again in the writings of the greatest thinkers of humanity. Their writings reflect deep thought on issues of human importance.

Dim class(1 To 30) As Integer '存放班级序号的数组定义为class

Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score

Private Sub Formload()      '提取某班级的评委打分

   Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "

   conn.Open

   Set rs.ActiveConnection = conn

   rs.Open "SELECT * FROM score " 

   n = 0

Do While Not rs.EOF   '到最后一条记录后退出循环

   n = n + 1

   class (n) = rs.Fields("班级序号").Value

   score (n) = rs.Fields("评委打分").Value

   rs.MoveFirst      '①指针移动到下一条记录

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

for i=1 to n

    List1.AddItem str(score(i))

Next i

End sub

Private Sub Command1Click()  

Dim i as integer

Dim j as integer

Dim t as single

For i=1 to 8

   List2.AddItem str(score(i))

Next i

End sub

Private Sub Command2Click()   '计算班级平均得分

Dim i As Integer

Dim sum As single

For i=2 to 7

   sum=sum+score（i）

Next i

Text1.text=  ③ 

End sub

根据课文《和我们一样享受春天》内容填空。

大海—____的乐园。