РОБОТА З ТЕКСТОВИМИ ЗМІНИМИ

Date: 2015-10-07; view: 409.

ПРАКТИЧНА РОБОТА 12

1. МЕТА РОБОТИ

Вивчення функцій текстових змінних.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал .

2.2. Виконати самостійні задачі.

Теоретичний матеріал

Private Sub Command1_Click()

Dim s As String

s = Text1.Text

n = Len(s)

Label1.Caption = Str(n)

Label2.Caption = Left$(s, 4)

Label3.Caption = Right$(s, 7)

Label4.Caption = Mid$(s, 6, 1)

Label5.Caption = Val("90")

Label6.Caption = InStr(s, " ")

Label7.Caption = Chr(74)

Label8.Caption = Asc("o")

End Sub

Приклад

Підрахуємо кількість букв в реченні

Private Sub Command1_Click()

Dim s, b, k As String

s = Text1.Text

b = Text2.Text

n = Len(s)

Sum = 0

For i = 1 To n

If Mid(s, i, 1) = b Then

Sum = Sum + 1

End If

Next i

Print Sum

End Sub

Криптографія – наука про способи перетворення інформації (шифрування) з метою її захисту. Розшифрування інформації називається криптоаналізом. Різні способи захисту інформації використовують в наші дні в банківській справі, де через комп‘ютерні мережі пересилають контракти, документи.

Приклад. Скласти програму для кодування тексту за таким правилом: вилучити з тексту пропуски, коми, крапки, а всі решта символів продублювати.

Private Sub Command1_Click()

s = Text1.Text

b = " "

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c <> "," And c <> "." And c <> " " Then

b = b + c + c

End If

Next i

Label1.Caption = b

End Sub

Контрольні запитання.

1. Які функції текстових змінних ви знаєте?

2. Використання текстових змінних?

3. Що таке криптографія?

Завдання для самостійного розв'язку.

1. Модифікуйте програму, щоб вона підраховувала кількість букв в реченні.

2. Введіть Прізвище, ім'я, по-батькові в текстове поле. Виведіть на окремі Label прізвище, ім'я та по-батькові.

3. Напишіть програму, яка шифрує заданий текст, а також дешифрує його.