Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


‘ункции преобразовани€ данных




 

—реди встроенных функций VBA следует выделить такие, которые работают с различными типами данных и выполн€ют соответствующие преобразовани€ строковых и числовых значений. ¬ таблице 24 представлен синтаксис таких функций, их описание и примеры использовани€.

 

“аблица 24

 раткие сведени€ о функци€х преобразовани€ данных

 

—интаксис функции ќписание функции ѕример
¬ызов функции –езультат
Val(строка) ¬озвращает число, содержащеес€ от начала строки до первого символа, не распознаваемого в качестве числа. »гнорируютс€ символы пробела, табул€ции и перевода строк Val(" 1 2.3")   Val(" 1 2,3")   Val("1" & chr(10) & "2") 12.3      
Str(число) ¬озвращает строковое представление числа с учЄтом знака Str(1+3)   Str(1-3) " 4"   "-2"
Len(выра≠жение) ¬озвращает размер пам€ти в байтах, занимаемый числовым типом данных, или длину строки-аргумента Len(a%)   Len("123")  
Chr(код) * ¬озвращает строку, состо€щую из символа, соответствующего коду ANSI. Chr(62) Chr(65) Chr(225) ">" "A" "б"
Asc(строка) * ¬озвращает число, представл€ющее ASCII или ANSI код первого символа строки Asc(">") Asc(Chr(65)) Asc("бр-рЕ")  
Format(вы≠ра≠жение [, фор≠мат ]) * ¬озвращает значение выражени€, преобразованное согласно описанию формата. ќписанию этой функции в справочной системе VBA посв€щено около дес€ти страниц Format(4) Len(Format(4)) Format(12.3, "##0.00") Format(0.05, "0.0%") Format("xYz", ">") "4" "12.30"   "5.0%"   "XYZ"  

 

¬опросы и тестовые задани€ дл€ самоконтрол€

 

1. ƒаны выражени€, записанные на алгоритмическом €зыке VBA. «апишите эти выражени€ в виде математических формул: sin(x)^2+cos(x)^2; a^2*i+exp(c*d); (b+sin(x))/(c+d); sin(x)^2+cos(x^2); a^(2*i)+exp(c)*d; b+sin(x)/c+d.

2. ”кажите приоритет выполнени€ операций и определите значени€ логического выражени€ при X=0 и Y=1.5, а также при X=2.5 Y=0.5.

X+Y<4 AND X^2 + Y^2>=4

3. ”кажите приоритет выполнени€ операций и определите значени€ логического выражени€ при X=0.5 и Y=0.5, а также при X=1.5 и Y=0.5.

ABS(X) + ABS(Y)<=1

4. ”кажите приоритет выполнени€ операций и определите значени€ логического выражени€ при X=0.5 и Y=0.5, а также при X=1.5 и Y=1.5.

(ABS(X)>=1 OR ABS(Y)>=1) AND X^2+Y^2<9

5. ƒан фрагмент программы:

If x<1 Then

y=x+1

Elseif x<2 Then

y=x+3

Elseif x<4 Then

y=x^2

Else

y=x-2

End If

z=2*y

MsgBox "X=" & x & " Y=" & y & " " & "Z=" & z

”кажите результат работы этого фрагмента в каждом из следующих случаев: x=0.5; x=1.5; x=3; x=5.

6. ƒан фрагмент программы:

x = val(InputBox("¬ведите координату xФ))

y = val(InputBox("¬ведите координату y"))

sR = "точка (" & x & ", " & y & ") находитс€"

If x+y<2 and x>0 and y>0 Then

MsgBox sR & "в треугольнике"

Elseif (x+1)^2+(y+1)^2<1 Then

MsgBox sR & "внутри круга"

Else

MsgBox sR & "вне областей"

End If

”кажите результат работы этого фрагмента дл€ каждого из случаев: x=0.5 и y=0.8; x=2.5 и y=1.5; х=-0.7 и y=1; x=-0.7 и y=1.

7. Ќазовите операторы €зыка VBA, с помощью которых организуетс€ циклический вычислительный процесс, назначение и отличительные особенности выполнени€ каждого из них.

8. ћожно ли выйти из цикла FOR Е NEXT до его завершени€ и если можно, то как?

9. ”кажите назначение оператора WHILE Е WEND?

10. ”кажите, какой результат будет выведен на экран (в файл) при выполнении следующего фрагмента программы:

For t=1 To 7

Print t; t+2;

Next t

11. ”кажите, какой результат будет выведен на экран (в файл) при выполнении следующего фрагмента программы:

For f=0 To 9 Step 3

Print 2*f; f*f;

Next f

12. ќпределите, сколько раз будет выполнено тело цикла в приведенном фрагменте программы:

For i = 2 To n Step 1

s = s + i

Next i

при n, равном: а) 2; б) 0; в) 4; г) 5.

13. ќпределите значение переменной a после выполнени€ каждого из фрагментов программы:

1) a = 0 For i =1 To 7 a = a + i Next i 2) a = 1: n = 7 For i = n To 2 Step Ц1 a = a + i Next i 3) a = 0 For i = 2 To 7 a = a + i Next i

14. ќпределите значение переменной с после выполнени€ каждого из фрагментов программы:

1) c=0 For i=1 To 4 c=c+(i+2) Next i 2) c=1 For i=1 To 4 Step 2 c=c*(i+1) Next i 3) c=0 For i=2 To 5 Step 2 c=c+i^2 Next i

15. * ”кажите, какое значение примет строкова€ переменна€ N$ в результате работы фрагмента программы:

W$="я ’ќ–ќЎќ ”ћ≈ё –јЅќ“ј“№ Ќј IBM PC"

N$=MID$(W$,3,7)+MID$(W$,15)

1) я ”ћ≈ё

2) –јЅќ“ј“№ ”ћ≈ё

3) ’ќ–ќЎќ –јЅќ“ј“№

4) –јЅќ“ј“№ ’ќ–ќЎќ

5) ’ќ–ќЎќ –јЅќ“ј“№ Ќј IBM PC

6) я ”ћ≈ё –јЅќ“ј“№ Ќј IBM PC

 

вернутьс€ к содержанию

 

 





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2015-01-29; ћы поможем в написании ваших работ!; просмотров: 1712 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

¬ моем словаре нет слова Ђневозможної. © Ќаполеон Ѕонапарт
==> читать все изречени€...

323 - | 301 -


© 2015-2023 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.015 с.