阅读程序：

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer,j As Integer

ReDim arr(3,2)

For i=1 To 3

For j=1 To 2

arr(i,j)=i*2+j

Next j

Next i

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Next j

Print arr(3,2)+arr(3,4)

End Sub

程序运行后，单击窗体，输入结果为（）。

A．21

B．13

C．8

D．25

决定某商品需求价格弹性的主要因素有（）。

A.消费者对该商品的必需程度

B.该商品替代品的可获性大小

C.在该商品上的支出占总消费支出的比例

D.观察的时间长短