第5講 For文(繰り返し処理)を理解しよう

第6話 2乗の和・3乗の和・4乗の和


前話問題解答例
Private Sub CommandButton1_Click()
  Dim w As Long, i As Long
  w = 0
  Dim a As Long, b As Long, c As Long
  a = Cells(6, 2)
  b = Cells(7, 2)
  c = Cells(8, 2)
  For i = a To b Step c
    w = w + i
  Next
  Cells(9, 1) = "のときの1乗の和"
  Cells(9, 2) = w
  w = 0
  For i = a To b Step c
    w = w + i * i
  Next
  Cells(10, 1) = "のときの2乗の和"
  Cells(10, 2) = w
  w = 0
  For i = a To b Step c
    w = w + i * i * i
  Next
  Cells(11, 1) = "のときの3乗の和"
  Cells(11, 2) = w
  w = 0
  For i = a To b Step c
    w = w + i * i * i * i
  Next
  Cells(12, 1) = "のときの4乗の和"
  Cells(12, 2) = w
End Sub
Private Sub CommandButton2_Click()
  Range("B6:B8").Select
  Selection.ClearContents
  Range("A9:B12").Select
  Selection.ClearContents
  Cells(1, 1).Select
End Sub
2007

では次の問題です。次のように改良しましょう。

これは
4×6×8×10
の計算結果です。
なら、
1×2×3×・・・×10を計算させています。
つまり、はじめの数から終わりの数まで与えれた幅で変化させながら、
かけていくように変更したいわけです。
ヒント w = 0 も修正します。



5話へ 第7話へ


トップ

初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
VB講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ