関数とサンプル
【覚えておきたいループ文】
- 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マクロ入門講座 目次
