Изучение операций со строковыми данными и использование подпрограмм-функций

Новосибирск

2008

 

Задание №1

Научиться операциям со строковыми данными и использованию подпрограммы-функции.

Задача:                                                                                                                                                    

                  Поменять два последних символа слова местами.

               Алгоритм:

1.  Запишем две последние буквы в отдельные ячейки

2.  Заменим соответствующие буквы в слове, так чтобы 2 последних символа поменялись местами.

Ход работы:

1.  Выделим последнюю букву в слове  “=ПРАВСИМВ(B3;1)”

2.  Выделим предпоследнюю букву в слове “=ЛЕВСИМВ(ПРАВСИМВ(B3;2);1)”

3.  Заменим в исходном слове сначала предпоследнюю букву “=ЗАМЕНИТЬ(B3;C3-1;1;B5)”,затем последнюю “=ЗАМЕНИТЬ(B6;C3;1;B4)”, где С3 длина слова “=ДЛСТР(B3)”

            Тестовый пример:

опаопаопа

опаопаоап

               Вывод:

В ходе работы я научился менять два последних символа в слове, в программе Microsoft Excel 2003.

 

Задание №2

Научиться использованию текстовых функций VBA.

Задача:                                                                                                                                                    

                  Поменять два последних символа слова местами.

               Код программы:

Option Explicit

Sub laba6_2()

Dim s$, i%

Call ReadStr("B3", s)

i = Len(s)

s = Mid(s, 1, i - 2) + Right(s, 1) + Left(Right(s, 2), 1)

Call OutStr("B4", s)

End Sub

            Модули:

Sub OutStr(name As String, val As String)

Лист2.Range(name).Value = val

End Sub

Sub ReadStr(name As String, val As String)

val = Лист2.Range(name).Text

End Sub

            Тестовый пример:

опаопаопа

опаопаоап

               Вывод:

В ходе работы я научился менять два последних символа в слове, на языке программирования VBA.

Задание №3

Научиться создавать пользовательские функции.

Задача:                                                                                                                                                    

                  Создать функцию, которая будет менять два последних символа слова местами.

               Код программы:

Function a(s)

Dim i%

i = Len(s)

a = Mid(s, 1, i - 2) + Right(s, 1) + Left(Right(s, 2), 1)

End Function

            Тестовый пример:

опаопаопа

опаопаоап

               Вывод:

В ходе работы я научился создавать функцию для Microsoft Excel 2003 которая будет менять два последних символа в слове.