【LibreOfficeマクロ】ループ文


関数とサンプル

【覚えておきたいループ文】

  • For 初期値 To 終了値 [Step 増分値] Next
  • For Each 変数名 In 配列 Next
  • Do While 条件式 Loop
    Do While文を途中で抜けるときは、Exit Do

  • Do Loop 条件式
ソースコード
Sub Main

Dim i as integer
Dim r as integer
r = 0
Dim s as String
s = ""

'☆☆☆☆☆  通常For文  ☆☆☆☆☆
For i = 1 To 5
  r = r + i
Next
s = "For文の結果:" + r + Chr$(13) ‘ 1+2+3+4+5

'☆☆☆☆☆ 通常For文(Step) ☆☆☆☆☆
r = 0
For i = 1 To 5 Step 2 ‘値が2ずつ増加する
  r = r + i
Next i
s = s + "For文(Step2)の結果:" + r + Chr$(13) ‘1+3+5

'☆☆☆☆☆  ForEach文  ☆☆☆☆☆
Dim arr(3) ‘配列宣言
arr(0) = 10 : arr(1) = 20 :arr(2) = 30
r = 0

For Each i In arr() ‘ForEach文
  r = r + i
Next i
s = s + "ForEach文の結果:" + r + Chr$(13) ’10+20+30

'☆☆☆☆☆  DoWhile文  ☆☆☆☆☆
i = 1
r = 0
Do While i <= 5 'While文
  if i = 3 Then ‘iが3になったら抜ける
    Exit Do
  End If
  r = r + i
  i = i + 1
Loop
s = s + "While文の結果:" + r + Chr$(13) ‘1+2

'☆☆☆☆☆ DoLoopWhile文 ☆☆☆☆☆
i = 1
r = 0
Do
  r = r + i
  i = i + 1
Loop While i <= 5
s = s + "DoWhile文の結果:" + r ‘1+2+3+4+5

msgbox(s)

End Sub

実行結果

目次はこちら
>> LibreOfficeマクロ入門講座 目次

スポンサーリンク

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

Time limit is exhausted. Please reload CAPTCHA.