配列変数名を a ，インデックス最大値を 5 とした整数型の配列変数の宣言は次のようになります．

Dim a(5) As Integer
            

この宣言によって，a(0) から a(5) の「６つの変数」が用意されます．最初のインデックスは０から始まることに注意しましょう．

また，インデックスの最小値を指定して宣言することも可能です．

Dim a(1 To 5) As Integer
            

このように宣言した場合は，a(1) から a(5) の「５つの変数」が用意されます．

配列変数にデータを代入する場合はFor文を使用すると便利です．例えば，データが C1 から C10 セルに入力されている場合に，それらを配列変数に代入するには以下のように書きます．

Dim a(1 To 10) As Integer
Dim i As Integer

For i = 1 To 10

  a(i) = Cells(i,3).Value

Next i
        

次のようなデータについて，平均点を求めるプログラムを作成する．この時，各学生の得点は同種のデータなので配列変数を使用する．

Sub heikin()

  '変数宣言
  Dim tokuten(1 To 12) As Integer '得点の配列変数
  Dim ave As Double '平均点
  Dim gokei As Integer  '合計点
  Dim i As Integer  '学生番号

  '得点入力
  For i = 1 To 12
    tokuten(i) = Cells(i+1,2).Value
  Next i

  合計点初期値
  gokei = 0

  '合計点計算
  For i = 1 To 12
    gokei = gokei + tokuten(i)
  Next i

  '平均点計算
  ave = gokei/12

  '結果表示
  Cells(14,2).Value = gokei
  Cells(15,2).Value = ave

End Sub
              

配列名を a ，第１インデックスの最大値を３，第２インデックスの最大値を４とした整数型の配列の宣言は，

Dim a(3,4) As Integer
        

この宣言で a(0,0) から a(3,4) まで \((3+1)\times(4+1) = 20\)個の変数が用意されます．

また，インデックスの最小値を指定することもできます．

Dim a(1 To 3, 2 To 5) As Integer
        

この宣言で，a(1,2) から a(3,4) まで \(3 \times 3 = 9\)個の変数が用意されます．

２次元配列変数にデータを代入する場合はFor文を２重に使用します．例えば，データが A1 から C10 セルに入力されている場合に，それらを配列変数に代入するには以下のように書きます．

Dim a(1 To 3, 1 To 10) As Integer
Dim i As Integer, j As Integer

For i = 1 To 3
  
  For j = 1 To 10

    a(i,j) = Cells(i,j).Value
    
  Next j

Next i
        

サブプロシージャを呼び出すときは次のように記述します．

呼び出し側：

Call サブプロシージャ名
          

サブルーチン側：

Sub サブプロシージャ名
          

サブプロシージャは「引数」を取ることができ，この引数を使用してメインプロシージャとの間で値をやり取することが可能になります．この場合の記述の仕方は次のようになります．

呼び出し側：こちらの引数を実引数と呼ぶ．

Call サブプロシージャ名(実引数１, 実引数２, …)
          

サブルーチン側：こちらの引数を仮引数と呼ぶ．引数名は実引数と異なってもよい．

Sub サブプロシージャ名(仮引数１ As データ型, 仮引数２ As データ型, …)
          

配列を引数とする場合は，仮引数の記述を次のようにする．

Sub サブプロシージャ名(仮引数１() As データ型, 仮引数２() As データ型, …)
          

身長と体重のからBMIを計算し結果を表示するプログラムを作ってみる．

Sub taikei()

  Dim shincho As Single, taiju As Single
  Dim bmi As Single

  shincho = Cells(2,1).Value
  taiju = Cells(2,2).Value

  Call bmi_keisan(shincho,taiju,bmi)

  Cells(2,3).Value = bmi

  If bmi < 18.5 Then
    Call yase
  ElseIf bmi < 25 Then
    Call futsu
  Else 
    Call futo
  End If

End Sub

Sub bmi_keisan(h As Single, w As Single, b As Single)
  b = w/(h/100)^2
End Sub 

Sub yase()
  Cells(2,4).Value = "低体重"
End Sub

Sub futsu()
  Cells(2,4).Value = "標準"
End Sub

Sub futo()
  Cells(2,4).Value = "肥満"
End Sub

データの様々な性質を調べる手法を「統計」という．具体的には様々な統計量を計算することによって成される．

最も基本的な統計量は「平均」であり，データ：\(x_i\quad i = 1, \cdots , n\)に対して次のように定義される． \[ \bar{x} = \frac{x_1 + x_2 + \cdots + x_n}{n} = \frac{1}{n}\sum_{i=1}^{n}x_i \] 各データの平均からのずれを「偏差」，偏差の2乗の平均が「分散：\(\sigma^2\)」と呼ばれ，データ全体が平均からどのくらいの広がりを持っているのかを表す． \[ \sigma^2 = \frac{(x_1-\bar{x})^2 + (x_2 - \bar{x})^2 + \cdots + (x_n - \bar{x})^2}{n} = \frac{1}{n}\sum_{i=1}^{n}(x_i - \bar{x}) ^2 \] 通常は分散の平方根を取った「標準偏差：\(\sigma\)」がデータの広がりを表す指標となる． \[ \sigma = \sqrt{\frac{1}{n}\sum_{i=1}^{n}(x_i - \bar{x})^2} \]

ファンクションプロシージャを呼び出すときは次のように記述する．

呼び出し側：こちらの引数を実引数と呼ぶ．結果を受け取る変数はファンクションプロシージャのデータ型と合わせる

変数名 = ファンクションプロシージャ名(実引数名)
          

サブルーチン側：こちらの引数を仮引数と呼ぶ．引数名は実引数と異なってもよい．返す結果のデータ型は指定しておく

Function  ファンクションプロシージャ名(仮引数名 As データ型) As データ型

  プロシージャ名 = 計算式（仮引数名を用いて記述）

End Function
          

ユーザー定義関数：１変数関数

Sub kansu1()

  Dim x As Double, y As Double

    x = Rane("A1").Value

    y = func1(x)

    Range("B1").Value = y

End Sub

Function func1(z As Double) As Double

  func1 = z*Exp(-z^2)*Sin(3*z + 1)

End Function
        

複数の引数を持つファンクションプロシージャを定義することもできる．

呼び出し側：

変数名 = プロシージャ名(実引数１, 実引数２, …)
        

サブルーチン側：

Function プロシージャ名(仮引数１ As データ型, 仮引数２ As データ型, …) As データ型

  プロシージャ名 = 計算式（仮引数で記述）

End Function
        

ユーザー定義関数：２変数関数

Sub kansu2() 

  Dim x As Double, y As Double, z As Double

    x = Range("A1").Value
    y = Range("B1").Value

    z = func2(x,y)

    Range("C1").Value = z 

End Sub

Function func2(x1 As Double, x2 As Double) As Double

  func2 = ( (x1^2+x2^2)^2-6*(x1^2+x2^2)-3 )*Exp(-(x1^2+x2^2-1)/2)

End Function
          

植物は一定の割合で増殖し，その個体数と草食動物の数に比例した割合で減少する． 草食動物は，植物の数に比例した割合で増殖し，その個体数と肉食動物の数の両者に比例した割合で減少する． 肉食動物は，草食動物の数に比例した割合で増殖し，その個体数に比例した割合で減少する．

個体数の世代間変化は， \(x_n, y_n, z_n\)を\(n\)世代目の植物，草食動物，肉食動物の個体数とし，\(A_{ij}\)を各関係を表す係数として考えると以下のように表される．全てをかなり小さい値にしないとすぐ絶滅します．

自然増殖：\(A_{x}\) > 0，\(A_y = 0\) ，\(A_z = 0\)：勝手に増えるのは植物だけ．

次の世代における個体数は次のような式で決まる（係数が０の場合も書いてある）．ただし，個体数が負になった場合は０にする． \begin{align} x_{n+1} &= x_n + A_{x}x_n + A_{xx}x_n^2 + A_{xy}x_ny_n + A_{xz}x_nz_n\\ y_{n+1} &= y_n + A_{y}y_n + A_{yx}y_nx_n + A_{yy}y_n^2 + A_{yz}y_nz_n\\ z_{n+1} &= z_n + A_{z}z_n + A_{zx}z_nx_n + A_{zy}z_ny_n + A_{zz}z_n^2\\ \end{align} ヒント：Int(number) とすると数値 number の整数部分を取り出せる．