baza_po_inf

Определить правильный формат строковой функции, вырезающей в строке определенное количество символов с заданной позиции.=Mid (начало, строка, количество)

Какие символы из перечисленных можно использовать для объединения строковых переменных: а) + б) @ в) # г) & д) $ === а, г

Выбрать символ, который используется для объединения строковых переменных. --- &

Выбрать символ, который используется для объединения строковых переменных. +

Какое значение будет иметь переменная Z = m + n, где m = «знание », n = «сила »?=Z = «знание сила»

Какое значение будет иметь переменная Z = n & m, где m = «знание », n = «сила »?= Z = «сила знание»

Какую из перечисленных строковых функций можно использовать для организации неопределенного цикла?=Instr (начало, строка, подстрока)

Определить правильный вариант применения строковой функции для нахождения позиции n подстроки a = «грамм» в строке b = «язык программирования».= n = Instr( 1, b, a)

Определить правильный вариант применения строковой функции вырезающей из строки b = «успевающий студент» значение переменной a = «студент».= с = Mid(b, 12, 7)

Определить правильный вариант применения строковой функции, заменяющей в строке b = «угроза» первые два символа на пробелы.= Mid(b, 1, 2) = “ “

Выбрать правильный вариант значения переменной k, где k = Len(b), а значение b = «интегрированная среда»---k = 20

Определить правильный вариант блока программы, определяющий количество букв «н» в введенном слове d. Результат выдать на форму.

==Ответ 4

1) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “н” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =” , s	2) For i = 1 To Len(d) s = 0 If Mid(d, i, 1)= “н” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =” , s	3) s = 0 : x = Instr(1, d, “ “) While x <> 0 b = Mid(d, k, x-k) If Instr(1, b, “н” ) <> 0 Then s = s + 1 End If k = k + x x = Instr(k, d, “н”) Wend
4) k = Len(d) : s = 0 For i = 1 To k If Mid(d, i, 1)= “н” Then s = s + 1 End If Next i Print “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “н” Then s = s + 1 End If ; Next i MsgBox “Количество =” & s

Определить правильный вариант блока программы, определяющий количество сочетаний «омо» в введенном предложении d. Результат выдать с помощью диалогового окна.===ОТВЕТ 2

1) s = 0 For i = 1 To Len(d) If Mid(d, i,3)= “омо” Then s = s + Mid(d, i,3) End If Next i MsgBox “Количество =” & S	2) s = 0 : x = 1 While x <= Len(d) If Mid(d, x, 3) = “омо” Then s = s + 1 End If x = x + 1 Wend MsgBox “Количество =” & s	3) For i = 1 To Len(d) s = 0 If Mid(d, i, 3)= “омо” Then s = s + 1 MsgBox “Количество =” & s Next i
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “омо” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1) = “омо” Then s = s + 1 Next i End If Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d.

Результат выдать в поле ввода.==ОВТЕТ 1

1) k = 1 : s = 0 x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	2) x = Instr(k, d, “ “) While x <> 0 s = 0 : k = 1 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	3) k = 1: x = Instr(k, d, “ “) While x <> 0 s = s + k k = 1 + x x = Instr(k, d, “ “) Wend Print “Количество =” & s
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “ ” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) For i = 1 To Len(d) s = 0 If Instr(i, d, “ “) <> 0 Then s = s + 1 End If Next i ss1.Text = Str(s)

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d,

начинающихся с буквы «ж». Результат выдать в поле ввода.===ОТВЕТ 3

1) k= 1 : x = Instr(k, d, “ “) Do s = 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if x = Instr(k, d, “ “) Loop Until x = 0 ss1.Text = s	2) k = 1: s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend Print s	3) k = 1 : s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “ж” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend ss1.Text = Str(s)
4) Do s = 0 If Mid(d,k,1) = “ж” Then s = s + 1 k = k + x x = Instr(k, d, “ “) Loop Until x <> 0 ss1.Text = s	5) x = Instr(k, d, “ “) If Mid(d,k,1) = “ж” Then s = s + 1 k = k + x x = Instr(k, d, “ “) ss1.Text = Str(s)

Определить правильный вариант блока программы, определяющий количество сочетаний «кол» в введенном предложении d.

Результат выдать в поле ввода.===ОТВЕТ 1

1) s = 0 For i = 1 To Len(d) If Mid(d, i,3)= “кол” Then s = s + 1 End If Next I ss1.Text = Str(s)	2) s = 0 ; x = 1 While x <= Len(d) If Mid(d, x, 3) = “кол” Then s = s + 1 End If x = x + 1 Wend MsgBox “Кол-во =” , s	3) For i = 1 To Len(d) s = 0 If Mid(d, i, 3)= “кол” Then s = s + 1 End If ss1.Text = Str(s) Next i
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “кол” Then s = s + 1 End If Next i MsgBox “Количество =” & s	5) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “кол” Then s = s + 1 End If ; Next i Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество предложений в введенном тексте d,

начинающихся с буквы «Р». Результат выдать в поле ввода.===ОТВЕТ 3

1) k= 1 : x = Instr(k, d, “.“) Do s = 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k =x + 2 x = Instr(k,d,“.“) Loop Until x = 0 ss1.Text = Str(s)	2) k = 1 : s = 0 x = Instr(k,d,“ “) While x <> 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k = x +1 x = Instr(k, d, “ “) Wend Print s	3) k = 1: s = 0 x = Instr(k, d, “.“) While x <> 0 If Mid(d,k,1) = “Р” Then s = s + 1 End if k = x + 2 x = Instr(k, d, “.“) Wend ss1.Text = Str(s)
4) Do s = 0 : b = Mid(d, k x-k) If Left(b, 1) = “Р” Then s = s + 1 End if x = Instr(k, d, “ “) Loop Until x <> 0	5) x = Instr(k,d,“.“) While x<> 0 If Mid(d,k, 1) = “Р” Then s = s + 1 k = x + 2 x = Instr(k, d, “.“) Wend ss1.Text = Str(s)

Определить правильный вариант применения строковой функции вырезающей из строки b = «догорающий костер» значение переменной a = «гор».-- с = Mid(b, 3, 3)

Выбрать правильный вариант значения переменной k = Len(b), где b = «догорающий костер»--k = 17

Определить правильный вариант блока программы, определяющий количество букв «и» в введенном слове d.

Результат выдать на форму.===ОТВЕТ 5

1) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “и” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =” , s	2) For i = 1 To Len(d) s = 0 If Mid(d, i, 1)= “и” Then s = s + Mid(d, i, 1) End If Next i Print “Количество =” , s	3) s = 0 : x = Instr(1, d, “ “) While x <> 0 b = Mid(d, k, x-k) If Instr(1, b, “и” ) <> 0 Then s = s + 1 End If k = k + x x = Instr(k, d, “и”) Wend
4) s = 0 For i = 1 To Len(d) If Mid(d, i, 1)= “и” Then s = s + 1 End If ; Next i MsgBox “Количество =” & s	5) k = Len(d) : s = 0 For i = 1 To k If Mid(d, i, 1)= “и” Then s = s + 1 End If Next i Print “Количество =” & s

Определить правильный вариант блока программы, определяющий количество слов в введенном предложении d. Результат выдать на форму.===ОТВЕТ 3

1) k = 1 : s = 0 x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	2) x = Instr(k, d, “ “) While x <> 0 s = 0 : k = 1 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend ss1.Text = Str(s)	3) s = 0 k = 1: x = Instr(k, d, “ “) While x <> 0 s = s + 1 k = 1 + x x = Instr(k, d, “ “) Wend Print “Количество =” & s
4) s = 0 For i = 1 To Len(d) If Left(d, 1)= “ ” Then s = s + 1 End If ; Next i Print “Количество =” , s	5) For i = 1 To Len(d) s = 0 If Instr(i, d, “ “) <> 0 Then s = s + 1 End If Next i ss1.Text = Str(s)

Определить правильный вариант применения строковой функции для нахождения позиции n переменной a = «кост» в строке b = «догорающий костер».-- n = Instr( 1, b, a)

Какое значение будет иметь строковая переменная М в результате работы функции М = Mid («инициализация»,1, 7) ?-- М = «инициал»

Какое значение будет иметь х в результате работы функции х = InStr( 1, “экзамен”, “мен”)?== 5

Определить значение переменной с = Len (а), где а = "регламентирование":==с = 17

Какое значение будет иметь строковая переменная М в результате работы функции М = Left («инициализация», 4) ?--М = «иниц»

Какое значение будет иметь строковая переменная М в результате работы функции М = Right («инициализация», 7) ?--- М = «лизация»

Какое значение будет иметь строковая переменная М в результате работы функции М = Mid («гравитация», 3, 5) ?-- М = «авита»

Какое значение будет иметь переменная М в результате работы функции М = Instr (1, «гравитация», «вита») ?---- М = 4

Какое значение будет иметь переменная М в результате работы функции М = Instr (1, «модификация», «фикация») ?--М = 5

Какое значение будет иметь переменная М в результате работы функции М = Len («гравитация») ?---М = 10

Какое значение будет иметь переменная М в результате работы функции М = Len («модификация») ?--- М = 11

Массив - это:- множество переменных одного типа

Чем отличаются элементы одного массива?- индексом

Чем отличаются элементы одного массива?- местом положения в массиве

Множество переменных одного типа – это: -массив

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом:Dim A(1 to 20) As Integer , Dim A(1 to 5, 1 to 4) As Integer-количеством индексов

Определить количество элементов в массиве, который описан следующим образом Dim F( 15) As Integer-16

Определить количество элементов в массиве, который описан следующим образом Option Base 1 Dim D( 12 ) As Integer-12

Определить способ создания одномерного массива.For i = 1 To 12 A(i) = Val ( InputBox(“введите элемент массива”) ) Next I - вводятся с клавиатуры с помощью диалогового окна

Обращение к элементу одномерного массива состоит :-из имени массива и индекса

Индекс элемента одномерного массива показывает:-порядковый номер элемента в массиве

Определить количество элементов в массиве, который объявлен в программе следующим образом: Option Base 1 Dim D( 18 ) As Integer-18

Определить правильное обращение к шестому элементу массива C, состоящего из 20 элементов.- C (6)

Определить правильное обращение к третьему элементу массива C, состоящего из 6 элементов.-C (3)

Определить количество элементов в массиве, который описан следующим образом Dim F( 26) As Integer-27

Определить правильное обращение к пятому элементу массива C, состоящего из 15 элементов.- C (5)

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim A(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Single-типом элементов

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim B(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Integer--именем массива

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim A(1 to 20) As Integer Dim A(1 to 4, 1 to 4) As Integer -Количеством элементов

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом:Private A(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Integer-областью видимости

Определить количество элементов в массиве, который объявлен в программе следующим образом: Оption Base 1 Dim D( 17 ) As Integer-17

Определить количество элементов в массиве, который объявлен в программе следующим образом: Dim D(1 To 19 ) As Integer-19

Определить количество элементов в массиве, который объявлен в программе следующим образом: Dim D( 19 ) As Integer-20

Определить количество элементов в массиве, который объявлен в программе следующим образом: Public D(1 To 18 ) As Integer-глобальный

Определить количество элементов в массиве, который объявлен в программе следующим образом: Option Base 1 Private D( 18 ) As Integer-уровня формы

Определить область видимости массива, который объявлен в программе следующим образом: Dim D( 1 To 19 ) As Integer-локальный

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11) вводом с помощью диалогового окна.=ОТВЕТ 2

1) Dim i As byte Dim A(1 to 11) As Single For i = 1 To 11 A(i)=Val(aa1.Text) Next i	2) Dim A(1 to 11) As Single Dim i As byte For i = 1 To 11 A(i)=Val(InputBox(“ввестиА(i)”)) Next i	3) Dim i As byte Dim A(1 to 11) As Single For i = 1 To 11 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to11) As Single Dim i As byte A(i)=Val(InputBox(“А(i)”)) Next i	5) Dim A(11) As Single, i As byte For i = 1 To 11 A(i)=Str(InputBox(“ввестиА(i)”)) Next i

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11) случайным образом из положительных и отрицательных значений.=ОВТЕТ 2

1)Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)=Str(aa1.Text) Next i	2) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int( Rnd*40)-20 Next i	3) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to11) As Integer Dim i As byte A(i)= Int( Rnd*40)-20	5) Dim i As byte For i = 1 To 11 A(i)= Int( Rnd*20)-10

Определить правильный вариант блока программы, объявления и формирования одномерного

массива А(11), из значений вещественного типа, которые рассчитываются по формуле.ОВТЕТ 1

1) Dim A(1 to 11) As Single Dim i As byte For i = 1 To 11 A(i) = Sqr ( Cos(i) + i*i) Next i	2) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)= Int( Rnd*40)-20 Next i	3) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i) = Sqr ( Cos(i) + i*i)
4) Dim A(1 to11) As Integer Dim i As byte A(i)=Val(InputBox(“ввестиА(i)”))	5) Dim i As byte For i = 1 To 11 A(i) = Sqr ( Cos(i) + i*i) Next i

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(21) случайным образом из положительных значений.=ОТВЕТ 3

1) Dim A(1 to 21) As Integer Dim i As byte For i = 1 To 21 A(i)= - ( Rnd*20) Next i	2) Dim A(1 to 21) As Single Dim i As byte For i = 1 To 21 A(i)= Int( Rnd*40)-20 Next i	3) Dim A(1 to 21) As Integer Dim i As byte For i = 1 To 21 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to21) As Integer Dim i As byte A(i)=Val(InputBox(“ввестиА(i)”))	5) Dim i As byte For i = 1 To 21 A(i)= Str(aa1.Text) Next i

Определить правильный вариант блока программы, вычисляющий произведение элементов

массива А(12) больших значения его второго элемента.=ОТВЕТ 2

1) P = 1 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End If Next k	2) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) End If Next k	3) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) Next k
4) P = 0 If A(k) > A(2) Then P = P* A(k) End If	5) For k = 1 To 12 If A(k) > 2 Then P = P* A(k) Next k

Определить правильный вариант блока программы, вычисляющий сумму элементов равных 5 в массиве А(20) .=ОТВЕТ 3

1) S = 0 For k = 1 To 20 If A(k) = 5 Then S = S+ 1 End If Next k	2) S = 1 For k = 1 To 20 If A(k) = 5 Then S = S+ A(k) Next k	3) S = 0 For k = 1 To 20 If A(k) = 5 Then S= S+ A(k) End If Next k
4) S = 0 If A(k) = 5 Then S = S+ 1 End If	5) For k = 1 To 20 If A(k) = 5 Then S = S* A(k) End If Next k

Определить правильный вариант блока программы, вычисляющий сумму всех элементов массива А(20) . Значение суммы выдать на форму.=ОТВЕТ 5

1) S = 0 For k = 1 To 20 S = S+ A(k) Print “сумма = ” & s Next k	2) S = 1 For k = 1 To 20 S = S+ A(k) Next k Print “сумма = ” & s	3) S = 0 For k = 1 To 20 S= S+ A(20) Next k Print “сумма = ” & s
4) S = 1 For k = 1 To 20 S = S+ A(k) Print “сумма = ” & s	5) S = 0 For k = 1 To 20 S = S + A(k) Next k Print “сумма = ” & s

Определить правильный вариант блока программы, определяющий количество элементов равных 3 в

массиве А(20) , и выдающий его значение на форму.=ОТВЕТ 3

1) m = 0 For k = 1 To 20 If A(k) =3 Then m = m+A(k) End If Next k MsgBox “ Кол-во =” & m	2) m = 1 For k = 1 To 20 If A(k) = 3 Then m = m + 1 Print “ Кол-во =” & m Next k	3) m = 0 For k = 1 To 20 If A(k) = 3 Then m = m + 1 End If Next k Print “ Кол-во = ” & m
4) m= 1 If A(k) < 3 Then m = m + 1 End If aa1.Text = Str(m)	5) For k = 1 To 20 If A(k) = 3 Then m = m + 1 Next k End If Print “ Кол-во =” & m

Определить правИльный вариант блока программы, определяющий максимальный элемент массива А(20) ,

и выдающий его значение в поле ввода на форме.=ОТВЕТ 2

1) max = 0 For k = 1 To 20 If A(k) < max Then max = A(k) End If Next k mm1.Text = Str(max)	2) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max)	3) max = A(k) For k = 1 To 20 If A(k) > max Then max = A(k) Next k End If mm1.Text = Str(max)
4) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Print “ Max =” & max	5) max = A(1) For k = 1 To 20 If A(k) > max Then A(k) = max End If Next k MsgBox “ Max =” & max

Определить правильный вариант блока программы, вычисляющий количество элементов массива А(20)

меньших 10 и выдающий это значение с помощью диалогового окна. =ОТВЕТ 1

1) kol = 0 For k = 1 To 20 If A(k) < 10 Then kol = kol + 1 End If Next k MsgBox “kol =” & kol	2) kol = 1 For k = 1 To 20 If A(k) > 10 Then kol = kol + 1 Next k Print “kol =” & kol	3) kol = 0 For k = 1 To 20 If A(k) < 10 Then kol = kol + A(k) Next k End If MsgBox “kol =” & kol
4) kol = 0 For k = 1 To 20 A(k) > 10 kol = kol + A(k) Next k Print “kol =” & kol	5) For k = 1 To 20 If A(k) < 10 Then kol = kol + A(k) End If Next k mm1.Text = Str(kol)

Определить правильный вариант блока программы, определяющий минимальный элемент массива А(20) ,

и выдающий его значение в диалоговом окне.=ОВТЕТ 3

1) min = A(k) For k = 1 To 20 If A(k) < min Then min = A(1) End If Next k MsgBox “ Min =” & min	2) min = 1 For k = 1 To 20 If A(k) > min Then min = A(k) MsgBox “ Min =” & min Next k	3) min = A(1) For k = 1 To 20 If A(k) < min Then min = A(k) End If Next k MsgBox “Min =” & min
4) min = 0 If A(k) < min Then min = A(k) End If Min	5) For k = 1 To 20 If A(k) < min Then min = A(k) Next k : End If Print “ Min =” & min

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11)

случайным образом из отрицательных значений.=ОТВЕТ 3

1) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)=Str(aa1.Text) Next i	2) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int( Rnd*40)-20 Next i	3) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= - Int(Rnd*20) Next i
4) Dim A(1 to11) As Integer Dim i As byte For i = 1 To 11 A(i)=Val(InputBox(“ввестиА(i)”)) Next i	5) Dim i As byte For i = 1 To 11 A(i)= Int( Rnd*20)-10 Next i