Фунция Instr()

@proger2030 · Регистрация: 15.11.2010

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8
Case 44, 46
KeyAscii = 46
If InStr(Text3.Text, ".") <> 0 Then 'не могу понять что за функция InStr()? что она делаеть ? (if я знаю!)
KeyAscii = 0
End If
Case 13
Command1.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub

@аналитика · 19.11.2010, 09:36

Visual Basic

1	InStr(Text3.Text, ".")

возвращает позицию точки (.) в Text3.Text, напр., InStr("a.bc", ".") = 2,
если =0, символ не найден.

@arsen1101995 · 14.05.2013, 22:06

Извините, что вмешиваюсь, а если у нас в кавычках слово?Например, так

Visual Basic

1	InStr(Text3.Text, "слово")

То тогда, какое значение возвращает?

@~~Апострофф~~ · 14.05.2013, 22:09

Не по теме:

arsen1101995, а с кем вы сейчас разговаривали? 19.11.2010, 09:36=-O

@arsen1101995 · 14.05.2013, 22:28

Кто знает ответ, с тем

@Pro_grammer · 14.05.2013, 22:40

Сообщение от arsen1101995

какое значение возвращает?

А что в Text3.Text?

@arsen1101995 · 14.05.2013, 22:43

Например, текст "это слово является важным"
Тогда, если в кавычках указать слово "слово", вот так

Visual Basic

1	InStr(Text3.Text, "слово")

какое значение возвращает функция?)

morgann55 · 14.05.2013, 23:11

Сообщение от arsen1101995

Например, текст "это слово является важным"
Тогда, если в кавычках указать слово "слово", вот так

Visual Basic

1	InStr(Text3.Text, "слово")

какое значение возвращает функция?)

Вернёт место начала ЭТОГО слова в строке (5) ...

@arsen1101995 · 14.05.2013, 23:12

Ааа...Понятно, спасибо)

@~~Апострофф~~
	14.05.2013, 22:09 #4
	Не по теме: arsen1101995, а с кем вы сейчас разговаривали? 19.11.2010, 09:36=-O 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	14.05.2013, 22:28	5
	Кто знает ответ, с тем 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	14.05.2013, 22:40	6
	Сообщение от arsen1101995 какое значение возвращает? А что в Text3.Text? 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	14.05.2013, 23:12	9
	Ааа...Понятно, спасибо) 0

Фунция Instr()

Решение