A：－1
B：
C：1
D：2
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c = 0: n = 10
For i = 1 To 10 Step 2
If n Mod i = 0 Then
c = c * i
Else
c = c + i
End If
Next i
Text1.Text = Str(c)
End Sub
如图是植物细胞和动物细胞的结构示意图，据图回答问题：（说明：中填图中序号，“横线”上填文字．）
小红：“售货员，我要买些梨。”
售货员说：“小红，你上次买的那种梨卖完了，我们还没来得及进货，我建议你这次买些新进的苹果，价格比梨贵一点，不过这批苹果的味道挺好哟！”
小红：“好，这次和上次一样，也花30元。”
对照前后两次的电脑小票，小红发现，每千克苹果的单价是梨的1.5倍，买的苹果的重量比梨轻2.5Kg。
试根据上面的对话和小红的发现，分别求出苹果和梨的单价。
物质
a
b
c
d
反应前的质量/g
6.4
14.0
3.2
1.0
反应一段时间后的质量/g
10.0
7.2
x
展开式中
的系数为10，则实数a等于()
