题目内容（请给出正确答案）

[单选题]

关于物种起源的问题，如果一位生物学家，对生物相互间的亲缘关系、它们胚胎的关系、地理的分布以及在地质期内出现的程序等事实加以思考，那么，我们可以推想得到，生物的种和变种一样，是由以前别的种演变而来的，而不是分别创造出来的。这段话主要阐述的是()。

A.生物的种的起源是演变而来的

B.生物的种起源于相互间的亲缘关系

C.生物的种起源于它们的胚胎关系

D.生物的种起源于地理的分布

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“关于物种起源的问题，如果一位生物学家，对生物相互间的亲缘关系…”相关的问题

第1题

设有如下程序：Private Sub Form_Click（)Dim ary（1 To 5)As IntegerDim i As IntegerDim sum As I

设有如下程序：

Private Sub Form_Click()

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(j)=i+1

sum=sum+ary(i)

Next 1

Print sum

Eud Sub

程序运行后，单击窗体，则在窗体上显示的是

A．15

B．16

C．20

D．25

点击查看答案

第2题

设有如下程序： Private Sub Form_Click（) Dim a As Integer，s As Integer

设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【】。程序进行后，单击窗体，输出结果为【】。

点击查看答案

第3题

设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i As Integer a=Array（1，

设有如下程序： Option Base 0 Private Sub Form_Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A.4 3 2 1

B.5 4 3 2

C.6 5 4 3

D.7 6 5 4

点击查看答案

第4题

有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A．12

B．30

C．24

D．18

点击查看答案

第5题

有如下程序: Private Sub Form_Click（)Dim i As Integer, Sum As Integer Sum=0 For i=2 To 10 I

有如下程序:

Private Sub Form_Click()

Dim i As Integer, Sum As Integer

Sum=0

For i=2 To 10

If i Mod 2=0 And i Mod 3<>0 Then

Sum=Sum+i

End If

Print Sum

End Sub

程序运行后,单击窗体,输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第6题

有如下程序：Private Sub Form_Click（)Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To

有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第7题

有如下程序: Private Sub Form_Click（)Dim i As Integer, Sum As Integer Sum=0 For i=2 To 10 I

有如下程序:

Private Sub Form_Click()

Dim i As Integer, Sum As Integer

Sum=0

For i=2 To 10

If i Mod 2<>0 And i Mod 3=0 Then

Sum=Sum+i

End If

Print Sum

End Sub

程序运行后,单击窗体,输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第8题

有如下程序：Private Sub Form_Click（)Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i M

有如下程序：

Private Sub Form_Click()

Dim i As Integer，Sum As Integer

Sum=0

For i=2 To 10

If i Mod 2＜＞0 And i Mod 3=0 Then

Sum=Sum+i

EndIf

Print Sum

End Sub

程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第9题

有如下程序： Private Sub Form_Click（) Dim i As Integer, Sum As IntegerSum = 0For i = 2 To

有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18

点击查看答案

第10题

设有如下程序： Private Sub Form. Click（） Dim i As Integer，x As String，y As String x="

设有如下程序：

Private Sub Form. Click（）

Dim i As Integer，x As String，y As String

x="ABCDEFG"

For i=4 To 1Step-1