Найти и напечатать порядковые номера задаваемых фамилий - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д