VB.NET 変数宣言

Question

以下の文には、Totalの変数宣言がありません。書き方を教えて頂けたらと思います。

Module Module1

Sub Main()

    '配列の宣言と初期化
    Dim array1 As Integer() = {3, 5, 2, 7, 8, 3, 9, 6}
    Dim array2 As Integer() = {12, 24, 63, 11, 29}
    Dim array3 As Integer() = {1251, 3567, 9399, 6241}


    '変数に情報を代入
    Dim total1 As Integer = Total(array1)
    Dim total2 As Integer = Total(array2)
    Dim total3 As Integer = Total(array3)

    '表示
    Console.WriteLine("arrayの合計は" + CStr(total1) + "です。")
    Console.WriteLine("arrayの合計は" + CStr(total2) + "です。")
    Console.WriteLine("arrayの合計は" + CStr(total3) + "です。")

    Console.ReadLine()

End Sub

'Total作成
Private Function Total(ByVal array As Integer()) As Integer


    For i As Integer = 0 To array.Length - 1
        'Totalにarray(i)を足す
        Total = Total + array(i)
    Next i

    Return Total

End Function

End Module

Answer 1

VBの場合、Functionの場合に値を返す為の変数が暗黙で関数名で定義されます。
今回の場合ですとTotalですね。

実際に下記のようなコードを書くと
「ローカル変数に、それを含む関数と同じ名前を指定することはできません。」
とエラーになりますが、分かりやすく記述するとすれば以下のような感じです。

Private Function Total(ByVal array As Integer()) As Integer
    Dim Total As Integer    'これが暗黙で宣言されるような感じです

    For i As Integer = 0 To array.Length - 1
        'Totalにarray(i)を足す
        Total = Total + array(i)
    Next i

    Return Total

End Function

ですので、今回提示されたコードはエラーも出ず、実行することが可能です。
ただ、上司ということは会社組織でしょうから、そちらで定められているコーディング規約というものがあるかと思いますのでそちらに反しているのかもしれません。
そうなのであるとすれば、Totalという変数名ではなく、別の名前で宣言して使用するといいでしょう。

Comments

[fffu8]

プロシージャと同じ名前で波線がでています。どうように直したらいいですか？

[fffu8]

すみません解決しました。

Answer 2

Private Function Total(ByVal array As Integer()) As Integer

で宣言されています。

Comments

[fffu8]

そうですよね。上司にTotalの変数宣言がないと言われ、どこをどのように修正したらいいのかわからなくて。

[fffu8]

どこか他追加しないといけない所はないですか？

[otn]

よくみると「Return Total」がありますね。
これは書かないか、
和を関数名に代入するのでなく、別途変数宣言した変数に和を入れて「return その変数」でしょうか。

[YAmaGNZ]

returnを省略する場合、現状のTotal関数ではTotalを初期化していないのでエラーとなります。省略する場合
Private Function Total(ByVal array As Integer()) As Integer
Total = 0

For i As Integer = 0 To array.Length - 1
'Totalにarray(i)を足す
Total = Total + array(i)
Next i

End Function
としないといけません。

[fffu8]

上司から、
Total見てもらうと変数の宣言がないのです。
VB.NETは昔のVBの影響を受けていて、プロシージャーの名前に代入するとReturnと同じになります。

どおゆうことですか？

[otn]

確かに初期化が漏れてますね。

[fffu8]

Dim Total As Integer = 0を入れるとプロシージャの名前と同じと言われました。どうなおせばいいですか？

[fffu8]

すみません解決しました。