0403 - プログラム倉庫

Function seekpibot(target As Single, x, b)
Dim m As Single
Dim under As Single
Dim c(1 To 21) As Single
Dim px As Single
For m = 1 To 21
under = x(m, target)
c(m) = 999
If under > 0 Then c(m) = b(m) / under
Next
px = 999
minc = 999
For m = 1 To 21
If c(m) < minc Then px = m
If c(m) < minc Then minc = c(m)
Next
seekpibot = px
End Function

Function seektarget(x) As Single
Dim n As Single
Dim tx As Single
tx = 999
For n = 1 To 41
If x(0, n) > 0 Then tx = n
Next
seektarget = tx
End Function

Private Sub Command1_Click()
Dim m As Single
Dim n As Single
Dim x(0 To 21, 1 To 41) As Single
Dim b(0 To 21) As Single
Dim target As Single
For n = 1 To 10
x(0, n) = 11 - n
x(0, 10 + n) = 11 - n
Next
For m = 1 To 20
x(m, m) = 1
Next
For m = 1 To 20
x(m, m + 20) = 1
Next
For n = 1 To 20
x(21, n) = 1
Next
x(21, 41) = 1
b(0) = 0
For n = 1 To 20
b(n) = 1
Next
b(21) = 10
target = seektarget(x)
pibot = seekpibot(target, x, b)
Debug.Print pibot
End Sub