Sub hairetsu()
Dim pointT(4) As Integer
pointT(0) = 100
pointT(1) = 70
pointT(2) = 60
pointT(3) = 80
pointT(4) = 90
MsgBox pointT(0)
MsgBox pointT(1)
MsgBox pointT(2)
MsgBox pointT(3)
MsgBox pointT(4)
End Sub
Sub hairetsu2()
Dim pointT() As Variant
pointT = Array(100, 70, 60, 80, 90)
For i = 0 To 4
MsgBox pointT(i)
Next i
End Sub
Sub hairetsu3()
Dim pointT(2, 4) As Integer
pointT(0, 0) = 30
pointT(0, 2) = 20
pointT(2, 4) = 60
For i = 0 To 2
For k = 0 To 4
Cells(i + 1, k + 1) = pointT(i, k)
Next k
Next i
End Sub