Показать сообщение отдельно
  (#2 (permalink)) Старый
Vlanib Vlanib вне форума
Member
 
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.07.2008
По умолчанию 30.04.2010, 22:09

Код:
Dim arrNames(), i As Integer, sName As String
For i = 0 To 19
    arrNames(i) = InputBox("Введите фамилию сотрудника:")
Next
sName = InputBox("Кого ищем?")
For i = 0 To 19
    If arrNames(i) = sName Then MsgBox sName & " под номером " & i: Exit Sub
Next
Ответить с цитированием
Ads