A Оперативная Ключ 0 Задание
 Скачать 1.27 Mb.
|
|
Ключ: B Задание 434 Условный оператор может быть: A: Однострочным B: Однострочным с альтернативной частью (с блоком Else) C: Однострочным многоальтернативным (с блоками ElseIf) D: Многострочным без альтернативной части E: Многострочным с альтернативной частью (с блоком Else) F: Многострочным многоальтернативным (с блоком Else и блоками ElseIf) Ключ: ABDEF Задание 435 Однострочная форма условного оператора If...Then... заканчивается: A: Ключевым словом End B: Служебным словосочетанием End If C: Ключевым словом Else D: Нет специального служебного словосочетания Ключ: D Задание 436 Многострочная форма условного оператора If...Then... заканчивается: A: Ключевым словом End B: Служебным словосочетанием End If C: Ключевым словом Else D: Нет специального служебного словосочетания Ключ: B Задание 437 Какой из следующих условных операторов записан правильно? A: If a < b Then c = a: a = b: b = c; B: If a < b Then c = a: a = b: b = c C: If a < b Then c = a: a = b: b = c End If D: If a < b Then c = a: a = b: b =c End If Ключ: C Задание 438 Укажите правильные варианты записи условного оператора для вычисления функции Y : y=ax+b, если x<0 y= bx+a, если x>=0 A: If x<0 Then y=a*x+b Else y=b*x+a End If B: If x<0 Then y=a*x+b If x>=0 Then y=b*x+a C: If x<0 Then y=a*x+b Else y=b*x+a D: If x<0 Then y=a*x+b Else y= b*x+a Ключ: ABC Задание 439 Укажите правильные варианты записи условного оператора для вычисления функции Y : y=ax+b, если x<0 y=bx+a, если x>=0 A: If x<=0 Then y=a*x+b Else y=b*x+a End If B: If x<0 Then y=a*x+b If x>=0 Then y=b*x+a C: If x<0 Then y=a*x+b Else y=b*x+a D: If x>0 Then y=a*x+b ElseIf y= b*x+a Ключ: BC Задание 440 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim a As Boolean, x As Integer a= True: x=1 If a Then x=x + 1 Else x=x+2 End If Text1.Text=Str(x) A: 2 B: 3 C: 1 D: 0 Ключ: A Задание 441 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim a As Integer, x As Integer a= 5: x=1 If a>5 Then x=x + 1 Else x=x+2 End If Text1.Text=Str(x) A: 2 B: 3 C: 1 D: 0 Ключ: B Задание 442 Что будет напечатано при выполнении следующего фрагмента программы? k=20: k=k+10: If k+10<>30 Then k=8 Else k=k-1 Print k A: 20 B: 30 C: 8 D: 7 E: 29 Ключ: C Задание 443 Что будет напечатано при выполнении следующего фрагмента программы? k=20: k=k+10: If k+10=30 Then k=8 Else k=k-1 Print k A: 20 B: 30 C: 29 D: 8 E: 7 Ключ: C Задание 444 Что будет напечатано при выполнении следующего фрагмента программы? p=1: If p>0 Then p=p+5 If p>6 Then p=p+1 Print p A: 1 B: 5 C: 7 D: 6 Ключ: D Задание 445 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim nVar As Integer nVar=5 Select Case nVar Case 1 Print "=1" Case 2,3 Print "=2 или =3" Case 4 To 6 Print ">=4 и <=6" Case Is>=9 Print ">=9" Case Else Print "Ни одно из предшествующих" End Select A: =1 B: =2 или =3 C: >=4 и <=6 D: >=9 E: Ни одно из предшествующих Ключ: C Задание 446 Каково должно быть значение переменной Otmetka, чтобы Вас похвалили за экзамен по КП ? Otmetka=InputBox("Какая отметка по КП?") Select Case Otmetka Case 1,2 Print "Кошмар!" Case 3 Print "Неважно" Case 4 Print "Неплохо" Case 5 Print "Молодец!" Case Else Print "Таких оценок не бывает" End Select A: 1 B: 2 C: 3 D: 4 E: 5 F: 6 Ключ: E Задание 447 Что надо ввести в переменную Otmetka, чтобы увидеть на экране слова: Таких оценок не бывает ? Otmetka=InputBox("Какая отметка по КП?") Select Case Otmetka Case 1,2 Print "Кошмар!" Case 3 Print "Неважно" Case 4 Print "Неплохо" Case 5 Print "Молодец!" Case Else Print "Таких оцнок не бывает" End Select A: 1 B: 2 C: 3 D: 4 E: 5 F: 6 Ключ: F Задание 448 Могут ли операторы выбора быть вложенными? A: Могут B: Не могут C: Не могут, если у них разные ключевые переменные D: Не могут, если у внешнего из них отсутствует альтернативная часть Case Else Ключ: A Задание 449 Оператор выбора (варианта) Select Case предназначен для A: Безусловного изменения направления вычислительного процесса B: Изменения направления вычислительного процесса в зависимости от значения одной ключевой переменной или одного выражения C: Изменения направления вычислительного процесса в зависимости от многих переменных или выражений D: Повторения некоторого фрагмента кода программы пока не выполнится заданное условие Ключ: B Задание 450 К операторам циклов относятся: A: Оператор Dim B: Оператор Goto... C: Оператор If ... Then ... D: Оператор Select ... Case... E: Оператор For ... Next F: Оператор Do...Loop G: Оператор присваивания Ключ: EF Задание 451 Могут ли циклы любых типов пересекаться? A: Могут, если они одного типа B: Могут, если они разных типов C: Не могут D: Могут, если из одного из них предусмотрен досрочный выход Ключ: C Задание 452 Могут ли циклы любых типов быть вложенными? A: Не могут B: Могут, если они не пересекаются C: Могут только циклы For ... Next D: Могут только циклы For Each ... In ... Next E: Могут только циклы Do While <условие> ... Loop F: Могут только циклы Do... Loop Until <условие> G: Могут независимо от типов циклов Ключ: G Задание 453 Оператор регулярного цикла For ... Next используется для выполнения некоторого фрагмента кода программы: A: Неопределенное число раз B: До тех пор, пока не выполнится некоторое условие C: Заданное число раз D: Только один раз Ключ: C Задание 454 При каких условиях тело цикла оператора For .. Next может не выполниться ни разу? A: Если при положительном шаге начальное значение параметра больше конечного B: Если при отрицательном шаге начальное значение параметра меньше конечного C: Если начальное значение параметра равно его конечному значению D: Если первым оператором тела цикла является оператор Exit For Ключ: ABD Задание 455 При каких условиях цикл For ... Next может стать бесконечным? A: Если значение шага равно 0 B: Если начальное значение параметра цикла больше конечного C: Если в теле цикла параметру цикла присваивается постоянное значение D: Если в теле цикла от параметра цикла вычитается значение шага цикла Ключ: ACD Задание 456 Можно ли досрочно выйти из тела цикла For ... Next? A: Можно с помощью оператора GoTo B: Нельзя ни при каких условиях C: Можно с помощью оператора Exit For D: Можно с помощью оператора Exit Do Ключ: AC Задание 457 Чему равно значение параметра цикла For ... Next после завершения цикла? A: На величину шага больше конечного значения параметра при положительном шаге B: Значение параметра после завершения цикла становится неопределенным C: На величину шага меньше конечного значения параметра при отрицательном шаге D: Конечному значению параметра цикла Ключ: AC Задание 460 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim K As Integer, I As Integer, J As Integer K=0 For I=1 To 4 For J=1 To 5 K=K+1 Next J Next I MsgBox "K=" & Str(K) A: K= 5 B: K= 4 C: K= 9 D: K= 20 E: K= 0 F: К=1 Ключ: D Задание 461 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim K As Integer, I As Integer, J As Integer K=0 For I=1 To 3 For J=1 To 4 K=K+1 Next J Next I MsgBox "K=" & Str(K) A: K= 7 B: K= 4 C: K= 12 D: K= 3 E: K= 0 Ключ: C Задание 462 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim K As Integer, I As Integer, J As Integer For I=1 To 3 K=0 For J=1 To 3 K=K+2 Next J Next I MsgBox "K=" & Str(K) A: K=0 B: K=2 C: K=6 D: K=12 E: K=18 Ключ: C Задание 463 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim J As Integer, S As Integer S=0 For J=1 To 4 Step 2 S=S+J Next J MsgBox "S=" & Str(S) A: S= 4 B: S= 10 C: S= 3 D: S= 0 Ключ: A Задание 464 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim J As Integer, S As Integer S=0 For J=2 To 6 Step 4 S=S+J Next J MsgBox "S=" & Str(S) A: S= 2 B: S= 8 C: S= 5 D: S= 0 Ключ: B Задание 465 Какой результат будет выведен после выполнения следующего фрагмента программы? Dim K As Integer, I As Integer, J As Integer K=0 For I=1 To 5 For J=1 To 4 K=K+1 Next J Next I MsgBox "K=" & Str(K) A: K= 5 B: K= 4 C: K= 9 D: K= 20 E: K= 0 Ключ: D Задание 470 Вычислить сумму первых 10 членов натурального ряда. Укажите вариант записи программы, в котором в операторе For... Next допущена ошибка: A: Dim K As Integer, S As Integer S=0 For K=1 To 10 S=S+K Next K MsgBox "Сумма=" & Str(S) B: Dim K As Integer, S As Integer S=0 For K=1 To 10 S=S+K Next MsgBox "Сумма=" & Str(S) C: Dim K As Integer, S As Integer S=0 For K=10 To 1 S=S+K Next K MsgBox "Сумма=" & Str(S) D: Dim K As Integer, S As Integer S=0 For K=10 To 1 Step -1 S=S+K Next K MsgBox "Сумма=" & Str(S) Ключ: C Задание 471 Вычислить сумму первых 10 членов натурального ряда. Укажите правильные варианты записи программы: A: Dim K As Integer, S As Integer S=0 For K=1 To 10 S=S+K Next K MsgBox "Сумма=" & Str(S) B: Dim K As Integer, S As Integer S=0 For K=1 To 10 S=S+K Next MsgBox "Сумма=" & Str(S) C: Dim K As Integer, S As Integer S=0 For K=10 To 1 S=S+K Next K MsgBox "Сумма=" & Str(S) D: Dim K As Integer, S As Integer S=0 For K=10 To 1 Step -1 S=S+K Next K MsgBox "Сумма=" & Str(S) Ключ: ABD Задание 472 Укажите, какие значения увидит пользователь в первой строке результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 625 E: 2 4 8 16 Ключ: B Задание 473 Укажите, какие значения увидит пользователь во второй строке результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 625 E: 2 4 8 16 F: 1 4 9 16 25 Ключ: F Задание 474 Укажите, какие значения увидит пользователь в третьей строке результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 625 E: 2 4 8 16 F: 1 8 27 64 125 Ключ: F Задание 475 Укажите, какие значения увидит пользователь в четвертой строке результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 625 E: 2 4 8 16 Ключ: D Задание 476 Укажите, какие значения увидит пользователь в первом столбце результатов, выдаваемых программой:Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 625 E: 2 4 8 16 Ключ: A Задание 477 Укажите, какие значения увидит пользователь во втором столбце результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 16 D: 1 16 81 256 625 E: 2 4 8 15 Ключ: C Задание 478 Укажите, какие значения увидит пользователь в последнем столбце результатов, выдаваемых программой: Dim i As byte, j As Byte For i=1 To 4 For j=1 To 5 Print j^i, Next j Print Next i A: 1 1 1 1 B: 1 2 3 4 5 C: 2 4 8 15 D: 1 16 81 256 62 E: 2 4 8 16 F: 5 25 125 625 Ключ: F Задание 480 Оператор цикла с предусловием Do While <условие> ... Loop используется для повторения некоторого фрагмента кода программы: A: До тех пор, пока условие истинно B: До тех пор, пока условие ложно C: Заданное число раз D: Бесконечное число раз Ключ: A Задание 481 Можно ли досрочно выйти из тела цикла Do While <условие>... Loop? A: Нельзя B: Можно с помощью оператора GoTo C: Можно с помощью оператора Do Events D: Можно с помощью оператора Exit Do Ключ: BD Задание 482 Может ли тело цикла Do While <условие> ... Loop не выполниться ни разу? A: Не может B: Может, если условие изначально ложно C: Может, если первым оператором тела цикла является оператор Exit Do D: Может, если условие изначально истинно Ключ: BC Задание 483 Может ли цикл Do While <условие> ... Loop стать бесконечным? A: Не может B: Может, если переменным, входящим в условие, не было присвоено значений до входа в цикл C: Может, если условие остается постоянно истинным D: Может, если условие остается постоянно ложным Ключ: C Задание 484 Какой результат будет выведен в Текстовое окно для следующего фрагмента программы? Dim S As Integer, J As Integer S=2: J=1 Do S=S+J J=J+1 Loop Until S>=13 Text1.Text= Str(S) A: 8 B: 11 C: 12 D: 17 E: 23 Ключ: D Задание 485 Оператор Do Until <условие> ... Loop используется для многократного повторения некоторого фрагмента кода программы: A: Пока условие истинно B: Пока условие ложно C: Заданное число раз D: Пока переменным, входящим в условие не будут присвоены конкретные значения Ключ: B Задание 486 Можно ли досрочно выйти из тела цикла Do Until <условие> ... Loop? A: Можно с помощью оператора GoTo B: Нельзя C: Можно с помощью оператора Exit Do D: Можно с помощью оператора Do Events Ключ: AC Задание 487 Может ли тело цикла Do Until <условие> ... Loop не выполниться ни разу? A: Может, если переменным, входящим в условие, не присвоено значений до входа в цикл B: Не может C: Может, если условие изначально истинно D: Может, если условие изначально ложно E: Может, если первым оператором тела цикла является оператор Exit Do Ключ: ACE Задание 488 Может ли цикл Do Until <условие> ... Loop стать бесконечным? A: Может, если условие остается постоянно истинным B: Может, если переменным, входящим в условие, не присвоено значений до входа в цикл C: Может, если условие остается постоянно ложным D: Не может Ключ: C Задание 489 Оператор цикла с постусловием Do ... Loop While <условие> используется для многократного повторения некоторого фрагмента кода программы: A: Пока условие ложно B: Заданное число раз C: Пока условие истинно D: Пока условие неопределенное Ключ: C Задание 490 Можно ли досрочно выйти из тела цикла Do ... Loop While <условие> ? A: Можно с помощью оператора Do Events B: Можно с помощью оператора Exit Do C: Нельзя D: Можно с помощью оператора GoTo Ключ: BD Задание 491 Может ли тело цикла Do ... Loop While <условие> не выполниться ни разу? A: Может, если переменным, входящим в условие, не присвоено значений в теле цикла или до входа в цикл B: Может, если условие изначально истинно C: Может, если условие изначально ложно D: Не может Ключ: D Задание 492 Может ли цикл Do ... Loop While <условие> стать бесконечным? A: Может, если условие остается постоянно ложным B: Может, если условие остается постоянно истинным C: Может, если переменным, входящим в условие, не присвоены значения в теле цикла или до входа в него D: Не может Ключ: B Задание 493 Оператор цикла с постусловием Do ... Loop Until <условие> используется для многократного повторения некоторого фрагмента кода программы: A: Заданное число раз B: Пока условие истинно C: Пока условие ложно D: Пока условие неопределенное Ключ: C Задание 494 Можно ли досрочно выйти из тела цикла Do ... Loop Until <условие> ? A: Можно с помощью оператора Exit Do B: Нельзя C: Можно с помощью оператора Do Events D: Можно с помощью оператора GoTo Ключ: AD Задание 495 Может ли тело цикла Do ... Loop Until <условие> не выполниться ни разу? A: Может, если переменным, входящим в условие, не присвоено значений в теле цикла или до входа в цикл B: Не может C: Может, если условие изначально ложно D: Может, если условие изначально истинно Ключ: B Задание 496 Может ли цикл Do ... Loop Until <условие> стать бесконечным? A: Не может B: Может, если условие остается постоянно истинным C: Может, если переменным, входящим в условие, не присвоено значений в теле цикла или до входа в него D: Может, если условие остается постоянно ложным Ключ: D Задание 497 Какой результат будет выведен в Текстовое окно для следующего фрагмента программы? Dim S As Integer, J As Integer S=3: J=1 Do Until S>12 S=S+J J=J+1 Loop Text1.Text= Str(S) A: 3 B: 11 C: 12 D: 13 E: 14 Ключ: D Задание 498 Какой результат будет выведен в Текстовое окно для следующего фрагмента программы? Dim S As Integer, J As Integer S=3: J=1 Do Until S>=15 S=S+J J=J+1 Loop Text1.Text= Str(S) A: 3 B: 13 C: 15 D: 18 E: 16 Ключ: D Задание 499 Какой результат будет выведен в Текстовое окно для следующего фрагмента программы? Dim S As Integer, J As Integer S=3: J=1 Do While S<12 S=S+J J=J+1 Loop Text1.Text= Str(S) A: 3 B: 11 C: 12 D: 13 E: 14 Ключ: D |