========== HelloWo1.VBE ==========

Sub HelloWorld1()
   Sheets(1).Cells(1, 1) = "Hello World..."
End Sub
                                       +---------------------------------------
========== HelloWo5.VBE ==========     ! ========== Chr20_FF.VBE ==========
                                       !
Sub HelloWorld5()                      ! Sub Chr20_FF()
Sheets(1).Cells(1,1)="Hello World....."!    Dim i
Sheets(1).Cells(2,1)="Hello World....."!
Sheets(1).Cells(3,1)="Hello World....."!    Sheets(1).Cells(1, 1) =
Sheets(1).Cells(4,1)="Hello World....."!                        "***** CHARS: "
Sheets(1).Cells(5,1)="Hello World....."!
End Sub                                !    '----- LOOP
                                       !    For i = 32 To 255
========== HelloWo9.VBE ==========     !       Sheets(1).Cells(1, 1) =
                                       !         Sheets(1).Cells(1, 1) & Chr(i)
Sub HelloWorld9()                      !    Next
   Dim i                               ! End Sub
                                       !
   '----- LOOP                         ! ========== PrimeNb.VBE ==========
   For i = 1 To 9                      !
      Sheets(1).Cells(i, 1) =          ! Sub PrimeNb()
               "Hello World........."  !    Dim IsPrimeArray(1000)
   Next                                !    Dim i
End Sub                                !    Dim j, jMax
                                       !    Dim OutputLine
========== Writ2x2.VBE ==========      !
                                       !    Sheets(1).Cells(1, 1) =
Sub Write2x2()                         !                "***** PRIME NUMBERS: "
   Sheets(1).Cells(1, 1) = 2 + 2       !    OutputLine = 2
End Sub                                !
                                       !    '----- LOOP 1 , On each number
========== WritCalc.VBE ==========     !    For i = 1 To 1000
                                       !       '----- Could be a prime number
Sub WriteCalc()                        !       IsPrimeArray(i) = True
   Dim R                               !
   Dim C, A                            !       j = 2
                                       !       jMax = i \ 2      '--- Int div
   R = 10                              !
                                       !       '----- LOOP 2 , Search a divisor
   C = 2 * 3.14159 * R                 !       While IsPrimeArray(i)
   A = 3.14159 * R * R                 !                        And (j <= jMax)
                                       !          '----- "j" can divide "i" ?
   Sheets(1).Cells(1, 1) = "Radius="&R !          If (i mod j) = 0 Then
   Sheets(1).Cells(2, 1) =             !             IsPrimeArray(i) = False
                  "Circumference=" & C !          End If
   Sheets(1).Cells(3, 1) = "Area=" & A !          j = j + 1
End Sub                                !       Wend
                                       !
                                       !       '----- Display only primenumbers
                                       !       If IsPrimeArray(i) = True Then
                                       !          Sheets(1).Cells(OutputLine,1)
                                       !                              = i & " "
                                       !          OutputLine = OutputLine + 1
                                       !       End If
========== WritMsg.VBE ==========      !    Next
                                       ! End Sub
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
