新建From1（窗体），新建Combo1（ComboBox），Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    ' 向 ComboBox 中添加 0 到 9 的数字
    Dim i As Long
    For i = 0 To 9
        Combo1.AddItem i
    Next
    
    ' 遍历 ComboBox 并选择 5
    For i = 0 To Combo1.ListCount - 1
        If Combo1.List(i) = 6 Then
            Combo1.ListIndex = i
            Exit For
        End If
    Next
End Sub

如果 Combo1.List(i) =46 找不到，那么就会停留在第一项。