| Вопрос: Помогите опять | Добавлено: 21.02.07 21:13 |
Автор вопроса:  D o c a l | Web-сайт: www.doc-source.pp.net.ua/ | ICQ: 408802757 |
|
user unknow здесь єсьть один глюк єсли в первом чмсле єсть часть второго то прога говотит що єсть такоє число.
Народ подскажитє как із 10 чисел найти нетли равних например 10 пример if 10 = 11,10,15,102 then msgbox "тут єсть число 10" |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Eugeny Вопросов: 0 Ответов: 26 |
Профиль | | #1 | Добавлено: 21.02.07 21:17 |
| Незнаю чем и помочь! )) | ||
|
Номер ответа: 2 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #2 | Добавлено: 21.02.07 21:39 |
|
Пробуй Split()
Dim rst() As String, n As Integer, Exist As Boolean bf = "1,5,1,4" rst() = Split(bf, "," 
For n = LBound(rst) To UBound(rst) If rst(n) = "10" Then Exist = True Next n MsgBox Exist Если по завершении Exist будет True, значит число есть |
||
|
Номер ответа: 3 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 21.02.07 22:29 |
|
если например 10 , то раздели числа и если остаток равен 1 then msgbox "тут єсть число 10" Это частный случай.
|
||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 21.02.07 22:30 |
| На 10 | ||
|
Номер ответа: 5 Автор ответа: W[4Fh]LFВопросов: 0 Ответов: 187 |
Web-сайт: Профиль | | #5 | Добавлено: 21.02.07 22:44 |
|
if (10 = 10) or (10 = 11) or (10 = 12) then MsgBox "Try"
|
||
|
Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 21.02.07 22:49 |
Не тут реально безвыходная ситуация!  )
|
||
|
Номер ответа: 7 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #7 | Добавлено: 21.02.07 23:01 |
|
А если масив 1000 строк?
А он насколько я понял ищет только 10, не может же он считать что 10=11 или 102, просто мысль немного темна изложена. єсли в первом чмсле єсть часть второго Может я его не понял? А если он считает десятки то опять деление на десять и если остаток более 1 и если перввый символ справа не равен 0 то then msgbox "тут єсть число 10" типа десятки....
|
||
|
Номер ответа: 8 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #8 | Добавлено: 22.02.07 16:51 |
|
пацани спасиба можна зделать і так
text8.text="10 12 120 34" numb=10 pos = InStr(Text8.Text, " " + Format(numb) + " "
If pos <> 0 Then msgbox "тут есть такоє число" end if |
||
Страница: 1 |