String だと「 ByRef引数の型が一致しません 」というエラーが出ます。なぜ？

ここで「Kaplan-Meyer 生存分析に便利なソフトを教えて」と質問した shuu_01 です。ここで VisualBasic のソースのありかを教えて頂き、自分に使いやすいようソースを書き換えようと奮闘中です（それまで VisualBasic の経験がなく 無謀！と実感中です）。

元々のソースはグラフが１本だけだったので、肺癌だと「腺癌」「扁平上皮癌」「小細胞癌」、、といろんな癌の種類別にグラフを数本 書くのが目標です。そこで、

Sub km_test()
Dim nc As Integer, gr() As String
nc = 2
ReDim gr(nc)
gr(0) = "腺癌"
gr(1) = "扁平上皮癌"
gr(2) = "小細胞癌"
km_group_test nc, gr
End Sub

Sub km_group_test(nc As Integer, gr As String)

End Sub

というソースを書くと：

String の変数 gr の色が変わり、「 ByRef引数の型が一致しません 」というエラーが出ます。
Integer の変数 nc ではエラーが出ません。
きちんと型を一致させているつもりなのに、なぜ？？？

No.2 ベストアンサー 回答者： fumufumu_2006 回答日時： 2008/02/23 20:27

関数の第２変数が文字列なのに、呼び出し側が文字列の配列を渡しているようです。

関数の呼び出し側を
km_group_test nc, gr(1)
とかにするか、関数を
Sub km_group_test(nc As Integer, gr() As String)
とかにしないと、型が違うと思います。

この回答へのお礼

fumufumu_2006 さん、ありがとう！！
「 ByRef引数の型が一致しません 」で検索するといろいろ出てきても僕に当てはまるのを探し出せないで、困り抜いていました。
エラーはスッときれいに消えました。ありがとうございました。

お礼日時：2008/02/23 20:51

No.1 回答者： okormazd 回答日時： 2008/02/23 20:21

gr()

配列

この回答へのお礼

okormazd さん、回答ありがとうございます。「１番、短い回答はこれか！」と、自分の仕事（医師として検査所見をレポートする）をサクサク片付けるための参考にしたいです。

お礼日時：2008/02/23 20:59