Описание

Размер

Тип данных

Диапазон

Byte

1б

Целое число

0-255

Integer

2б

Целое число

+ 32768

Long

4б

Целое число

+ 2 млрд.

Double

4б

Веществ.

+10⁺³⁰⁴

String

Len(String)

Символы

0-~64000

Boolean

2б

True/False

1;0

Variant

16б

Произвольн

Произв.

2

Sub Знаки( )

Dim S As String, Pr As String

Dim nPr As Integer, i As Long

S = InputBox("Введите текст")

Pr = ",.?!:;"

nPr = 0

For i = 1 To Len(S)

If (InStr(Pr, Mid(S, i, 1))) > 0 Then

nPr = nPr + 1

End If

Next i

MsgBox ("Кол-во =" + Str(nPr))

End Sub

                                              3

Sub Swap(S As String, i As Long, j As Long)

Dim c As String

c = Mid(S, i, 1)

Mid(S, i, 1) = Mid(S, j, 1)

Mid(S, j, 1) = c

End Sub

Sub шифр( )

Dim S As String, Sh As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sh = "Шаблон"

S = InputBox("Ввод строки")

Gl = "аеиоуыэюяё"

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then

K = K + 1

If K > Len(Sh) Then K = 1

S1 = S1 + Mid(Sh, K, 1)

End If

Next i

For i = 1 To Len(S1) - 1 Step 2

Call Swap(S1, i, i + 1)

Next i

For i = 1 To Len(S1) - 2 Step 3

Call Swap(S1, i, i + 2)

Next i

S = S1

MsgBox (S)

End Sub

4

Sub Раскодировщик( )

Dim S As String, i As Long

Dim S1 As String, c As String

Dim Gl As String, K As Long

S = InputBox("Ввод шифра")

Gl = "аеиоуыэюяё"

For i = 1 To Len(S) - 2 Step 3

Call Swap(S, i, i + 2)

Next i

For i = 1 To Len(S) - 1 Step 2

Call Swap(S, i, i + 1)

Next i

For i = 1 To Len(S)

c = Mid(S, i, 1)

S1 = S1 + c

If InStr(Gl, c) > 0 Then i = i + 1

Next i

MsgBox (S1)

End Sub

                          5

Sub Замена()

Dim S As String, S1 As String

Dim n As Long, C As String

S = InputBox("Ввод строки")

n = 0

For i = 1 To Len(S)

C = Mid(S, i, 1)

If Mid(S, i, 1) = "&" Then

 S1 = S1 + "Фамилия"

 n = n + 1

ElseIf Mid(S, i, 3) = "Имя" Then

 S1 = S1 + "Фамилия"

 i = i + 2

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub