Re4：50歳から始めるラズベリーパイ-6

Re4：50歳から始めるラズベリーパイ

LibreOfficeでVBAプログラミング入門

amazon kindle版を出版しました。

---

(4)繰り返しを使ってみよう（繰り返し－4）
　九九を求めるプログラムを作成します。A1が1×1、I9が9×9になります。ここでは、Do 　～　Loop　Until 条件式を使ってみましょう。Until 条件式は、条件式が成り立つとループを終了します。また、オブジェクトをRangeからCellsに変更します。

Option VBAsupport 1 'VBAと互換性

Sub Main

Dim i as Integer
Dim j as Integer

      i=1

 DO

      j=1
   DO
    Cells(i,j).Value=i*j
     j=j+1
  Loop Until j>9
    i=i+1
 Loop Until i>9

End Sub

計算結果は次のようになります。