下列程序的输出结果是______。 Private Sub Command1_Click() Dim arr(1To 10) For i＝1 To 10 arr(i)＝i Next i For Each i In arr() arr(i)＝arr(i)*2+1 Next i MsgBox arr(7) End Sub

以下案例中，属于评估企业资源优势的有（）。

A.食品加工产业的许多部门可以通过全球化生产来大幅度降低生产费用，但是该产业的全球化潜力受到了诸如损耗和低价值／重量比的限制，这些问题使运输费用昂贵得无法接受

B.这些企业拥有一个本土的销售网络，跨国竞争对手需要多年才能建立起类似的销售网路

C.本土企业可能与政府官员有着长期紧密的交往，这对于跨国竞争对手而言是难以企及的

D.本土企业具有符合当地消费者偏好的特色产品，而跨国竞争对手可能无法低成本生产这些产品