属于“母病及子”的脏病传变是( )
A.心病及脾B.心病及肾C.心病及肺D.心病及肝E.以上均非
参考答案:A
下面是绿色植物受精过程、种子、芽和植株结构示意图,请认真观察图示并分析回答下列问题。(6分)
(1)绿色植物发育的起点是受精卵。图一中受精卵是在[ ] 中形成的。
(2)受精卵发育成胚。图二中,胚的组成包括 (填图中序号)。与玉米种子的胚、相比,图二所示结构的胚中[ ] 是两片,而玉米种子只有一片。
(3)种子萌发时,胚芽发育成茎和叶。图三中的c将来发育形成图四中的[ ] 。
(4)春天到来新芽绽放,绿色植物的芽不一定都发育成枝条,如图三中有的芽将来既可发育成图四中的[ ] ,也可以发育成图四中的B.
(5)若图一表示桃花的部分结构,则桃的可食用部分是由[ ] 发育来的。
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: 单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个正整数读入数组a中,同时显示在Text1文本框中; 单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中,并将数组b中的元素显示在文本框Text2中。 在给出的窗体文件中已经有了全部控件(如图5所示),但程序不完整。
要求:完善程序使其实现上述功能。 注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须先执行“素数”操作,然后再用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。 [题目提供的源程序] Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in5.dat" For Input As #1 For k=1 To 100 Input #1, a(k) Text1=Text1+Str(a(k))+Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num=0 If Len(Text1.Text)=0 Then MsgBox "请先执行"读数据"功能!" Else ’考生应编写的程序(功能:生成存放素数的数组b) ’注意:请务必将数组b的元素个数存入变量num中 ’以下程序段将b数组的内容显示在Text2中 For i=1 To num Text2.Text=Text2.Text+Str(b(i))+Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub