如何在VB的一组数列中找出前三大的数的序列数？

你好；女性尤其是已婚女性，有性生活，经过分娩，流产，或者手术会损伤到宫颈，而且有性生活后阴道前后壁贴合的不是很紧了，不像未婚前闭合的状态增加了感染妇科疾病的机会，再就是性生活不卫生，经期不卫生，经期同房等都会导致病菌入侵，感染妇科疾病的。

病情分析：
你好，建议在医生指导下口服大扶康，凯妮汀阴道用药。治疗期间保持外阴部的清洁、干燥、避免搔抓导致皮肤受损，避免性生活，内裤，洗涤用具均应用开水烫洗进行消毒.
指导意见：
免交叉感染和重新感染的机会。饮食上多吃瘦肉牛肉高蛋白食物，富含维生素的蔬果，忌烟酒、酸辣。适当加钱体育锻炼，注意休息不要过于劳累。

病情分析：
你有妇科炎症去看医生，医生说的是很多已婚女性会有。但如果保护得好，得病的机率就会小。
指导意见：
你好，女人的身体本来就弱，加上大部分都有贫血，就更弱了，身体不好，自身免疫低下，得病的机率也就相对较高，这很正常的。就跟小感冒差不多。你说你有妇科炎症，建议最好去医院做个白带常规检查，看看到底是什么炎症在作怪，做个彻底的治疗，就不怕它复发了。

病情分析：
有妇科炎症去看医生，医生说的是很多已婚女性会有。但如果保护得好，得病的机率就会小。
指导意见：
人的身体本来就弱，加上大部分都有贫血，就更弱了，身体不好，自身免疫低下，得病的机率也就相对较高，这很正常的。就跟小感冒差不多。你说你有妇科炎症，建议最好去医院做个白带常规检查

For i = 1 To 10 
            For j = 1 To 10 - i 
                If a(j) > a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i

这个是冒泡排序，排序完，取前三个就可以了

典型的排序算法 用 冒泡法执行即可