Вопрос № 163142: 1)Здравствуйте, скажите пожалуйста, как в qbasic при нажатии shitf+F5 сделать так, чтобы вывод каждого члена массива происходил не в столбик а в виде некоевого подобия матрицы? 2) есть ли операторы позволяющие менять местами значения столбика ...
Вопрос № 163151: Добрый день! Уважаемые эксперты, помогите пожалуйста написать код программы в VBA, которая меняла бы две строки местами, пусть мне дана строчка 0 0 0 0 0 -1 -1
-1 0 и вторая строчка 5 5 10 2 1 0 0 0 20 мне надо что бы вторая встала на место...
Вопрос № 163.142
1)Здравствуйте, скажите пожалуйста, как в qbasic при нажатии shitf+F5 сделать так, чтобы вывод каждого члена массива происходил не в столбик а в виде некоевого подобия матрицы?
2) есть ли операторы позволяющие менять местами значения столбика со значениями столбца в массиве?
Приложение:
Отправлен: 24.03.2009, 15:10
Вопрос задал: Минин В.А (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Botsman
Здравствуйте, Минин В.А! Помогаю. 1)По первому вопросу. Вывод в виде подобия таблицы можно получить добавив после print c(i,j) либо "," либо ";" - замените "print c(i,j)" на "print c(i,j)," или на "print c(i,j);" и выбирайте наиболее понравившийся вариант:) Да, чтобы осуществить переход к новой строке, вставьте print между next j и next i. 2)А что касается менять местами, то c(i,j)=c(j,i) приведет к тому, что первоначальное значение c(i,j) будет потеряно,
поэтому поредварительно его нужн запомнить в дополнительной переменной, tmp = c(i,j): c(i,j)=c(j,i): c(j,i)=temp. При этом j должно меняться от 1 до i (а не до 6, как при печати) Попробуйте, поэкспериментируйте, если не получится - смотрите в приложении код. Все. Рад был помочь.
Приложение:
--------- Хочешь победить Excel? Спроси меня как! ;)
Ответ отправил: Botsman (статус: Студент)
Ответ отправлен: 25.03.2009, 10:15
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 246032 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 163.151
Добрый день! Уважаемые эксперты, помогите пожалуйста написать код программы в VBA, которая меняла бы две строки местами, пусть мне дана строчка 0 0 0 0 0 -1 -1 -1 0 и вторая строчка 5 5 10 2 1 0 0 0 20 мне надо что бы вторая встала на место первой, а первая на место второй Заранее большое спасибо!
Отправлен: 24.03.2009, 16:18
Вопрос задала: Lenusia (статус: 1-й класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Megaloman
Здравствуйте, Lenusia! Вопрос очень близок с предыдущим за № 163040
Способ 1. У Вас в таблице записаны две строки чисел одинаковой длины друг над другом. Значения этих строк меняете местами. Становитесь на клетку, с которой начинается верхняя строка, а затем запускаете макрос.
Код:
i = 0 a = Selection ' Присваеваем переменной a значение выделенной ячейки While a <> "" ' Организуем цикл, пока не встретится пустая ячейка Selection.Offset(0, i) = Selection.Offset(1, i) ' Заменяем значение верхней ячейки на значение из нижней Selection.Offset(1, i) = a ' Заменяем значен
ие нижней ячейки на значение из верхней, котор хранилось в переменной a i = i + 1 ' Наращиваем счетчик сдвига ячеек в строке a = Selection.Offset(0, i) ' Присваеваем переменной a значение ячейки сдвинутой на i от выделенной Wend
Он будет менять значения верхних клеток местами с нижними, пока не встретится пустая ячейка в строке.
Способ 2. Аналогичен способу 1. Но в макросе надо явно указать
(или написать окно ввода) число элементов в строке.
Код:
N = 9 For i = 0 To N - 1 a = Selection.Offset(0, i) Selection.Offset(0, i) = Selection.Offset(1, i) Selection.Offset(1, i) = a Next
<
/div>
--------- Нет времени на медленные танцы
Ответ отправил: Megaloman (статус: Практикант)
Ответ отправлен: 24.03.2009, 17:54
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 245969 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!
Отвечает: Botsman
Здравствуйте, Lenusia! Предполагаю, что речь идет программе для Excel. Если да, то как вам вариант, представленный в приложении? При работе макроса лист с данными должен быть активен.
Приложение:
--------- Хочешь победить Excel? Спроси меня как! ;)
Ответ отправил: Botsman (статус: Студент)
Ответ отправлен: 25.03.2009, 10:34
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 246033 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
