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

阅读下文，回答相关问题

                                                                                                                                                  神奇的丝瓜
                                                                                                                                                      季羡林
        今年春天，孩子们在房前空地上，斩草挖土，开辟出来了一个一丈见方的小花园。周围用竹竿扎了一个篱笆，移来了一棵玉兰花树，栽上了几株月季花，又在竹篱下面随意种上了几棵扁豆和两棵丝瓜。土壤并不肥沃，虽然也铺上了一层河泥，但估计不会起很大的作用，大家不过是玩玩而已。
        过了不久，丝瓜竟然长了出来，而且日益茁壮、长大。这当然增加了我们的兴趣。但是 我们也并没有过高的期望。我自己每天早晨工作疲倦了，常到屋旁的小土山上走一走，站一站，看看墙外马路上的车水马龙和亚运会招展的彩旗，顾而乐之，只不过顺便看一看丝瓜罢了。
        丝瓜是普通的植物，我也并没有想到会有什么神奇之处。可是忽然有一天，我发现丝瓜秧爬出了篱笆，爬上了楼墙。以后，每天看丝瓜，总比前一天向楼上爬了一大段；最后竟从一楼爬上了二楼，又从二楼爬上了三楼。说它每天长出半尺，决非夸大之词。丝瓜的秧不过像细绳一般粗，如不注意，连它的根在什么地方，都找不到。这样细的一根秧竟能在一夜之间输送这样多的水分和养料，供应前方，使得上面的叶子长得又肥又绿，爬在灰白色的墙上，一片浓绿，给土墙增添了无量活力与生机。
        这当然让我感到很惊奇，我的兴趣随之大大地提高。每天早晨看丝瓜成了我的主要任务，爬小山反而成为次要的了。我往往注视着细细的瓜秧和浓绿的瓜叶，陷入沉思，想得很远，很远……
        又过了几天，丝瓜开出了黄花。再过几天，有的黄花就变成了小小的绿色的瓜。瓜越长越长，越长越长，重量当然也越来越增加，最初长出的那一个小瓜竟把瓜秧坠下来了一点，直挺挺地悬垂在空中，随风摇摆。我真是替它担心，生怕它经不住这一份重量，会整个地从楼上坠了下来落到地上。
然而不久就证明了，我这种担心是多余的。最初长出来了的瓜不再长大，仿佛得到命令停止了生长。在上面，在三楼一位一百零二岁的老太太的窗外窗台上，却长出来两个瓜。这两个瓜后来居上，发疯似地猛长，不久就长成了小孩胳膊一般粗了。这两个瓜加起来恐怕有五六斤重，那一根细秧怎么能承担得住呢？我又担心起来。没过几天，事实又证明了我是杞人忧天。两个瓜不知从什么时候忽然弯了起来，把躯体放在老太太的窗台上，从下面看上去，活像两个粗大弯曲的绿色牛角。
        不知道从哪一天起，我忽然又发现，在两个大瓜的下面，在二三楼之间，在一根细秧的顶端，又长出来了一个瓜，垂直地悬在那里。我又犯了担心病：这个瓜上面够不到窗台，下面也是空空的；总有一天，它越长越大，会把上面的两个大瓜也坠了下来，一起坠到地上，落叶归根，同它的根部聚合在一起。
        然而今天早晨，我却看到了奇迹。同往日一样，我习惯地抬头看瓜：下面最小的那一个早已停止生长，孤零零地悬在空中，似乎一点分量都没有；上面老太太窗台上那两个大的，似乎长得更大了，威武雄壮地压在窗台上；中间的那一个却不见了。我看看地上，没有看到掉下来的瓜。等我倒退几步抬头再看时，却看到那一个我认为失踪了的瓜，平着身子躺在抗震加固时筑上的紧靠楼墙凸出的一个台子上。这真让我大吃一惊。这样一个原来垂直悬在空中的瓜怎么忽然平身躺在那里了呢？这个凸出的台子无论是从上面还是从下面都是无法上去的，决不会有人把丝瓜摆平的。
        我百思不得其解，徘徊在丝瓜下面，像达摩老祖一样，面壁参禅。我仿佛觉得这棵丝瓜有了思想，它能考虑问题，而且还有行动，它能让无法承担重量的瓜停止生长；它能给处在有利地形的大瓜找到承担重量的地方，给这样的瓜特殊待遇，让它们疯狂地长；它能让悬垂的瓜平身躺下。如果不是这样的话，无论如何也无法解释我上面谈到的现象。但是，如果真是这样的话，又实在令人难以置信。丝瓜用什么来思想呢？丝瓜靠什么来指导自己的行动呢？上下数千年，纵横几万里，从来也没有人说过，丝瓜会有思想。我左考虑，右虑；越考虑越糊涂。我无法同丝瓜对话，这是一个沉默的奇迹。瓜秧仿佛成了一根神秘的绳子，绿叶上照旧浓翠扑人眉宇。我站在丝瓜下面，陷入梦幻。而丝瓜则似乎心中有数，无言静观，它怡然泰然悠然坦然，仿佛含笑面对秋阳。
                                                                                                                                                                                                                         （选自《季羡林人生漫笔》）