Private Sub Form_Click(  )

Dim x as Integer, n as Integer

 x=1

 n=0

Do While x < 20

    n=n+1

    x=x * 3

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

End Sub

下列城市中夏至日这一天，白昼最长的是(     )

把左边的实例与其相对应的育种方法用线连接起来：

①花药离体培养再用秋水仙素加倍得到烟草新品种____             a．杂交育种

②用⁶⁰Co辐射谷氨酸棒状杆菌，选育出合成谷氨酸的新菌种____    b．诱变育种

③用小麦和黑麦培育八倍体黑小麦____                           c．单倍体育种

④将青椒的种子搭载人造卫星到太空中后返回地面____             d．多倍体育种

⑤用抗倒伏、不抗锈病和不抗倒伏、抗锈病的两个小麦品种，培育出抗倒伏、抗锈病的品种____

⑥用秋水仙素或硫酸二乙酯处理蕃茄、水稻种子____