Основные информационные процессы и их реализация с помощью компьютера

Практическое занятие №7

по учебной дисциплине  «Информатика и ИКТ»

Тема 2.2 Основные информационные процессы и их реализация с помощью компьютера.

Наименование занятия: Разработка и программирование задач с использованием текстовой информации Цели работы: 

-  познакомиться с функциями для строковых величин;

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

Норма времени: 2 часа

Оснащение рабочего места: ПК, ИТК, ОС Windows, рабочая тетрадь.  Техника безопасности: Правила ТБ при работе в компьютерном классе 

Содержание работы Последовательность выполнения:

1.  Ознакомиться с содержанием работы. 

2.  Записать дату, тему и цель практического занятия.

3.  Изучить теоретические сведения.

4.  Выполнить задания.

5.  Ответить на контрольные вопросы.

6.  Сформулировать и записать вывод о проделанной работе.

Теоритические сведения

Средства Visual Basic позволяют обрабатывать не только числовую, но и текстовую информацию. При работе с текстовой информации используются  строковые константы и строковые переменные – строковые величины.

Количество символов строковой константы называют ее длиной (не более 255 символов). Текстовая константа, не содержащая символов «», называется пустой строкой.

Строковыми переменными называют величины, которым в процессе выполнения программы могут присваиваются те или иные наборы символов языка.

Таблица  функций, предназначенных для работы со строковыми величинами 

Составить программные коды к задачам:

1.  Дано натуральное число N. Определить:

а) сколько цифр в числе N;

б) чему равна сумма его цифр;

в) входит ли цифра 3 в запись числа N²;

г) приписать по единице в начало и конец записи числа

д) записать число наоборот.

2.  Заменить любую букву из введенного текста на другую букву. Private Sub Command1_Click()

m = "" a = Text1.Text b = Text2.Text c = Text3.Text For i = 1 To Len(a) If Mid(a, i, 1) = b Then                     m = m + c                     Else

                    m = m + Mid(a, i, 1)

End If

Next  i

Label4.Caption = m

End Sub

3.Определить , является ли слово, введенное с клавиатуры,  перевертышем Private Sub Command1_Click()

a = Text1.Text b = ""

For i = 1 To Len(a) b = Mid(a, i, 1) + b

Next  i

Label3.Caption = b

If a = b Then

        Label4.Caption = "да"

        Else

        Label4.Caption = "нет"

End If

End Sub

4.Определить сколько раз встречается данная буква в тексте Private Sub Command1_Click()  

k = 0 a = Text1.Text b = Text2.Text For i = 1 To Len(a)

If Mid(a, i, 1) = b Then k = k + 1

Next  i

Label3.Caption = k

End Sub

5.    В заданном тексте все пробелы заменит на «*» и подсчитать количество замен.

6.    Сделайте вывод о проделанной работе.