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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ПОМОГИТЕ!!!!!! ПРОГРАММИРОВАНИЕ В VBA (EXCEL)!!! 
:(
    Опции темы
Ватрушка
  Дата 3.12.2008, 22:51 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
Создать процедуру, перемещающую последнюю введенную запись на место первой записи.


 Задача 1
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом


Это сообщение отредактировал(а) Ватрушка - 4.12.2008, 16:33
PM MAIL   Вверх
Naghual
Дата 4.12.2008, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Ошиблись разделом, заголовком и манерой написания
Читайте правила


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Данкинг
Дата 4.12.2008, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Снова не понимаю: что тут сложного-то? Просто посидеть и подумать надо.

Это сообщение отредактировал(а) Данкинг - 4.12.2008, 00:56


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ватрушка
Дата 4.12.2008, 06:11 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
кому как,нам в институте ничего не объясняют,просто дают задание и всё! =(((( а  никто не хочет мне помочь =(((
PM MAIL   Вверх
Данкинг
Дата 4.12.2008, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Цитата(Ватрушка @  4.12.2008,  06:11 Найти цитируемый пост)
нам в институте ничего не объясняют,просто дают задание и всё!

Интересный институт у вас.  smile Всё, офф заканчиваю.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ватрушка
Дата 4.12.2008, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.11.2008

Репутация: -2
Всего: нет
у нас интересный прподаватель =(( ничего не объясняет.....и это вообще дом задание =((((
PM MAIL   Вверх
Dobermann
Дата 4.12.2008, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0
Ватрушка, Поставь макрос на запись и сделай все что написал, и будет тебе счастье!
PM   Вверх
FINANSIST
Дата 8.12.2008, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23
Цитата(Ватрушка @  3.12.2008,  22:51 Найти цитируемый пост)
Создать процедуру, перемещающую последнюю введенную запись на место первой записи.
 Задача 1
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом


 smile Либоя чего-то недопонимаю smile  либо одно из двух

Это сообщение отредактировал(а) FINANSIST - 8.12.2008, 22:25


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
mihanik
Дата 9.12.2008, 06:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Модератор: 

Ватрушка, выложи то что сам/сама уже наделал!
Какие-то попытки решения были?
Хотелось бы увидеть!!!

Это во-первых.

Во-вторых!!!
Обращаюсь к участникам данного обсуждения!!!
Два минуса в репу за один вопрос, - это перебор!!!



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kapbepucm
Дата 9.12.2008, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12
Цитата(Ватрушка @  3.12.2008,  22:51 Найти цитируемый пост)
Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом

Цитата(kapbepucm @  5.12.2008,  13:17 Найти цитируемый пост)
Код
Sub Test()
  Dim MyValue As Long
  Dim MinValue As Byte, MaxValue As Byte
  On Error GoTo ErrorLabel
  Do
    MyValue = CLng(InputBox("Введите натуральное число"))
  Loop Until MyValue > 0
  On Error GoTo 0
  If Len(CStr(MyValue)) = 1 Then
    MsgBox "Невозможно выполнить указанные действия"
  Else
    MinValue = Left(CStr(MyValue), 1)
    MaxValue = MinValue
    Dim I As Long
    For I = 2 To Len(CStr(MyValue))
      If CByte(Mid(CStr(MyValue), I, 1)) > MaxValue Then MaxValue = CByte(Mid(CStr(MyValue), I, 1))
      If CByte(Mid(CStr(MyValue), I, 1)) < MinValue Then MinValue = CByte(Mid(CStr(MyValue), I, 1))
    Next I
    If ((MinValue + MaxValue) Mod 2) = 1 Then
      MsgBox "нет, не является"
    Else
      MsgBox "да, является"
    End If
  End If
ExitLabel:
Exit Sub
ErrorLabel:
  If Err.Number = 13 Then Resume Else Resume ExitLabel
End Sub



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

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


 




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


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

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