*************** EEVBE\EasyEx\HelloWo\   Write\   Program\
*************** HelloWo1.VBE ***************
Sub HelloWorld1()
   Sheets(1).Cells(1, 1) = "Hello World..."
End Sub
*************** HelloWo5.VBE ***************
Sub HelloWorld5()
   Sheets(1).Cells(1, 1) = "Hello World....."
   Sheets(1).Cells(2, 1) = "Hello World....."
   Sheets(1).Cells(3, 1) = "Hello World....."
   Sheets(1).Cells(4, 1) = "Hello World....."
   Sheets(1).Cells(5, 1) = "Hello World....."
End Sub
*************** HelloWo9.VBE ***************
Sub HelloWorld9()
   Dim i

   '----- LOOP
   For i = 1 To 9
      Sheets(1).Cells(i, 1) = "Hello World........."
   Next
End Sub
*************** Writ2x2.VBE ***************
Sub Write2x2()
   Sheets(1).Cells(1, 1) = 2 + 2
End Sub
*************** WritCalc.VBE ***************
Sub WriteCalc()
   Dim R
   Dim C, A

   R = 10

   C = 2 * 3.14159 * R
   A = 3.14159 * R * R

   Sheets(1).Cells(1, 1) = "Radius=" & R
   Sheets(1).Cells(2, 1) = "Circumference=" & C
   Sheets(1).Cells(3, 1) = "Area=" & A
End Sub
*************** WritMsg.VBE ***************
Sub WriteMsg()
   Dim MyMsg

   MyMsg = "- Nice weather, isn't it ?" & Chr(10) _
          & "- Yes ""nice"" weather." & Chr(10)

   Sheets(1).Cells(1, 1) = MyMsg
End Sub
*************** Chr20_FF.VBE ***************
Sub Chr20_FF()
   Dim i

   Sheets(1).Cells(1, 1) = "***** CHARS: "

   '----- LOOP
   For i = 32 To 255
      Sheets(1).Cells(1, 1) = Sheets(1).Cells(1, 1) & Chr(i)
   Next
End Sub
*************** PrimeNb.VBE ***************
Sub PrimeNb()
   Dim IsPrimeArray(1000)
   Dim i
   Dim j, jMax
   Dim OutputLine

   Sheets(1).Cells(1, 1) = "***** PRIME NUMBERS: "

   OutputLine = 2

   '----- LOOP 1 , On each number
   For i = 1 To 1000

      '----- Could be a prime number
      IsPrimeArray(i) = True

      j = 2
      jMax = i \ 2      '--- Int div

      '----- LOOP 2 , Search a divisor
      While IsPrimeArray(i) And (j <= jMax)
         '----- "j" can divide "i" ?
         If (i mod j) = 0 Then
            IsPrimeArray(i) = False
         End If
         j = j + 1
      Wend

      '----- Display only prime numbers
      If IsPrimeArray(i) = True Then
         Sheets(1).Cells(OutputLine, 1) = i & " "
         OutputLine = OutputLine + 1
      End If
   Next

'
'   [<--                   i                      -->]
'    [<-- j -->]
'   .#.....................#.........................#
'    |         |                                     |
'    2      i div 2                                1000
'
'
End Sub
