Программирование и комп-ры

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


|Билет №2       |             |
|1              |K = K + 1    |
|Do While L  } S|If K >       |
|выполняется    |Len(Sogl)    |
|S              |Then K = 1   |
|}если L-истина |S1 = S1 +    |
|Loop           |Mid(Sogl, K, |
|}              |1)           |
|               |End If       |
|               |Next i       |
|Do             |For i = 1 To |
|}S выполняется |Len(S1) - 5  |
|S              |Step 6       |
|}пока L-истина |Call Swap(S1,|
|Loop While L } |i, i + 5)    |
|               |Call Swap(S1,|
|Do             |i + 2, i + 3)|
|}S выполняется |             |
|S              |Call Swap(S1,|
|}вечно, пока не|i + 1, i + 4)|
|               |             |
|[exit do]     }|Next i       |
|будет перехода |S = S1       |
|Loop          }|MsgBox (S)   |
|к exit do      |End Sub      |
|               |4            |
|While L        |Sub          |
|}то же, что и  |Раскодировщик|
|S         }Do  |()           |
|while...Loop   |Dim S As     |
|Wend          }|String, i As |
|               |Long         |
|               |Dim S1 As    |
|Do Until L  }S |String, c As |
|выполняется    |String       |
|S         }если|Dim Gl As    |
|L-ложь         |String, K As |
|Loop           |Long         |
|}              |S =          |
|               |InputBox("Вво|
|Do             |д шифра")    |
|}S выполняется |Gl =         |
|S              |"бвгджзклмнпр|
|}пока L-ложь   |стфхцчшщъь"  |
|Loop Until L}  |For i = 1 To |
|               |Len(S) - 5   |
|for i=i0 to iк |Step 6       |
|step h}S       |Call Swap(S, |
|выполняется    |i, i + 5)    |
|S              |Call Swap(S, |
|}пока i0 не    |i + 2, i + 3)|
|дос-           |             |
|[Exit for]     |Call Swap(S, |
|}тигнет        |i + 1, i + 4)|
|значения       |             |
|Next i         |Next i       |
|}ik .Шаг – h   |For i = 1 To |
|2              |Len(S)       |
|Sub Знаки()    |c = Mid(S, i,|
|Dim S As       |1)           |
|String, En As  |S1 = S1 + c  |
|String         |If InStr(Gl, |
|Dim nEn As     |c) > 0 Then i|
|Integer, i As  |= i + 1      |
|Long           |Next i       |
|S =            |MsgBox (S1)  |
|InputBox("Введи|End Sub      |
|те текст")     |5            |
|En =           |Sub Замена() |
|"abcdefghijklmn|Dim S As     |
|opqrstuvwxyz"  |String, S1 As|
|nEn = 0        |String       |
|For i = 1 To   |Dim n As     |
|Len(S)         |Long, C As   |
|If (InStr(En,  |String       |
|Mid(S, i, 1),  |Dim Name As  |
|1)) > 0 Then   |String       |
|nEn = nEn + 1  |S =          |
|End If         |InputBox("Вво|
|Next i         |д строки")   |
|MsgBox ("Кол-во|Name =       |
|=" + Str(nEn)) |InputBox("Вво|
|End Sub        |д Имени")    |
|3              |n = 0        |
|Sub Swap(S As  |For i = 1 To |
|String, i As   |Len(S)       |
|Long, j As     |C = Mid(S, i,|
|Long)          |1)           |
|Dim c As String|If Mid(S, i, |
|               |3) = "Имя"   |
|c = Mid(S, i,  |Then         |
|1)             |S1 = S1 +    |
|Mid(S, i, 1) = |Name         |
|Mid(S, j, 1)   |n = n + 1    |
|Mid(S, j, 1) = |i = i + 2    |
|c              |ElseIf Mid(S,|
|End Sub        |i, 7) =      |
|Sub шифр()     |"Фамилия"    |
|Dim S As       |Then         |
|String, Sogl As|S1 = S1 +    |
|String         |Name         |
|Dim S1 As      |i = i + 6    |
|String, c As   |n = n + 1    |
|String         |Else         |
|Dim Gl As      |S1 = S1 + C  |
|String, K As   |End If       |
|Long           |Next i       |
|Dim i As Long  |MsgBox (S1)  |
|Sogl =         |MsgBox (n)   |
|"аеиоуыэюяё"   |End Sub      |
|S =            |             |
|InputBox("Ввод |             |
|строки")       |             |
|Gl =           |             |
|"бвгджзклмнпрст|             |
|фхцчшщъь"      |             |
|For i = 1 To   |             |
|Len(S)         |             |
|c = Mid(S, i,  |             |
|1)             |             |
|S1 = S1 + c    |             |
|If InStr(Gl, c)|             |
|> 0 Then       |             |



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