Вопрос № 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 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 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 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!
Отвечает: Botsman
Здравствуйте, Lenusia! Предполагаю, что речь идет программе для Excel. Если да, то как вам вариант, представленный в приложении? При работе макроса лист с данными должен быть активен.
Приложение:
--------- Хочешь победить Excel? Спроси меня как! ;)
Ответ отправил: Botsman (статус: Студент)
Ответ отправлен: 25.03.2009, 10:34
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 246033 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
