помоги пожалуйста срочноо

[lizamend]

. Определите значение переменных по фрагменту программы с помощью трассировки:

Dim S1 As String, S2 As String, S3 As String
S1 = “In that ”
S2 = “ there is a ,”
S3 = S1 & “town” & S2 & “street,”
S1 = S1 & “street”& S2 “yard”
S3 = S3 & S1
Dim a As Integer, b As Integer
Const c As Integer = 65
a = 17
b = c - a
a = a + c
b = b / a
Dim TR1 As Boolean, TR2 As Boolean, TR3 As Boolean
TR1 = 98 > 97
TR2 = 36 > 13
TR1 = TR1 And TR2
TR3 = TR1 Or Not (TR2)