|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.06.2008, 01:01 | #1 |
Регистрация: 27.06.2008
Сообщений: 6
|
Пожалуйста помогите!!!Задача в Visual Basic !!!
Задача: в одномерном массиве из 10 значений целого типа посчитать сумму каждого 1 с разностью 3 со 2 и вывести их в таблицу.Пожалуйста помогите, очень надо до субботы.Плизззззз помогите...
|
27.06.2008, 02:34 | #2 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
Что значит "Вывести в таблицу"?
Последний раз редактировалось NikLik; 27.06.2008 в 10:09. |
27.06.2008, 11:27 | #3 |
Форумчанин
Регистрация: 29.10.2007
Сообщений: 628
|
|
27.06.2008, 20:09 | #4 |
Регистрация: 27.06.2008
Сообщений: 6
|
Значит сделать в икселе с кнопкой. Подскажите пожалуйста, что там с этими массивами писать?
|
27.06.2008, 20:42 | #5 | |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
Цитата:
1) Вычитаем из 3-го элемента 2-й; 2) Прибавляем к результату п.1 значение 1-го элемента; 3) Результат п.2 записываем в 1-й элемент таблицы; 4) Повторяем пп.1-3 для элементов 4,5,6; 5) Повторяем пп. 1-3 для элементов 7,8,9; Вопрос: Что тогда с 10-м элементом делать?
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
|
|
27.06.2008, 20:43 | #6 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
Отвечай скорее, пока я в онлайне
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
|
27.06.2008, 20:47 | #7 |
Регистрация: 27.06.2008
Сообщений: 6
|
вроде так,первые два пункта точно!))а десятый можно не трогать
|
27.06.2008, 21:05 | #8 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
Вроде сделал. Держи Экселевский файл. Только не забудь разрешить макросы
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
|
27.06.2008, 21:06 | #9 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
По нажатию кнопки "Запуск" запускается процедура:
Private Sub CommandButton1_Click() For i = 1 To 3 Лист1.Cells(i + 1, 3) = Лист1.Cells(i * 3 + 1, 2) - Лист1.Cells(i * 3, 2) + Лист1.Cells(i * 3 - 1, 2) Next i End Sub
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
Последний раз редактировалось bag; 27.06.2008 в 21:09. |
27.06.2008, 21:08 | #10 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
Пойдет? Кстати, это моя первая программа на Visual Basic
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
Последний раз редактировалось bag; 27.06.2008 в 21:11. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста!!!!Задача в Visual Basic ! | Irisha | Microsoft Office Excel | 3 | 27.06.2008 02:19 |