第３講　Ｆｏｒ文の学習

第１話　Ｆｏｒ文とは？
さて、前回作った成績一覧表を改良して、
５教科生徒数４０人にしたものが、ダウンロード用ファイル成績一覧表拡大版です。
データ数は、２人×３教科＝６から４０人×５教科＝２００と一気に増えました。
今回はまさか、
Private Sub CommandButton1_Click()
　　Dim w As Integer
　　
　　'出席番号１の生徒の合計と平均の計算
　　w = 0
　　w = w + Cells(7, 2)
　　w = w + Cells(7, 3)
　　w = w + Cells(7, 4)
　　w = w + Cells(7, 4)
　　w = w + Cells(7, 5)
　　Cells(7, 5) = w
　　Cells(7, 6) = w / 5
　　　　　　　・
　　　　　　　・
　　　　　　　・
を繰り返すわけにはいきません。各生徒の合計だけで、４０回も同じ事を繰り返すことになるからです。
繰り返すことは、人間がやるべき事ではなく、コンピュータにやらせるべきです。
コンピュータは、命令されれば何時間でも何日間でも何の不平不満も言わず、同じような繰り返しを永遠と繰り返してくれます。
同じ処理を繰り返すことを、繰り返し処理（あるいはループ処理）といいますが、その代表的な繰り返し処理がFor文です。

今回は、繰り返し処理を使いダウンロード用ファイル成績一覧表拡大版を完成させます。
コードを見ていただければお分かりになるように、今回も実行コードは内容が空にしてあるからです。
Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton2_Click()

　　Range("B47:H48").Select
　　Selection.ClearContents
　　Range("G7:H46").Select
　　Selection.ClearContents
　　Cells(1, 1).Select

End Sub

消去コードについて説明しておきましょう。
　　Range("B47:H48").Select
　　Selection.ClearContents
この２行では、
の赤い囲いのデータをクリアし、
　　Range("G7:H46").Select
　　Selection.ClearContents
では、
〜
　
の赤い囲いのデータをクリアしています。

ただし、成績一覧表拡大版を完成させるのは第３講の最後の方です。
ですから『成績一覧表拡大版』のファイル名で保存しておいてください。

１から与えられた数までの和を開いてください。
これも実行のコードは空欄になっています。
ここでは何をしようとしているかと申しますと、
キーボーからG2に適当な整数を入力して、
実行ボタンを押すと１からG2までの和がE5に出力されるようなプログラムを作ろうとしています。
ですから、G2から値を取得するために
Private Sub CommandButton1_Click()

　　Dim n As Integer, w As Integer
　　w = 0
　　n = Cells(2, 7)

End Sub
は必要です。

For文でこの和を求めるプログラムを作る前に、
１から１０までの和
つまり、１＋２＋３４＋５＋６＋７＋８＋９＋１０
を計算するプログラムを考えてみてください。

Private Sub CommandButton1_Click()

　　Dim w As Integer
　　w = 0


End Sub




第２講第７話へ　第２話へ

vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る