阅读下面文字，回答1—3题。

科学素质是决定人的思维方式和行为方式的重要因素，是人们过上美好生活的前提，更是实施创新驱动发展战略的基础。在科技日新月异、迅猛发展的今天，科技深刻地影响着经济社会生活的方方面面，公民科学素质已经成为国家综合实力的重要组成部分，成为先进生产力的核心要素之一，成为影响社会稳定、国计民生和生活品质的直接因素。提高我国公民的科学素质，在当前是一个紧迫任务。

2011年，日本发生的9.0级强地震引发核泄漏事故，在我国公众中掀起了一场抢购食盐风波，这场风波造成了不良的社会影响。无独有偶， 2007年广东和海南等地“吃了得香蕉黄叶病的香蕉会得癌症”的谣传传闻满天飞，致使香蕉价格不正常地大幅下跌，蕉农损失惨重。这里面的原因比较复杂，但公民科学素质不高显然是一个重要因素，但公民科学素质不高显然是一个重要因素，这凸显出提高公民科学素质的紧迫性。

  公民具备基本科学素质，是指了解必要的科学技术知识，掌握基本的科学方法，讲求科学思维，崇尚科学精神，并具有一定的应用它们处理实际问题、参与公共事务的能力。公民科学素质是可以测量的，国际上的通行做法是通过公民科学素质调查获得在“了解科学知识、理解科学方法、理解科技对个人和社会的影响”三方面都达标的公民比例。2010年我国公民具备基本科学素质的比例为3.27%，预计2015年将超过5%。但是，这个水平仅相当于发达国家20世纪80年代末的水平。据中国科普研究所预测，到2020年我国公民具备基本科学素质的比例应超过10%，才能有效支撑创新型科技人力资源的产出、全面建成小康社会目标的实现。可见，提高公民科学素质、时间紧迫，任务艰巨，意义重大。

则双亲的基因型是（　　）

实现上述功能的VB程序如下，但加框处代码有错误，请改正。

  Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

 End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

   If a(i) > key Then

      List2.AddItem Str(a(i))

      n = n + 1

   End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

       n = n + 1

    End If

Next i

End Sub