Билеты по информатике 10 класс: Visual Basic (WinWord 97) [Билеты]

---

запомнить в избранное   искать в этом разделе

---

ВНИМАНИЕ !!! Это сокращенная версия файла. Предназначена она только для того, чтобы вы могли предварительно ознакомиться с документом, перед тем как его скачать. Здесь нет картинок, не сохранен формат, шрифт, размеры и положение на странице.
Чтобы скачать полную версию, нажмите ссылки которые находятся чуть-чуть ниже (Info File Mail)

---

Info File Mail

Файл относится к разделу:
ПРОГРАММИРОВАHИЕ, БАЗЫ ДАHHЫХ

---

Билет №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 +

• подписаться на рассылку. • добавить в избранное. • нашли ошибки ?

Это место