捧着空花盆的孩子

    很久很久以前，在一个国家里，一有一位贤明而受人爱戴的国王。但是，他的年纪已很大了，而且年迈的国王没有一个孩子。这件心事，使他很伤脑筋。有一天，国王想出了一个办法。他吩咐发给每个孩子一些花种子，并宣布：“如果谁能用这些花种子培育出最美丽的花朵，那么，那个孩子便是我的继承人。”

    所有的孩子都种下了那些花种子，他们从早到晚浇水、施肥、松土，护理得非常精心。有个名叫雄日的男孩，他也整天用心培育花种，但是，十天过去了，半个月过去了，一个月过去了……花盆里的种子依然如故，不见发芽。真奇怪！雄日有些纳闷。最后，他去问他的母亲：“妈妈，为什么我种的花不出芽呢？”母亲同样为此事操心，她说：“你把花盆里的土换一换，看行不行。”雄日依照妈妈的意见，在新的土壤里播下了种子，但是它们仍然不发芽。国王决定观花的日子来到了。无数个穿着漂亮的孩子涌上街头，他们各自捧着盛开着鲜花的花盆，每个人都想成为继承王位的太子。但是，不知为什么，当国王环视花朵，从一个个孩子面前走过去时，他的脸上没有一丝高兴的影子。

    忽然，在一个店铺旁，国王看见了正在流泪的雄日，这个孩子端着空花盆站在那里。国王把他叫到自己的眼前，问道：“你为什么端着空花盆呢？”雄日抽咽着，他把他如何种花，但花种又长期不萌芽的经过告诉给国王，并说，这可能是报应，因为他在别人的果园里偷摘过一个苹果。

    国王听了雄日的回答，高兴地拉着他的双手，大声地说：“这就是我的忠实的儿子。”“为什么您选择了一个端着空花盆的孩子做接班人呢？”孩子们问国王。

    于是，国王说：“子民们，我发给你们的花种子都是一煮熟了的。”听了国王的这句话，那些捧着最美丽花朵的孩子，个个面红耳赤，因为_________________________。

2013年3月3日﹣﹣17日，第十二届全国政协、全国人大第一次会议在北京召开，这体现北京城市职能是（ ）

When someone tells you that he is going to a place of interest, you should say “_____________”.

小明编写了一个VB程序实现上述功能，在名称为o_c_txt的文本框中输入原始颜色如#000000，点击命令按钮fx_cmd后，在名称为f_c_lab的标签中输出反相后的颜色如#FFFFFF。运行效果如图所示。

 实现上述功能的算法如下：

 数组dzb_h的16个元素分别存放16进制数的16个基本数码。

 依次取出原始颜色代码中每一位对应的16进制数码，例如原始颜色代码为#123456，第1次取出1，第2次取出2……

 在数组dzb_h各元素中找到对应16进制数码的元素

 运用规律：0+F=1+E…=7+8取得反相色并累加，例如：数组dzb_h第1个元素值的反相色的值是数组dzb_h第16个元素值。

 输出得到的反相色。

 实现上述功能的VB程序代码段如下，请完善相关程序代码。

Private Sub fx_cmd_Click()

  Dim dzb_h(1 To 16) As String

  Dim o_c As String, f_c As String, i As Integer, xbxh As Integer, c As String

  dzb_h(1) = "0": dzb_h(2) = "1": dzb_h(3) = "2": dzb_h(4) = "3"

  dzb_h(5) = "4": dzb_h(6) = "5": dzb_h(7) = "6": dzb_h(8) = "7"

  dzb_h(9) = "8": dzb_h(10) = "9": dzb_h(11) = "A": dzb_h(12) = "B"

  dzb_h(13) = "C": dzb_h(14) = "D": dzb_h(15) = "E": dzb_h(16) = "F"

  o_c = o_c_txt.Text  '存储原始色

  i = 2

  f_c = "#"     '存储反相色

  Do While i <= Len(o_c)

    c = Mid(o_c, i, 1)

    If Asc(c) > 96 Then c = Chr(Asc(c) - 32) '小写字母变大写字母

    xbxh = 1

    Do While xbxh < 17

      If ____ Then    '在数组中找到对应16进制数码的元素

        f_c = ____    '累加反相色对应的16进制代码

        Exit Do

      End If

      xbxh = xbxh + 1

    Loop

    i = i + 1

  Loop

  f_c_lab.Caption = f_c

End Sub