Контрольная по программированию на VBA для Excel Задание 7

Задание 7 на тему

«Преобразование одномерных массивов»

Записать в массив 7 символов. преобразовать массив так, чтобы в нем сначала следовали латинские буквы, а за ними русские.

Преобразованный массив вывести на экран.

Для человека в первые столкнувшегося с подобной задачей, она станет проблематичной, но решение достаточно просто:

Option Explicit
Sub задание_7()
Dim m(1 To 7) As String, m1(1 To 7) As String, m2(1 To 7) As String, i As Byte, k As Byte, n As Byte // объявляем два массива, и переменные
Dim s As String

For i = 1 To 7 // заполняем первый массив в цикле
m(i) = InputBox(«Введите русский или латинский символ») // ввод данных
Next i
k = 0 // чистим переменные
n = 0
For i = 1 To 7 // начинаем сортировку
Select Case m(i)
Case «a» To «z» если символ входит в диапазон латинских
k = k + 1 // увеличиваем значение счетчика
m1(k) = m(i) // записываем в массив m1
Case «A» To «Z» // то же сто и в предыдущем цикле но с заглавными символами
k = k + 1 // увеличиваем значение счетчика
m1(k) = m(i) //
Case «А» To «Я» // теперь проверяем на отношение к русским символам
n = n + 1 // увеличиваем значение счетчика
m2(n) = m(i) //
Case «а» To «я»
n = n + 1// увеличиваем значение счетчика
m2(n) = m(i) // записываем в массив
End Select
Next i

For i = 1 To k // в цикле
m(i) = m1(i) // читаем массив m1 и записываем в массив m
Next i
For i = 1 To n // в цикле
m(k + i) = m2(i) // в массив m с места где закончилась запись массива m1 записываем значения массива m2
Next i
For i = 1 To 7 // читаем массив m в переменную s
s = s + " " + m(i) // подготавливаем к выводу
Next i
MsgBox «Массив » + vbCrLf + s // выводим данные

End Sub

197
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.