13 lines
220 B
Text
13 lines
220 B
Text
|
Dim As Integer m1(1 To 3) = {3,4,5}
|
||
|
|
Dim As String m2 = "["
|
||
|
|
Dim As Integer x, y ,z
|
||
|
|
For x = 1 To Ubound(m1)
|
||
|
|
y = m1(x) + 1
|
||
|
|
z = y * 2
|
||
|
|
m2 &= Str(z) & ", "
|
||
|
|
Next x
|
||
|
|
m2 = Left(m2, Len(m2) -2)
|
||
|
|
m2 &= "]"
|
||
|
|
Print m2
|
||
|
|
Sleep
|