Билеты по информатике 10 класс: Visual Basic

Билет №1

                           1

Len (String)-Возвращает длину

строки String

Left (String,Length)-Возвращает левые

Length символов строки String

Right (String,Length)-Возвращает правые

Length символов строки String

Mid (String, Start[,Length] )-Возвращает

Length символов из строк String ,

начиная с символа с номером Start

Trim(String)-Убирает начальные и конеч-

ные пробелы в строке String

Ltrim(String)-Убирает начальные

 пробелы в строке String

Rtrim(String)-Убирает конечные

 пробелы в строке String

InStr ([Start,] String, String1[,Comp] )-Возв-

ращает позицию первого вхождения

String1 в строку String

                                    2

Sub Знаки( )

Dim S As String, Num As String

Dim nNum As Integer, i As Long

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

Num = "0123456789"

nNum = 0

For i = 1 To Len(S)

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

nNum = nNum + 1

End If

Next i

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

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, Sogl As String

Dim S1 As String, c As String

Dim Gl As String, K As Long

Dim i As Long

Sogl = "бвгджзклмнпрстфхцчшщъь"

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(Sogl) Then K = 1

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

End If

Next i

For i = 1 To Len(S1) - 4 Step 5

Call Swap(S1, i, i + 4)

Call Swap(S1, i + 1, i + 3)

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) - 4 Step 5

Call Swap(S, i, i + 4)

Call Swap(S, i + 1, i + 3)

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, 3) = "Имя" Then

 S1 = S1 + "Фамилия Имя Отчество"

 n = n + 1

 i = i + 2

ElseIf Mid(S, i, 7) = "Фамилия" Then

 S1 = S1 + "Фамилия Имя Отчество"

 i = i + 6

 n = n + 1

Else

 S1 = S1 + C

End If

Next i

MsgBox (S1)

MsgBox (n)

End Sub