У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 4 Обработка строковых данных с помощью VB Вариант 12

Работа добавлена на сайт samzan.net: 2016-03-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 28.4.2025

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

Федеральное государственное бюджетное учреждение высшего профессионального образования

«Юго-Западный государственный университет»

Кафедра ПО и ВТ

Лабораторная работа №4

Обработка строковых данных с помощью VBA

Вариант 12

Выполнили:

ст. гр. ПО-91

Кулабухов С.А.

Проверил:

доц. Малышев. А.В.

Курск - 2013


Цель:
Изучение основных функция VBA для обработки данных.

Выполнение работы

Задание 1: Научиться операциями со строковыми данными

Задача: Получить результаты решения по следующему варианту

Вариант 12 – Поменять местами первую и последнюю буквы

Выполнение

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

Задача: Повторить задание 1, используя программу на VBA

Выполнение

Код на VBA

Sub Calling_ProcessStringFirst()

   Dim ResStr As String

   Dim p As Integer

   p = 14

   For i = 1 To 7

       ProcessStringFirst Cells(p, 1), ResStr

       Cells(p, 2) = ResStr

       p = p + 1

   Next i

   

End Sub


Задание 3:
Научиться созданию пользовательских текстовых функций

Задача: Повторить задание 2, используя вызов подпрограммы-функции на VBA из мастера функций (категория «Определенные пользователем»).

Выполнение

Код на VBA

Function ProcessStringFunc(str As String)

   Dim ResStr As String

   ProcessStringFirst str, ResStr

   ProcessStringFunc = ResStr

End Function

Задание 4: Научиться оперировать со строковыми массивами

Задача: Записать в последовательность ячеек рабочего листа набор слов. Получить новый набор слов в соответствии с вариантом

Выполнение

Код на VBA

Sub ProcessDefaultArrayString()

   Dim ResStr As String

   Dim A(5) As String

   For i = 2 To 6

       A(i - 1) = Cells(25, i)

   Next i

   For i = 2 To 6

      ProcessStringFirst A(i - 1), ResStr

      Cells(26, i) = ResStr

   Next i

End Sub


Задание 5:
Научиться использовать подпрограммы-процедуры для обработки строковых массивов

Задача: Записать в последовательность ячеек рабочего листа набор слов. Получить новый набор слов в соответствии с вариантом

Выполнение

Код на VBA

Sub SubProcessArrayString(A() As String, B() As String)

   Dim res As String

   For i = 0 To 4

      ProcessStringFirst A(i), res

      B(i) = res

   Next i

End Sub

Sub ProcessArrayString()

   Dim A(5) As String

   Dim B(5) As String

   Dim res As String

   For i = 2 To 6

     A(i - 2) = Cells(32, i)

   Next i

   SubProcessArrayString A, B

   For i = 2 To 6

      ProcessStringFirst A(i - 2), res

      B(i - 2) = res

   Next i

   For i = 2 To 6

     Cells(33, i) = B(i - 2)

   Next i

End Sub


Внешний вид рабоче
q книги Excel




1. Blck widow
2. Великого бедствия разметал казахов далеко за пределы их этнической территории
3. РV2-2 const 20. Лобовое сопротивление это сопротивление движению крыла самолета в воздухе
4. Sister institutions locted cross the street from ech other in Wshington D
5. Амплитуда точно опишет ее назначение
6. Тема 2 Інформаційні документи і документи колегіальних органів їх характеристика Процес прийнятт
7. голубой. Более подробные требования к фотографии смотрите на нашем сайте
8. Я приношу пранамы Шриле Бхактиведанте Нараяне Махараджу
9. Введение Право на защиту жизни здоровья свободы собственности и других благ является важнейшим естест
10. преимущества и недостатки доходного подхода к оценке бизнеса