Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Как расписать "по шагам" процесс быстрой сортировки массива. По сортировке: дан массив 5,1,4,7,6,9,2,8 Распишите "по шагам" процесс его быстрой сортировки. Как это сделать, помогите, пожалуйста https://www.cyberforum.ru/ vba/ thread1040152.html VBA Разработать форму пользователя для расчета показателей вариации признака: размах вариации R, среднее линейное отклонение d; дисперсия σ^2
Разработать форму пользователя для расчета показателей вариации признака: размах вариации R, среднее линейное отклонение d; дисперсия σ2. Исходные данные для расчетов: Хmax, Xmin – максимальное...
VBA Быстрая сортировка: нужен простой пример Помогите, пожалуйста. Нужно написать любой код быстрой сортировки в VBA. Не сложный, чтобы можно было бы разобраться. Спасибо https://www.cyberforum.ru/ vba/ thread1039910.html VBA VBA excel функция Find - принцип поиска Добрый день, уважаемые форумчане! В очередной раз обращаюсь к Вам за помощью. Имеется следующий код: dim kodG as single kodG = Cells(Selection.Rows.Row, 7) 'Запоминаем код графика... https://www.cyberforum.ru/ vba/ thread1039832.html
Как определить текущую видимую область листа? VBA
Желательно Range только целых ячеек.
VBA Найти ошибку в коде vba. "Subscript out of range " https://www.cyberforum.ru/ vba/ thread1039705.html
Public line As Double Private Sub UserForm_Initialize() line = 1 ComboBox1.AddItem Worksheets("List1").Range("A3") ComboBox1.AddItem Worksheets("List1").Range("A4") ComboBox1.AddItem
VBA Написать программы создания и регистрации квитанции на оплату стационарного телефона https://www.cyberforum.ru/ vba/ thread1039699.html
Задание для vba: Написать программы создания и регистрации квитанции на оплату стационарного телефона. В квитанции указать № телефона, фамилию владельца, с блокиратором или нет, стоимость месячной...
VBA Вычислить сумму элементов каждой строки матрицы A (NxM), определить наименьшее значение этих сумм и номер соответствующей строки
Помогите, как решить эту задачу? Вычислить сумму элементов каждой строки матрицы A(NxM) , определить наименьшее значение этих сумм и номер соответствующей строки.
VBA Как Определить: суммарный объем товаров, которые импортируются заданной страной и суммарную стоимость партии товара по заданному шифру какая должна быть программа? хотя бы пример программа в VBA excel ломаю голову, ничего не получается т.е. есть таблица, с помощью... https://www.cyberforum.ru/ vba/ thread1039668.html VBA Автоматически переместить формулу в другую строку Всем доброго времени суток. Помогите решить проблему. По работе нужно вести подсчет эффективности. В столбце A (Общ. Кол-во) В столбце B (Эффект. Кол-во) В столбце C (Отклонение) В столбце D... https://www.cyberforum.ru/ vba/ thread1039660.html
Подготовить перечень видов продукции, по которым выпущено продукции меньше запланированного VBA
Для предприятия известен перечень видов продукции и количество каждого вида, которые должны быть произведены по плану, а также известно количество, произведенное в действительности. Подготовить...
VBA Ограничить доступ к форме VBA https://www.cyberforum.ru/ vba/ thread1039529.html
Всем Привет! У меня есть две формы 1. Организации ( название, Фамилия, имя, отчество) руководителя 2. Департаменты (Код департамента,ФИО руководителя..) надо чтобы руководители не имели доступ к...
3997 / 1393 / 383
Регистрация: 07.08.2013
Сообщений: 3,494
14.12.2013, 01:13 0

Как из слова образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах - VBA - Ответ 5490233

14.12.2013, 01:13. Показов 1802. Ответов 3
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
dim slovo as string
dim lvsoo as string
for i=2 to len(slovo) step 2
lvsoo=lvsoo & mid(slovo,i,1)
next i
for i=1 to len(slovo) step2
lvsoo=lvsoo & mid(slovo,i,1)
next i
msgbox slovo & "   " & lvsoo


Вернуться к обсуждению:
Как из слова образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах VBA
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2013, 01:13
Готовые ответы и решения:

Сначала выводятся числа, стоящие на нечетных местах, а затем — стоящие на четных местах
Требования к следующим программам: Код программы должен содержать процедуры и функции. Допускается...

Вывести для массива на экран сначала элементы, стоящие на четных местах, потом — на нечетных
Есть небольшое задание, нужна помощь: 1) Использование условий для изменения элементов массива и...

Поменять местами слова, стоящие на четных местах, со словами, стоящими на нечетных местах
В заданном предложении, составленном из нескольких слов, поменяйте местами слова, стоящие на четных...

Все элементы исходного массива, стоящие на нечетных местах, возвести в квадрат, на четных местах – в куб
как будет код не знаете? Дано два массива байтов, один заполнен числами. Заполнить второй массив...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2013, 01:13

Массивы. Заменить все отрицательные элементы, стоящие на четных местах, максимальным его элементом, а на нечетных местах - минимальным
В заданном массиве В, который содержит 21 элемент, заменить все отрицательные элементы, стоящие на...

Вычеркните из слова все буквы, стоящие на чётных местах
Если в слове X есть буква "а", то вычеркните из этого слова все буквы, стоящие на чётных местах.

Вычеркните из слова Х все буквы, стоящие на четных местах
Вычеркните из слова Х все буквы, стоящие на четных местах string n,...

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru