vb?Private Sub Form_Load()
    
    Combo1.AddItem "男"
    Combo1.AddItem "女"
    
    Combo1.ListIndex = 0    '设定默认选中的是第一个,即男
End Sub