Примеры использования оператора присваивания

№

Фрагмент текста программы

Результат

1

Sub q()

Const pi = 3.14

Dim a%, b!, c#, d As Boolean

Dim e As Date, f$

a = 1 / 3

b = 1 / 3

c = 1 / 3

d = 1 / 3

e = 1 / 3

f = a & vbCr & b & vbCr & c & _ vbCr & d & vbCr & e & vbCr & pi

MsgBox f

End Sub

2

a=1 : b=2 : a=b : b=a

a=2 b=2

3

a=1 : b=2 : a=a+b : b=a*b

a=3 b=6

4

a=1 : b=2 : a=a+b : b=a : a=a=a

a=-1(True) b=3

5

c=a : a=b : b=c

aиbменяются значениями

6 *

a=a+b : b=a-b : a=a-b

aиbменяются значениями

7 *

a=y*2 : y=y/x : x=x*x : x=x+y+a

x=x*x+y/x+y*2