Question

Use VbScript to go through an array of colors.

Create a loop to get the next 2 elements of an array in vbscript.

The array is Colors = Array("red", "blue, "green", "yellow", "purple", "orange", "marroon", "cream", "violet", "teal")

Output should be:

Red Blue green

Blue Green Yellow

Purple Orange Marroon

Cream Violet Teal

Violet Teal Red

Teal Red Blue

For each element in the array, get the next 2 elements

Answer 1

Answer:

Raw code:

Module Module1
Sub Main() 'declaring the function
'creating an array of given strings
Dim Colors() As String = {"red","blue","green","yellow","purple","orange","marron","cream","violet","teal"}
Dim len As Integer = Colors.Length 'declaring the len variable with lenght of Colors array
For i As Integer = 0 To Colors.Length - 1
'for printing the required output
Console.WriteLine("{0} {1} {2}",UCase(Left(Colors(i Mod len), 1)) & Mid(Colors(i Mod len), 2),
UCase(Left(Colors((i+1) Mod len), 1)) & Mid(Colors((i+1) Mod len), 2),
UCase(Left(Colors((i+2) Mod len), 1)) & Mid(Colors((i+2) Mod len), 2))
'UCase(Left(Colors(i Mod len), 1)) this captlise the fist letter
'mod is for to over the come problem of array goes out of bound
Next
End Sub
End Module

note: please make indentation according to the screen shot of the editor

code screen shot:

out put: