ｍｄｍ - プログラム倉庫

Private Sub Command1_Click()
Dim m As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
Dim q As Single
Dim qx As Single
Dim v(2 To 9, -1 To 1, -1 To 1, -1 To 1, -10 To 10) As Single
Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single
Dim b(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single
For m = 3 To 9
For n1 = -1 To 1
For n2 = -1 To 1
For n3 = -1 To 1
For q = -10 To 10
u1 = u(m, n1, n2, n3)
b1 = b(m, n1, n2, n3)
qx = q - b1
pp = 0
If qx < -10 Then pp = 1
If qx > 10 Then pp = 1
If pp = 1 Then qx = 0
vs = -999
For nx = -1 To 1
v1 = v(m - 1, nx, n1, n2, qx)
v1 = u1 + v1
If pp = 1 Then v1 = -999
If v1 > vs Then vs = v1
Next
v(m, n1, n2, n3, q) = vs
Next
Next
Next
Next
Next
End Sub