Заливка ячейки

Цвет и узор, которыми заполняется ячейка, определяются
c помощью свойства объекта Interior. Цвет заливки задается свойствами Color или ColorIndex. Pattern – определяет узор заливки ячейки (табл. 5.23).

Таблица 5.23

Цвет узора заливки задается свойствами PatternColorIndex и PatternColor.

Пример:

Range(“C1:F3”).Select

With Selection.Interior

.ColorIndex=6

.Pattern=xlSolid

End With

5.4.5. Контрольные вопросы

1) Выберите вариант записи чисел, соответствующий типу Integer.

а) 123; -12; 0,001 б) 24,1; 1E03 в) “2345”; 43; -1E03

г) 123; -12

2) В каком из вариантов переменные А и В целого типа описаны (объявлены) явно?

а) Dim A, B

б) Dim A as Integer, B as Byte

в) Dim A as Integer, B as Single

г) Dim A as Long, B as Single

3) Назовите вариант, в котором идентификаторы A и B объявлены константами.

а) Dim B=7, A=“зима”

б) Public B=7, A=“зима”

в) Const B=7, Dim A=“зима”

г) Public Const a= “зима”, Const B as Single=1.25

4) Какого типа значения возвращает функция IsNumeric()?

5) Для какого из вариантов заголовков передача аргументов A и B в процедуру будет организована по ссылке?

а) Sub pr(ByRef A as Long, B as String) …

end Sub

б) Sub pr(ByVal A as Long, ByRef B as String) …

end Sub

в) Sub pr(ByVal A as Long, ByVal B as String) …

end Sub

г) Sub pr(A as Long, ByVal B as String) …

end Sub

6) Для какого из вариантов заголовков передача аргументов A и B в процедуру будет организована по значению?

а) Sub pr(ByRef a as Long, b as String) …

end Sub

б) Sub pr(ByVal a as Long, ByRef b as String) …

end Sub

в) Sub pr(ByVal a as Long, ByVal b as String) …

end Sub

г) Sub pr(a as Long, ByVal b as String) …

end Sub

7) Укажите вариант записи условного оператора в полной форме.

а) if x<>0 then y=x/sin(x)

б) if x<>0 then y=x/sin(x) else y=1 end if

в) if x<>0 then y=x/sin(x) else y=1

8) Какой из условных операторов содержит сложное условие, состоящее из двух простых, соединенных логической операцией «И»?

а) if x>-1 and x<>0 then y=ln(1+x)

б) if x>-1 end x<>0 then y=ln(1+x)

в) if x>-1 or x<>0 then y=ln(1+x)

г) if x>-1 and not x=0 then y=ln(1+x)

9) Чем является конструкция “7359”?

а) числом, б) именем, в) строкой, г) недопустимой записью?

10) Какой результат получится при вычислении выражения
253 \ 10?

11) Какой результат получится при вычислении выражения
258 mod 10?

12) В каком из вариантов переменная объявлена (описана) явно?

а) Private x б) r As Date в) Dim x As Byte

г) Public Z As Long

13) Какая функция возвращает код символа?

14) С помощью какой функции можно выделить только целую часть вещественного числа и отбросить его дробную часть?

15) Какого типа цикл использован в данном фрагменте программы?

Do

Prom = InputBox (“Введите значение P=”)

IF Not IsNumeric(Prom) Then MsgBox(“Повторите

ввод!”)

Loop Until IsNumeric (Prom)

16) Какая функция возвращает символ по его коду?

17) Как называются переменные, объявленные в теле подпрограммы-функции?

18) Какого типа цикл использован в данном фрагменте программы?

While x <=b

x=x+b

s=a+b*x

Wend

19) С помощью какой функции можно вычислить длину строки?

20) Какое имя у функции, выделяющей целую часть вещественного числа с округлением?

21) Какого типа цикл использован в данном фрагменте программы?

Do

y=f(x)

i=i+1

Loop While x<=b+h/2

22) Какого типа переменной могут присваиваться числовое или строковое значения?

23) Каким образом может быть продолжена строка описания переменной Dim St As?

24) Какого типа переменная Prom, значение которой вводится
в этом фрагменте программы?

Do

Prom = InputBox (“Введите значение P=”)

IF Not IsNumeric (Prom)Then MsgBox(“Повторите
ввод!”)

Loop Until IsNumeric (Prom)

25) Как называется последовательная запись констант, переменных, имен функций, разделенных знаками операций и круглыми
скобками?

26) Где хранится код программы во время ее выполнения?

27) С помощью какого ключевого слова осуществляется явное определение типа переменной?

28) Какие из переменных Dim x(), n, k As Byte, S As Single объявлены явно?

29) Каков тип переменной S в этом выражении?

S = 23 mod 4 + 234\10 + 42 mod 2 + 1234\10

30) Назовите номера элементов заданного массива, удовлетворяющих условию (A(i) mod 2=0) and (A(i)>0), если А(1)=6, А(2)=9, А(3)=-12, А(4)=13, А(5)=10.

31) Какие из логических выражений принимают значение ИСТИНА при x кратном 3?

a) x mod 3 = 0

b) x mod 3 =1 or x mod 3 = 2

c) not(x mod 3 = 1 or x mod 3 = 2)

32) Какие из явно объявленных переменных целого типа являются локальными?

Dim N As Byte

Sub Ex()

Dim y() As Single, I, j, k As Integer

End Sub

33) С помощью каких ключевых слов определяется область действия переменных?

а) Dim, Variant

б) Dim, As, To

в) Public, Private, Static, Dim

г) Public, Private, Static, Dim, Const

34) Назовите опцию, требующую явного описания всех используемых переменных и констант.

35) С помощью какого ключевого слова объявляются переменные и константы, сохраняющие свои значения до конца выполнения программы?

Поиск по сайту: