有如下程序： 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

安徽某企业在2009年5月以20美元每件的价格出售20万件商品，该商品的社会平均成本为人民币90元（当时汇率是1美元兑换人民币6.95元。半年后该企业以同样价格出售20万件商品（汇率是1美元兑换6.75元），且该企业劳动生产率提高45%，其他条件不变。半年后该企业获得的利润是（）人民币，与半年前比（）人民币

A.1800万多赚1200万

B.1500万多赚520万

C.980万少赚1200万

D.2700万少赚1500万