A列に0~100の数を B列に2の累乗を表示します。
- 変数i(Iterator)では累乗の数をカウントします。
- 変数n(Number)を2倍にしていきます。
- 変数r(Row)は結果を書き込むセルの行番号を保持します。
Sub baibai_game Dim i, n, r n = 1 r = 2 range("A1") = "x" range("B1") = "y=2^x" For i = 0 To 100 cells(r,1) = i cells(r,2) = n n = n * 2 r = r + 1 Next i End sub
指数関数のカーブはほぼ絶壁ですね。