VB初心者友の会 - Q&A掲示板過去ログ

二次元配列の型の指定についてお聞きしたいことがあります。

Option Explicit

Private Sub Command1_Click()
Dim P(-2 To 7, -2 To 7), B(-2 To 7, -2 To 7), C(-2 To 7, -2 To 7), 
PHA(-2 To 7, -2 To 7), X, Y, K As Single

For X = 0 To 5
    For Y = 0 To 5
  
 P(X, Y) = Text(K).Text
      
Select Case Y
       Case 0
       K = X
       Case 1
       K = X + 6
       Case 2
       K = X + 12
       Case 3
       K = X + 18
       Case 4
       K = X + 24
       Case 5
       K = X + 30
       
End Select

  Next Y
Next X

For X = 0 To 5
    For Y = 0 To 5
    
Select Case Y
       Case 0
       K = X
       Case 1
       K = X + 6
       Case 2
       K = X + 12
       Case 3
       K = X + 18
       Case 4
       K = X + 24
       Case 5
       K = X + 30
       
End Select

 PHA(X, Y) = PHA(X, Y) + (P(X, Y - 1) + P(X - 1, Y) + P(X + 1, Y) 
　　　　　+ P(X, Y + 1) + B(X, Y) + C(X, Y - 1) - B(X - 1, Y) - C(X, Y)) / 4
        
Select Case X
       Case 0
       PHA(X, Y) = 0
       Case 5
       PHA(X, Y) = 0
                
End Select
  
Select Case Y
       Case 0
       PHA(X, Y) = 0
       Case 5
       PHA(X, Y) = 0
       
End Select
 
  
Text(K).Text = PHA(X, Y)
                   
    Next Y
Next X

End Sub
--------------------------------------

B(0, 0) からB(5, 5)、C(0, 0)からC(5, 5)の値は与えてあります。
テキストボックスが、６×６の３６個あって、
Dim P(-2 To 7, -2 To 7), B(-2 To 7, -2 To 7), C(-2 To 7, -2 To 7), 
PHA(-2 To 7, -2 To 7)では、配列に余裕を持たせてます。

まず、Text(K).Text　に入っている数値をP(X, Y)に入れて、
PHA(X, Y) = PHA(X, Y) + (P(X, Y - 1) + P(X - 1, Y) + ・・・・）/4
で計算させて、その値をまたText(K).Text　に戻して、これを何回も繰り返す
というものです。

このままだと

●PHA(X, Y) = PHA(X, Y) + (P(X, Y - 1) + P(X - 1, Y) + P(X + 1, Y) 
　　　　+ P(X, Y + 1) + B(X, Y) + C(X, Y - 1) - B(X - 1, Y) - C(X, Y)) / 4  
  
ここの部分で型が一致しないとのエラーがでます。
最初に指定しているつもりでいるのですが、この二次元配列の数値計算だと、他にどこかに
型を指定でもしないといけないのですか？
どなたかよろしくお願いします。