阅读下文，回答相关问题。

                                                                                                 傅雷家书
      1954年1月30日
      亲爱的孩子，你走后第二天，就想写信，怕你嫌烦，也就罢了。可是没一天不想着你，每天清早六七点就醒，翻来覆去的睡不着，也说不出为什么。好像克利斯朵夫的母亲独自守在家里，想起孩子童年一幕幕的形象一样，我和你妈妈老是想着你二三岁到六七岁间的小故事——这一类的话我们不知有多少可以和你说，可是不敢说。你这个年纪是一切向前往的，不愿意回忆的；我们噜哩噜嗦的抖抖你尿布时代的往事，会引起你的憎厌。孩子，这些我都很懂得，妈妈也懂得。只是你的一切终身会印在我们脑海中，随时随地会浮起来，像一幅幅的小品图画，使我们又快乐又惆怅。
      真的，你这次在家一个半月，是我们一生最愉快的时期，这幸福不知应当向谁感甜，尽管我没宗教信仰，至此也不由得要谢谢上帝了！我高兴的是我又多了一个朋友；①儿子变成了朋友，世界上有什么事可以和这种幸福相比呢！②尽管将来你我之间离多聚少，但我精神上至少是温暖的，不孤独的。我相信我一定会做到不太落伍，不太迂腐，不至于惹你厌烦。也希望你不要以为我在高峰的顶尖上所想的，所见到的，比你们的不真实。年纪大的人终是往更远的前途看，许多事你们一时觉得我看得不对，日子久了，_________。
      孩子，我从你身上得到的教训，恐怕不比你从我这儿得到的少。尤其是近三年来，你不知使我对人生多增了几许深刻的体验，我从与你相处的过程中学到了忍耐，学到了说话的技巧，学到了把感情升华！
      你走后第二天，妈妈哭了，眼睛肿了两天；这叫做悲喜交集的眼泪。我们可以不用怕羞的这样告诉你。也可以不担心你憎厌而这样告诉你。人毕竟是感情的动物，偶尔流露也不是可耻的事。何况母亲的眼泪永远是圣洁的，慈爱的！

呼吸的全过程包括下面四个环节，其正确顺序是（　　）

①肺内气体交换  ②组织内气体交换  ③肺通气  ④气体在血液中的运输．

函数$f\left(x\right)=\sin \left(x+\frac{5\mathrm{\pi }}{2}\right)$是（　　）

VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

  Dim n As Integer , i As Integer , j As Integer

  Dim t1 As String

  ‘连接数据库获取数据

  Dim cn As new connection

  Dim rs As new recordest

  Dim str1 As String , str2 As String

     str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

     cn.open str1

     str2 = “select * form members where 生日 ＝’“ + text1.text + ”’”

     rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

     n = 0

     Do While Not Rs.EOF

       n = n + 1

       na(i) = rs.Fields(“姓名”).value

       rs.MoveNext

     Loop 

     rs.close

     cn.close

‘按姓名排序

If n = 0 Then

  List1.AddItem “本天没有员工生日”

Else

  For i = 1 to n-1

    For j = 1 to n+1 Step -1

      If na(j) < na(j-1) Then

        t1 = na(j) :     ①      : na(j-1) = t1

      End If

    Next j

   Next i

   For i = 1 to n

     List1.AddItem     ②   

   Next i

   Label3.Caption = “这天共” + Str(n) + “位员工生日”

  End If

End Sub