Найти и напечатать порядковые номера задаваемых фамилий - VB

Узнай цену своей работы

Формулировка задачи:

Имеется ведомости,состоящие из 10 фамилий.Найти и напечатать порядковые номера задаваемых фамилий
Мне нужно просто как индекс получить
null

Решение задачи: «Найти и напечатать порядковые номера задаваемых фамилий»

textual
Листинг программы
Private Sub Command4_Click()
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If InStr(1, Text1.Text, Combo1.List(i)) <> 0 Then
              MsgBox i 'Вот он, Ваш индекс
        End If
    Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы