ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переворот чисел
5 сообщений из 5, страница 1 из 1
Переворот чисел
    #34060165
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(so) blind
Участник
Надо чтоб пользователь вводил число в текстовое поле и через кнопку в другое текстовое поле выводилось число наоборот
Пример : 635 - 536
...
Рейтинг: 0 / 0
17.10.2006, 14:09
| Ответить | Цитировать | Написать  
Переворот чисел
    #34060210
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
самая любимая прога, которую я любил писать на basic в ПЗУ старых IBM, так, короче решение проблемы:
1. Есть встроенная функция StrReverse
2. Или такую можно использовать:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function Reverse(strString$) As String
    Dim strResult$,i%
    strResult=""
    For i=Len(strString) to  1  Step - 1 
        strResult=strResult & Mid(strString,i, 1 )
    Next
    Reverse=strResult
End Function
...
Рейтинг: 0 / 0
17.10.2006, 14:18
| Ответить | Цитировать | Написать  
Переворот чисел
    #34060288
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(so) blind
Участник
orunbekсамая любимая прога, которую я любил писать на basic в ПЗУ старых IBM, так, короче решение проблемы:
1. Есть встроенная функция StrReverse
2. Или такую можно использовать:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function Reverse(strString$) As String
    Dim strResult$,i%
    strResult=""
    For i=Len(strString) to  1  Step - 1 
        strResult=strResult & Mid(strString,i, 1 )
    Next
    Reverse=strResult
End Function

Я переделал чуток
Private Sub Command1_Click()
Text2.Text = ""
For i = Len(Text1.Text) To 1 Step -1
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
Next i
End Sub
спасибо большое
...
Рейтинг: 0 / 0
17.10.2006, 14:39
| Ответить | Цитировать | Написать  
Переворот чисел
    #34060446
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
orunbek, там у вас нет надобности передавать аргумент ByRef, раз сама функция все возвращает.

(so) blind, функция orunbek предпочтительнее вашего исполнения, так как более универсальна.
...
Рейтинг: 0 / 0
17.10.2006, 15:19
| Ответить | Цитировать | Написать  
Переворот чисел
    #34060657
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
(so) blind,
Вот ребятки на xbeat веселились.
...
Рейтинг: 0 / 0
17.10.2006, 16:09
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переворот чисел
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34060657&tid=2165146]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 164ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 271ms
total:  500ms
созд. / загр.: 500ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]