プログラムの文章
Private Sub CommandButton1_Click()
Cells(6, 1) = "１から１０までの和"
Cells(7, 1) = f(10)
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function f(a As Byte)
If a - 1 >= 0 Then f = a + f(a - 1) Else f = 0
End Function
実行結果
皆さんの頭の中は、？だらけですよね。
大丈夫ですよ。
次話以降詳しく説明していきます。
？の解消は、次話までお待ちいただき、
このマクロを一般化して、
B5に数字を入れて実行ボタンを押すと、
と答えが出るマクロに変更してください。
解答例は30行下。
解答例
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(5, 2)
Cells(6, 1) = f(a)
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function f(a As Integer)
If a - 1 >= 0 Then f = a + f(a - 1) Else f = a
End Function
第１話へ 第３話へ
vc++講義へ
