Dim X As Integer, Z As String Z = "Stop " For X = 1 to 4 Z = "Go " & Z Next X
Dim X As Integer X = 3 Do While X < 15 X = 2 * X - 1 Loop
Dim a(1 to 20) As Integer, X as Integer a(5) = 1 a(8) = 2 a(13) = 4 X = a(5+8)
Dim X As Integer, box(1 to 10) As Integer, answer As Integer For X = 1 to 10 box(X) = 2*X Next X answer = box(7) + box(3)
Dim X As Integer, Y As Integer, loyola(1 to 3) As Integer For X = 1 to 3 loyola(X) = 1 Next X For X = 2 to 3 loyola(X) = X*loyola(X-1) Next X Y = loyola(3)