运行下列程序： Private Sub Form Click() Sum=0 For i=1 To 100If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是

A．12

B．13

C．14

D．15

下面是某超市水果区货架上水果及产地的标签，其中标注错误的是

A．品名：哈密瓜产地：中国新疆

B．品名：芒果产地：中国海南

C．品名：柑橘产地：中国河北

D．品名：苹果产地：中国山西