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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача по программированию в Excel (VBA) 
V
    Опции темы
Ватрушка
  Дата 26.11.2008, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: -2
Всего: нет
Требуется создать пользовательскую функцию по обработке числовой информации. При решении не переводить числовую информацию в символьную и, следовательно, не применять стандартные функции по обработке символьных строк.

    Задача
Определить, делится ли натуральное трехзначное число на три без остатка по признаку делимости
PM MAIL   Вверх
Akina
Дата 26.11.2008, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 454
и чо?

Код

Function F(X As Long) as Boolean
Dim T As Integer
Do Until X=0
  T=T + (X MOD 10)
  X=X\10
Loop
F=((T mod 3)=0)
End Function



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


Новичок



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

Репутация: -2
Всего: нет
а как ее проверить в Excel?  smile 
PM MAIL   Вверх
Akina
Дата 27.11.2008, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 454
Я проверил - работает.


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


Опытный
**


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

Репутация: 3
Всего: 12
Цитата(Ватрушка @  26.11.2008,  22:06 Найти цитируемый пост)
а как ее проверить в Excel?
Пишешь в ячейку A1 натуральное трехзначное число, а в A2 формулу =F(A1). Смотришь на результат: TRUE- делится, FALSE- нет smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
mihanik
Дата 28.11.2008, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 9
Всего: 109
Ватрушка, ты сама что-нибудь сделала?




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


Новичок



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

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

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

Добавлено через 32 секунды
я ничего не делала,я ничего в этом не понимаю,вот и прошу БОЛЬШОЙ ПРИБОЛЬШОЙ ПОМОЩИ!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Akina
Дата 2.12.2008, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 454
Выкиньте уже её в ЦП...


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


Опытный
**


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

Репутация: 3
Всего: 12
Ватрушка, у тебя два задания?
Цитата(Ватрушка @  2.12.2008,  23:15 Найти цитируемый пост)
Создать процедуру, перемещающую последнюю введенную запись на место первой записи
Цитата(Ватрушка @  2.12.2008,  23:15 Найти цитируемый пост)
Определить, является ли сумма минимальной и максимальной цифры четным числом
Что касается второго задания- создай в VBA окне новый модуль. Напиши там
Цитата(Akina @  26.11.2008,  21:50 Найти цитируемый пост)
Public Function F(X As Long) as Boolean
Dim T As Integer
Do Until X=0
  T=T + (X MOD 10)
  X=X\10
Loop
F=((T mod 3)=0)
End Function
потом
Цитата(kapbepucm @  28.11.2008,  11:37 Найти цитируемый пост)
Пишешь в ячейку A1 натуральное трехзначное число, а в A2 формулу =F(A1). Смотришь на результат: TRUE- делится, FALSE- нет


Добавлено через 3 минуты и 22 секунды
Вообще, чтобы тебе помочь, надо более подробно узнать о твоём задании(ях). Напиши ещё раз и больше деталей предоставь smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Ватрушка
Дата 3.12.2008, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: -2
Всего: нет
спасибо всем!!!! =) с первым заданием разобралась =)) smile

Добавлено через 3 минуты
Создать процедуру, перемещающую последнюю введенную запись на место первой записи.

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

Добавлено через 3 минуты и 29 секунд
ПОМОГИТЕ ПОЖАЛУйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Ватрушка
Дата 3.12.2008, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: -2
Всего: нет

задача 2
Дан одномерный массив. Определить, есть в нем хотя бы пара одина-ковых соседних чисел
PM MAIL   Вверх
kapbepucm
Дата 4.12.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 12
Цитата(Ватрушка @  3.12.2008,  22:47 Найти цитируемый пост)
задача 2
Дан одномерный массив. Определить, есть в нем хотя бы пара одина-ковых соседних чисел 
Код
Public Sub Test()
  Dim MyArr(1 To 5) As Long
  MyArr(1) = 1
  MyArr(2) = 2
  MyArr(3) = 2
  MyArr(4) = 2
  MyArr(5) = 3
  MsgBox IsPara(MyArr)
End Sub
Public Function IsPara(ByRef Arr) As Boolean
  IsPara = False
  Dim I As Long
  Dim MyValue
  MyValue = Arr(LBound(Arr, 1))
  For I = LBound(Arr, 1) + 1 To UBound(Arr, 1)
    If MyValue = Arr(I) Then
      IsPara = True
      Exit For
    Else
      MyValue = Arr(I)
    End If
  Next I
End Function


Добавлено через 2 минуты и 21 секунду
Цитата(Ватрушка @  3.12.2008,  20:12 Найти цитируемый пост)
ПОМОГИТЕ ПОЖАЛУйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Хочешь, чтобы помогли- соблюдай правила. Задавай новый вопрос в новой теме.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Ватрушка
Дата 4.12.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: -2
Всего: нет
задаю,а пишют мне что не правильно =((((( что вы все набросиллись на бедную маленькую девочку =(((?????

Добавлено через 1 минуту и 35 секунд
а про первую задачку забыли =((

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


и не обижайте меня больше =(((
PM MAIL   Вверх
Dobermann
Дата 4.12.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Цитата(Ватрушка @  4.12.2008,  16:30 Найти цитируемый пост)
и не обижайте меня больше =(((

Ставил бы макрос на запись и сам порыл бы! 
PM   Вверх
Ватрушка
Дата 4.12.2008, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: -2
Всего: нет
во-первых, чего куда ставил??? 

и во-вторых, Я ДЕВУШКА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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


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

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

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

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


 




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


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

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