| Головна » Статті » Мої статті |
Рядкові величини
 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. Напишіть програму, яка шифрує заданий текст, а також дешифрує його. | |||||||||||||||||
| Переглядів: 605 | | |||||||||||||||||
| Всього коментарів: 0 | |