下列程序段错误的是( )。

A．Dim a As Integer a=array(1，2,3,4)

B．Dim a()，b() a=array(1，2,3,4)：b=a

C．Dim a As Variant a=array(1，"asd",tru

D．Dim a()As Variant a=array(1,2,3,4)

病历摘要女性，34岁，已婚，停经43天，右下腹剧痛并晕倒1小时。患者43天前末次月经，停经第35天出现头晕、恶心、乏力等不适症状，自测尿妊娠试验阳性。近一周来自觉右下腹胀痛不适。恶心较前明显。但不影响日常生活，1小时前突感右下腹撕裂样剧痛。随感头晕有肛门坠胀感。乏力，眼前发黑，晕倒。被送往医院。患者13岁初潮，平素月经规律，周期29天。经期4～5天，量中。无痛经，25岁结婚。生育史G3P0。近5年来不孕，既往体健。查体：T36℃，P108次/分，R24次/分，BP50/30mmHg。面色苍白，仰卧位，肺部查体无异常，心率108次/分，律齐。全腹压痛（+），以右下腹为主，反跳痛不明显。移动性浊音阳性。外阴无异常， * * 通畅、后穹窿饱满。宫颈举痛（+），子宫中位、正常大小、稍软、漂浮感。右侧附件区可触及约6cm×5cm不规则包块，质地软，边界不清，左侧附件区未触及异常。要求：根据以上病历摘要，请写出初步诊断、诊断依据（如有两个以上诊断，应分别写出各自诊断依据，未分别写出扣分）、鉴别诊断、进一步检查与治疗原则。