| Форма входа |
|
 |
| Меню сайта |
|
|
| Разное |
|
|
|
| Сейчас на сайте |
Онлайн всего: 13 Гостей: 13 Пользователей: 0 |
|
|
Билеты по информатике 10 класс: Visual Basic
|
| 18.09.2009, 03:56 |
Случайный текст с реферата
Билет № 6 1 Array(Список) Возвращает значение типа Variant, содержащее массив Пример: Dim m as Variant m=Array(1,7,-1,2,3) m(0)=1 m(1)=7 m(2)=-1 m(3)=2 m(4)=3 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) 3 Step 4 Call Swap(S1, i, i + 3) Call Swap(S1, i + 1, i + 2) Ne...
|
| Категория: Программирование | Добавил: bestmms
(23.7 Kb)
|
| Просмотров: 264 | Загрузок: 34
| Рейтинг: 0.0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
