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

---

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

---

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

---

Info File Mail

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

---

Билет №3
1
If L then }S выполняется
S }если L -истина
End If }
If L1 then }S1 выполняется
S1 }если L1 -истина.
Elseif L2 then }если нет, то проS2 }веряется L2 и.т.д
- }если Ln-не истина
Elseif Ln then }то выполняется
Sn }Sn+1
Else }
Sn+1 }
End if }
2
Sub Знаки)
Dim S As String, Rus As String
Dim nRus As Integer, i As Long
S = InputBox("Введите текст")
Rus = "абвгдежзиклмнопрстуфхцчшщъыьэюяе"
nRus = 0
For i = 1 To Len(S)
If (InStr(Rus, Mid(S, i, 1) > 0 Then
nRus = nRus + 1
End If
Next i
MsgBox ("Кол-во =" + Str(nRus)
End Sub
3
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
S = InputBox("Ввод строки")
Gl = "аеиоуыэюяе"
For i = 1 To Len(S)
c = Mid(S, i, 1)
S1 = S1 + c
K = K + 1
If K > Len(Gl) Then K = 1
S1 = S1 + Mid(Gl, K, 1)
Next i
For i = 1 To (Len(S1) / 2
Call Swap(S1, i, Len(S1(i - 1)
Next i
S = S1
MsgBox (S)
End Sub
4
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
S = InputBox("Ввод шифра")
For i = 1 To (Len(S) / 2
Call Swap(S, i, Len(S(i - 1)
Next i
For i = 1 To Len(S) Step 2
c = Mid(S, i, 1)
S1 = S1 + c
Next i
S = S1
MsgBox (S)
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, 1= "#" Then
S1 = S1 + "имя"
n = n + 1
Else
S1 = S1 + C
End If
Next i
MsgBox (S1)
MsgBox (n)
End Sub

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

Это место