阅读理解

    When Jeanne Calment entered the world in 1875, telephones and automobiles still lay in the future. Albert Einstein and Pablo Picasso were not yet born. The Eiffel Tower was 14 years from being built. As a teenager, she met Vincent Van Gogh, near her home in Arles, in the south of France. He was “very ugly, ungracious, impolite, sick—I forgive him, they called him loco (精神失常的)”, she recalled. When she died last week at age 122, she was the world's eldest person. (There are others who claimed to the title, but only Calment had the official documents to prove her age.)

    Each February 21, her birthday, she would share the secrets of long life. Some years it was “a sense of humour”, others it was “keeping busy”. “God must have forgotten me,” she once explained. The truth probably was that her mother reportedly lived to be 86 and her father 94.

    Her life had its sadness: she outlived her husband, her only daughter and her grandson. According to a friend, she was imperturbable. “If you can't do anything about it,” she reportedly said, “don't worry about it.”

    In her last years she was nearly blind and deaf, but her health remained good. She ate a few bars of chocolate each week and continued smoking until a few years ago, when she could no longer light her own cigarettes. She never lost her sense of humour. On her 110^th birthday, she commented, “I've only ever had one wrinkle, and I'm sitting on it. “Her longevity made her famous; her spirit made her eternal (永恒的).

如图是高、中、低“三档”电热器（R₁＞R₂）的工作电路，如果将电热器调至高温档工作，应该闭合____开关；如果调至中温档工作，已知电源电压为U，通电时间为t，则它产生的热量的表达式：____。

⑴用一个数组product()来存放产品名。

⑵用另一个数组a()来存放产品名数据的下标（已经按产品名排序的）。

按产品名排序的方法是：取第一个产品名product(0)，与后面所有的产品名比较一遍，如果有比第一个产品名大的，M+1，M用来计该产品名的位次。一轮结束后在a(M)元素记下第一个产品名的下标0。然后再取product(1)与其它所有产品名比较一遍，其余同第一个产品名。依次完成每一个产品名位次的计算并记录在a()数组中。

⑶最后按a()数组指定的位置取出list1中的项添加到list2中。

程序代码如下，请补充完整下面的空缺。

Dim products(100) As String  '存放产品名的数组

Dim num As Integer          '从数据库中读出的记录数

Private Sub Command1_Click()

Dim a(100) As Integer           '存放按产品名索引的产品数组下标

Dim i As Integer, j As Integer, m As Integer    'm比当前产品名大的产品名个数

For i = 0 To 100

    a(i) = 0

Next i

For i = 0 To num

   m = 0

   For j = ____ 

     If i <> j And products(i) > products(j) Then m = m + 1

   Next j

   ____ 

Next i

For i = 1 To num

 List2.AddItem  ____     '按a数组的索引从list1中取出项添加到list2

Next i

End Sub

Private Sub Form_Load()

Dim conn As New ADODB．Connection

Dim rs As New ADODB．Recordset

Dim s As String, i As Integer

conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\产品库.accdb "

conn.Open

Set rs.ActiveConnection = conn

rs.Open "select * from product"

num = 0

Do While Not rs.EOF And num <= 100

    s = ""

    For i = 1 To 5

     products(num) = rs.Fields(2)           '读出当前记录的产品名保存到products数组

     s = s & rs.Fields(i - 1) & " ,"        '将一条记录的各字段内容连接成字符串

    Next i

    List1.AddItem s

    ____

    num = num + 1

 Loop

 num = num - 1

 rs.Close

 conn.Close

 Set rs = Nothing

 Set conn = Nothing

End Sub

   The early history of the city of Rome involves Romulus and Remus，two orphan boys who，legend says，were raised by a she-wolf．The boys'mother had been murdered by an evil king and the two babies tossed into the river Tiber．When the wolf found them they had washed up on the shore．She perhaps took pity on the crying of the babies and，gently picking them up in her teeth，she carried them back to her cave and fed them on her milk．The boys grew bigger and stronger and，eventually，were found by a herdsman who took them home．He and his wife raised the boys like their own children．When they reached manhood they sought revenge on the king who had killed their mother and driven them from their home．
   They decided to build a city．Unfortunately，they argued over the appropriate site and Romulus killed his brother Remus．Romulus ruled this city — called Roma — for thirty-seven years．
   The city of Rome is one of the most popular tourist attractions in the world．If you travel there you can see a statue of the two baby boys feeding from their mother - the wolf．