| Вопрос: последователность цифр 2 тройки и т д | Добавлено: 28.06.04 13:58 |
Автор вопроса:  starmen
|
|
Привет Ребята !
У меня такая проблема.Имеется такая порследователност чисел.Я ввожу в ТехтВох 123429317654876230134599933876781123 и после нажатия кнопки Прога должна сообшить что у Вас 1- 5 2- 4 3- 7 4- 3 5- 2 6- 3 7- 4 8- 3 9- 4 0- 1 1- Ребя та пошу написат код для этой кнопки.Короче вводим какую ни будь последователность цифр а прога сообшает нам что сдесь 3 единицы,5 пятёрок и т д |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 28.06.04 14:13 |
|
Private Sub Command1_Click()
Dim Num(0 To 9) As Long Dim i As Long Dim Res As String For i = 1 To Len(Text1) Num(Val(Mid$(Text1, i, 1))) = Num(Val(Mid$(Text1, i, 1))) + 1 Next i For i = 0 To 9 Res = Res & i & " - " & Num(i) & vbCrLf Next i MsgBox Res End Sub 'Text1 - твой TextBox 'Command1 - твоя кнопка |
||
|
Номер ответа: 2 Автор ответа: starmen Вопросов: 25 Ответов: 17 |
Профиль | | #2 | Добавлено: 28.06.04 15:56 |
|
Спасибо тебе Очень большое.Я сам бы этого не смог бы.Ну тепер чтоб эти цифры расположились так.
например 661120223448890 1-2-11 2-2-222 3-х-х 4-2-44 5-1-5 6-2-66 7-х-х 8-2-88 9-1-9 0-1-0 х-значить такой цифры нет 1 4 7 11 44 х 0 2 5 8 0 222 5 88 3 6 9 х 66 9 |
||
|
Номер ответа: 3 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 29.06.04 08:59 |
| Не понял. Можно задачу словами сформулировать? | ||
|
Номер ответа: 4 Автор ответа: starmenВопросов: 25 Ответов: 17 |
Профиль | | #4 | Добавлено: 29.06.04 14:38 |
|
Привет!!! Спасибо за помощь.
У нас такое последовательность чисел. 11122872234455566667990088 Ты успешно перевёл и стало так 1-3 (Единиц 3 шт.) 2-4 3-1 4-2 … 9-2 0-2 и т д.Тепер надо так 1-3-111 2-4-2222 3-1-333 4-2-44 … 9-2-99 0-2-00 Если какая из етих цифр в наборе чисел будет отсутстовать то вместо этой цифры должен записатся «Х»,что означает что такого нет. Пример 123457898887431484 1-2-11 2-1-2 3-2-33 4-4-4444 5-1-5 6-0-Х 7-2-77 8-5-88888 9-1-9 0-0-Х Спасибо |
||
|
Номер ответа: 5 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #5 | Добавлено: 29.06.04 15:03 |
|
Всё равно не понял. Цитирую:
>1-3-111 >3-1-333 Так какое же всё-таки число отвечает за символ, а какое за количество символов? Попробуй так (реализует алгоритм 1-3-111): Private Sub Command1_Click() Dim Num(0 To 9) As Long Dim i As Long Dim Res As String For i = 1 To Len(Text1) Num(Val(Mid$(Text1, i, 1))) = Num(Val(Mid$(Text1, i, 1))) + 1 Next i For i = 0 To 9 If Num(i) > 0 Then Res = Res & i & " - " & Num(i) & " - " & String$(Num(i), Format$(i)) & vbCrLf Else Res = Res & i & " - " & Num(i) & " - x" & vbCrLf End If Next i MsgBox Res End Sub |
||
|
Номер ответа: 6 Автор ответа: starmenВопросов: 25 Ответов: 17 |
Профиль | | #6 | Добавлено: 29.06.04 15:48 |
| Нет!!!!!!!!!Ты просто ГЕНИЙ.Огромное Спасибо за ответы и поддержку.Напиши мне свой Е-маил | ||
|
Номер ответа: 7 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #7 | Добавлено: 29.06.04 16:56 |
|
А Е-маил-то зачем?
a.pashenko@mail.ru |
||
|
Номер ответа: 8 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 29.06.04 17:05 |
будешь, впредь, решать задачки  )) шучу
|
||
|
Номер ответа: 9 Автор ответа: starmenВопросов: 25 Ответов: 17 |
Профиль | | #9 | Добавлено: 29.06.04 17:42 |
|
Еще одна проблема.пршу помочь
TextBox-e при решении задач получается 2-х значное число.Надо его в 1 значную перевести.А,В,С и Д это TextBox-ы Вариант 1. А=29 Здесь при сложении 2 и 9 получается 11 это > 9 В=left(A,1)=2 С=Right(A,1)=9 Д=B+C=2+9=11=left (D,1)+ right(D,1)=1+1=2 Д=2 Вариант 2 А=36 Здесь при сложении 3 и 6 получается 9 это = 9 (в другом может быть и <9) В=left(A,1)=3 С=Right(A,1)=6 Д=3+6=9 Д=9 |
||
|
Номер ответа: 10 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #10 | Добавлено: 30.06.04 09:42 |
|
А проблема-то в чём? Весь алгоритм расписан уже.
Private Sub Command1_Click() If Len  = 2 Then
B = Left$(A, 1) C = Right$(A, 1)  = CInt(B) + CInt(C)
If CInt(D) > 9 Then D = CInt(Left(D, 1)) + CInt(Right(D, 1)) End If End Sub |
||
|
Номер ответа: 11 Автор ответа: starmenВопросов: 25 Ответов: 17 |
Профиль | | #11 | Добавлено: 01.07.04 08:32 |
| Привет !!! Проблема решена с твоей помошю.Вот вводим в техтбох 1234567890 а надо чтобы это последователность чисел стал таким отображался в обратном порядке,вот так 0987654321.Я не хочу тебя хвалит но это так .Спасибо | ||
Страница: 1 |