Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 151
от 05.10.2004, 17:40

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 322
Отправлено ответов: 272
Активность: 84.47 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Puma
Статус: Профессиональный
Общий рейтинг: 103.09
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 321. Привет мальчики! У меня есть небольшая проблемочка, училка дала 2 задачи по Visual Basic, а я эту пр... (ответов: 1)

Вопросов: 1, ответов: 1


 Вопрос № 321

Привет мальчики! У меня есть небольшая проблемочка, училка дала 2 задачи по Visual Basic, а я эту програму в глаза не видела. Помогите, если можите? Расцелую любого кто решит.
Вот задачи:
1)Определите делителем каких чисел а,в,с является число К?
2)Найдите max из {min(a;b),min(c;d)};из а и b, с и d - наименьешее из них выбть наибольшее?



Вопрос отправлен: 02.10.2004, 17:38
Отправитель: Элла

[Следующий вопрос >>] [Список вопросов]

Отвечает Puma

Добрый день, Элла!
1.
if (a mod k) = 0 then MsgBox ("Число К является делителем числа а")
if (b mod k) = 0 then MsgBox ("Число К является делителем числа b")
if (c mod k) = 0 then MsgBox ("Число К является делителем числа c")
2.
Две функции для нахождения минимального и максимального числа среди двух чисел.
Function MinAmong2 (Fisrt as long, Second as long) as long
if First <= Second then
MinAmong2 = First
else
MinAmong2 = Second
End Function
Function MaxAmong2 (Fisrt as long, Second as long) as long
if First >= Second then
MaxAmong2 = First
else
MaxAmong2 = Second
End Function


Ответ отправлен: 02.10.2004, 18:56
Отправитель: Puma



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (24)
C / C++ (15)
Perl (6)
Builder / Delphi (15)
Pascal (19)
Basic / VBA (8)
Java / JavaScript (6)
PHP (17)
Криптография (8)
WinAPI (13)
Радиоэлектроника (15)
Пользователю
Windows 95/98/Me (44)
Windows NT/2000/XP (65)
"Железо" (39)
Поиск информации (20)
Администратору
Windows NT/2000/XP (43)
Linux / Unix (18)
Юристу
Гражданское право (8)
Семейное право (5)
Трудовое право (7)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование


hotlog_js="1.0";hotlog_d=document; hotlog_n=navigator;hotlog_rn=Math.random(); hotlog_n_n=(hotlog_n.appName.substring(0,3)=="Mic")?0:1; hotlog_r=""+hotlog_rn+"&s=25513&im=127&r="+escape(hotlog_d.referrer)+"&pg="+ escape(window.location.href); hotlog_d.cookie="hotlog=1"; hotlog_r+="&c="+(hotlog_d.cookie?"Y":"N"); hotlog_d.cookie="hotlog=1; expires=Thu, 01-Jan-70 00:00:01 GMT" hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2";hotlog_s=screen; hotlog_r+="&wh="+hotlog_s.width+'x'+hotlog_s.height+"&px="+((hotlog_n_n==0)? hotlog_s.colorDepth:hotlog_s.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; hotlog_d.write("HotLog") Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное