 Снова у меня проблема... |
Здравствуйте, гость ( Вход | Регистрация )
Образовательно-студенческий форум > Образование > Программирование на Паскале, Си, Бейсике, Ассемблере > Программирование в офисных пакетах  |
| Сладость |
 27.2.2006, 15:00
Сообщение
#1
|
 Пользователь Группа: Пользователи Сообщений: 219 Регистрация: 26.1.2006 Из: Москва Пользователь №: 6 697  |
:bye: Форумчане, помогите разобраться с программой... на нахождение максимума... пожалуйста..! :cry:
(Visual Basic.. чере Exel)... --------------------   |
   |
 
|
| Boris |
27.2.2006, 15:02
Сообщение
#2
|
 Пользователь Группа: Главные администраторы Сообщений: 242 Регистрация: 16.9.2004 Из: Саранск Пользователь №: 1 220 |
То есть, надо на VB написать программу c использованием Excel?
-------------------- Boris
surin@fet.mrsu.ru |
|
|
|
| Сладость |
27.2.2006, 15:05
Сообщение
#3
|
|
Пользователь Группа: Пользователи Сообщений: 219 Регистрация: 26.1.2006 Из: Москва Пользователь №: 6 697 |
Boris, через Exel... (Сервис -> Макрос -> Редактор Visual Basic -> Insert -> Module..)
А вот с использованием листа или нет.. даже не знаю.. Нам никаких комментариев не давали.. -------------------- |
|
|
|
| gwend |
27.2.2006, 21:10
Сообщение
#4
|
 Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
Boris, :z)
Сладость, так сойдет? Код Sub Find() Dim a(10) As Integer For i = 1 To 10 a(1) = CInt(InputBox("Input a(" & i & ")")) Next Dim m As Integer m = a(1) For i = 2 To 10 If a(i) > m Then m = a(1) Next MsgBox ("Max = " & m) End Sub -------------------- Кто не работает, тот ест :)
|
|
|
|
| Boris |
28.2.2006, 11:08
Сообщение
#5
|
|
Пользователь Группа: Главные администраторы Сообщений: 242 Регистрация: 16.9.2004 Из: Саранск Пользователь №: 1 220 |
То есть, задача на нахождение максимального элемента в массиве?!!
А я-то губы развесил ... 
Тогда можно еще вариант с чтением значений в ячейках организовать -------------------- Boris
surin@fet.mrsu.ru |
|
|
|
| PolPoll |
28.2.2006, 18:01
Сообщение
#6
|
 :) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
Цитата Тогда можно еще вариант с чтением значений в ячейках организовать по примеру http://glagolevvb.narod.ru/Informatika/zad...emestr2/z17.htm Код Public Function Fun8(M As Variant) As Integer
1: Dim maxim As Integer, i As Integer, j As Integer 2: If TypeName(M) = "Range" Then 3: maxim = M.Cells(1, 1) 4: For i = 1 To M.Rows.Count 5: For j = 1 To M.Columns.Count 6: If M.Cells(i, j) > maxim Then 7: maxim = M.Cells(i, j) 8: End If 9: Next j 10: Next i 11: Fun8 = maxim 12: Else 13: MsgBox ("Fun8: Аргумент - не диапазон") 14: End If End Function В открывшемся окне Microsoft Excel – Массивы.xls откройте Лист1 и в ячейках A1:A9 введите числа: 5 2 0 5 -1 1 4 3 7 3 Присвойте этому диапазону A1:A9 имя Test. Для этого выделите диапазон и выполните команду Вставка, Имя, Присвоить. В появившемся окне Присвоение имени в поле Имя введите Test и щелкните на кнопке ОК. Введите в ячейку D3 формулу: = fun8(Test) и нажмите на клавишу Enter (или Ctrl+Shift+Enter). В ячейке должен появиться результат - 7 полные объяснения смотри (там другой пример) http://glagolevvb.narod.ru/Informatika/zad...emestr2/z17.htm |
|
|
|
| Boris |
1.3.2006, 8:07
Сообщение
#7
|
|
Пользователь Группа: Главные администраторы Сообщений: 242 Регистрация: 16.9.2004 Из: Саранск Пользователь №: 1 220 |
Вот что Вы наделали "Сладость" своими вопросами - завтра в 5 утра дерусь на шпагах с PolPoll около церкви Святой Куртизанки в Париже .... Ужас, сколько денег придется на билеты потратить ... -------------------- Boris
surin@fet.mrsu.ru |
|
|
|
| PolPoll |
1.3.2006, 10:29
Сообщение
#8
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
А вообще-то, зная, что массив расположен вертикально ( A1:A9 )
можно убрать второе измерение, видимо Код Public Function Fun8(M As Variant) As Integer 1: Dim maxim As Integer, i As Integer, j As Integer 2: If TypeName(M) = "Range" Then 3: maxim = M.Cells(1, 1) 4: For i = 1 To M.Rows.Count 6: If M.Cells(i, 1) > maxim Then 7: maxim = M.Cells(i, 1) 8: End If 10: Next i 11: Fun8 = maxim 12: Else 13: MsgBox ("Fun8: Аргумент - не диапазон") 14: End If End Function |
|
|
|
| gwend |
1.3.2006, 17:05
Сообщение
#9
|
|
Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
Boris, :appl:
-------------------- Кто не работает, тот ест :)
|
|
|
|
| PolPoll |
1.3.2006, 17:15
Сообщение
#10
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, ты че его секундантом был?
Меня видимо сильно ранило, раз не помню  |
|
|
|
| klever |
1.3.2006, 17:17
Сообщение
#11
|
 Пользователь Группа: Пользователи Сообщений: 2 346 Регистрация: 19.5.2005 Из: Москва Пользователь №: 3 143 |
Макросы что ли в Excel?
-------------------- http://photofile.ru/profile.php?user_id=135759 Фотки
Ты не жди, не зови меня. Ангел был никудышный я. Кто же знал, что судьба моя Окаянная... |
|
|
|
| gwend |
1.3.2006, 17:21
Сообщение
#12
|
|
Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
PolPoll, нет. завтра еще будет
 в пять утра... :z)
мне подходить на дуэль? захвачу с собой диск-реаниматор... может пригодиться :roll: klever, аха -------------------- Кто не работает, тот ест :)
|
|
|
|
| PolPoll |
1.3.2006, 17:24
Сообщение
#13
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, мне б узнать, в чем оскорбление... А то как кошка с собакой
|
|
|
|
| gwend |
1.3.2006, 17:26
Сообщение
#14
|
|
Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
PolPoll, я тож не понял... по идеи драться надо с обоими
 -------------------- Кто не работает, тот ест :)
|
|
|
|
| PolPoll |
1.3.2006, 17:28
Сообщение
#15
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, мож в другой теме... А те че не так?
|
|
|
|
| PolPoll |
1.3.2006, 17:29
Сообщение
#16
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, или других животных предпочитаешь?
у меня например, черепашка |
|
|
|
| gwend |
1.3.2006, 17:33
Сообщение
#17
|
|
Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
PolPoll, наверно принцессу тут отбивают не законно...
нарушая пункт 4/7 о разделе сфер влияния между гурами этого форума :roll: вот Boris и обиделся что ему не дали решить для Сладость.... конкуренты...  -------------------- Кто не работает, тот ест :)
|
|
|
|
| gwend |
1.3.2006, 17:35
Сообщение
#18
|
|
Пользователь Группа: Пользователи Сообщений: 568 Регистрация: 11.12.2005 Из: Казань Пользователь №: 5 604 |
PolPoll, что еще за предпочтения?
 -------------------- Кто не работает, тот ест :)
|
|
|
|
| PolPoll |
1.3.2006, 17:38
Сообщение
#19
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, я не претендую... на принцессу
у меня пара по жизни есть , хотя, конечно, после компьютера на сладкое тянет... |
|
|
|
| PolPoll |
1.3.2006, 17:43
Сообщение
#20
|
|
:) Группа: Главные администраторы Сообщений: 5 858 Регистрация: 24.11.2005 Из: Москва Пользователь №: 5 327 |
gwend, у кого чего болит... :roll:
а я в чисто декоративных целях, причем - попугайчиков а черепаху - на суп и шкатулку , если ее как-нибудь на меня оставят... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 22.5.2012, 9:05 |
Русская версия Invision Power Board
v2.1.7 © 2012 IPS, Inc.