Форум программистов, компьютерный форум, киберфорум
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. Департаменты (Код департамента,ФИО руководителя..) надо чтобы руководители не имели доступ к...
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
26.12.2013, 01:43 0

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

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

Ответ

А давайте-ка вспомним про байтовый массив!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SuchEasyByteCombinat()
Dim sLoVo As String 'строка для исходного слова
Dim LVsoo As String 'строка для зашифрованного слова
Dim L As String * 1 'строка для получения буквы из её юникода
Dim b() As Byte     'массив байт
Dim k               'счётчик байт
sLoVo = "мОлОкОвОз"
'sLoVo = "ОбОрОнОсПоСоБнОсТь"
b = sLoVo
'пара байт b(0)b(1) стала равна 1-й букве; b(2)b(3) - 2-й букве и т. д.
 
MsgBox "В исходном слове: букв: " & Len(sLoVo) & "; байт: " & LenB(sLoVo)
 
    For k = 2 To LenB(sLoVo) - 2 Step 4 'набираем сначала чётные буквы
        L = ChrW(b(k) + 256 * b(k + 1))
        LVsoo = LVsoo & L
        MsgBox "буква(" & k \ 2 + 1 & ") = " & L
    Next
    
    For k = 0 To LenB(sLoVo) - 2 Step 4 'набираем остальные буквы
        L = ChrW(b(k) + 256 * b(k + 1))
        LVsoo = LVsoo & L
    Next
    
    MsgBox sLoVo & " (исходное слово)" & Chr(13) & LVsoo & " (анаграмма)"
End Sub
Спецзадание для arku: расшифровать.

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

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

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

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

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

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

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

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

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

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

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