マクロ
を結果を報告しない社員が
自分に命令を繰り返すことによって実現するプログラム例
Dim w As Integer
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(5, 2)
w = 0
Call f(a)
Cells(6, 1) = w
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Sub f(a As Integer)
w = w + a
If a - 1 >= 0 Then f (a - 1)
End Sub
今回、グローバル変数wを用意しましたが、
グローバル変数を用いないで１からｎまでの和を求める
結果を報告しない社員が自分に命令を繰り返すことによって
求めることは可能でしょうか。
第７話へ 第９話へ
vc++講義へ
