Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> запись наоборот, запись наоборот 
:(
    Опции темы
Гость_max07
Дата 21.4.2005, 08:13 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Как можно рализовать алгоритм записи чисел наоборот? Например 753-357?
  Вверх
timer
Дата 21.4.2005, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 17.12.2004
Где: Россия, Башкортос тан

Репутация: нет
Всего: 2
Цитата
Как можно рализовать алгоритм записи чисел наоборот? Например 753-357?

Text2.Text = StrReverse(Text1.Text)
PM MAIL ICQ   Вверх
boevik
Дата 21.4.2005, 08:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
смотри функцию: StrReverse


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Гость_max07
Дата 21.4.2005, 08:27 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
А вот ещё вопрос, как выбрать из интервала 100-999 числа оканчивающиеся на 4?
  Вверх
Гость_max07
Дата 21.4.2005, 08:47 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Лиуди посмотрити, очен надо
  Вверх
Akina
Дата 21.4.2005, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата
как выбрать из интервала 100-999 числа оканчивающиеся на 4

Код

For i=104 to 994 step 10
   Debug.Print i
Next i


Зарегистрируйся, что ли...



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
amt
Дата 21.4.2005, 08:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Цитата
А вот ещё вопрос, как выбрать из интервала 100-999 числа оканчивающиеся на 4?

Код

for x=100 to 999
if Right(x,1)=4 then beep 'делай что нужно
next x

--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
timer
Дата 21.4.2005, 08:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 17.12.2004
Где: Россия, Башкортос тан

Репутация: нет
Всего: 2
Цитата
А вот ещё вопрос, как выбрать из интервала 100-999 числа оканчивающиеся на 4?

Код


m = Text1.Text 'начало диапазона
n = Text2.Text ' конец диапазона
For i = m To n
If Right(i, 1) = "4" Then RichTextBox1.Text = RichTextBox1.Text + vbCrLf + Str(i)
Next i
End Sub
PM MAIL ICQ   Вверх
Akina
Дата 21.4.2005, 08:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
amt
По-твоему функция Right будет счастлива получить число вместо ожидаемой строки?

timer
И у тебя несоответствие типов.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Гость_max07
Дата 21.4.2005, 08:58 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Пасибо
  Вверх
amt
Дата 21.4.2005, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Akina
Только что проверил - все работает.
На крайняк моно юзать Str и Val
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
timer
Дата 21.4.2005, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 93
Регистрация: 17.12.2004
Где: Россия, Башкортос тан

Репутация: нет
Всего: 2
Цитата(Akina @ 21.4.2005, 08:57)
timer
И у тебя несоответствие типов.

Все прекрастно работает...
PM MAIL ICQ   Вверх
Akina
Дата 21.4.2005, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(timer @ 21.4.2005, 10:00)
Все прекрастно работает...

ЗначИТ, ты пишешь максимум самоделки на 200 строк. А вот в большом проекте выискивать ляпы неявного преобразования типов - страшный сон... отвыкай...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0692 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.