プログラミング入門Ⅰ (No. 12) 宿題解答例
［４］掛け算を足し算の繰り返しで（前判断）
［問題］変数 M、N を入力して、M×N の答を足し算で求めるプログラム
 M を N 回繰り返して足す。つまり、M+M+・・・+M を計算する。
 答を入れる変数として S、足した回数を数えるカウンタ用変数として k を使う。
Do While 型
［フローチャート］
［プログラムコード］
はじめ
Private Sub CommandButton1_Click()
Dim M As Integer
Dim N As Integer
Dim S As Integer
Dim k As Integer
M 入力
N 入力
M = InputBox("M は いくつにする？")
N = InputBox("N は いくつにする？")
S=0
k=0
k＜N
No
S = 0
k = 0
Do While k < N
S = S + M
k = k + 1
Loop
Yes
S=S+M
k=k+1
MsgBox (S)
End Sub
S 出力
おわり
Do Until 型
［フローチャート］
［プログラムコード］
はじめ
Private Sub CommandButton1_Click()
Dim M As Integer
Dim N As Integer
Dim S As Integer
Dim k As Integer
M 入力
N 入力
M = InputBox("M は いくつにする？")
N = InputBox("N は いくつにする？")
S=0
k=0
k≧N
No
S=S+M
k=k+1
Yes
S = 0
k = 0
Do Until k >= N
S = S + M
k = k + 1
Loop
MsgBox (S)
End Sub
S 出力
おわり

Functionプロシージャの呼び出し

Subプロシージャの呼び出し(引数有)

中部支部講習会(PDF

九州支部講習会(PDF

中国支部講習会(PDF