VB.NET Maxプロシージャーを使わず、新しくプロシージャを作成してやる方法。

Question

以下の文を変更して、
Maxプロシージャを使わずに新しくプロシージャを作って作成したいのですが、
どのようにしたらよろしいですか?

Module Module1

Sub Main()
    Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}

Dim max = data(0)

    For i As Integer = 0 To data.Length - 1

        If data(i) > max Then
            max = data(i)
        End If

    Next
    Console.WriteLine("最大値は" + CStr(max) + "です")

    Console.ReadLine()
   
End Sub

End Module

Comments

[ttyp03]

プロシージャの作り方がわからないのでしょうか？最大値の求め方がわからないのでしょうか？
プロシージャの作り方はさんざん質問しているようなので、当然後者と思いますが念のため。

[fffu8]

プロシージャの作り方がわからないです。

[workaholist]

「vb.net プロシージャ 作り方」をgoogleで検索してみてください。

Answer 1

プロシージャの作り方がわからないとのことで、こちらを参照してください。
https://teratail.com/questions/246383

ある程度基礎を身に着けて自分なりに作ってみたらコードを提示してください。
その過程で自力で作ることができたなら、この質問は自己解決させてしまって構いません。
よろしくお願いします。

Comments

[fffu8]

Module Module1

Sub Main()

Total()

End Sub
Private Sub Total()

Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}

Dim max = data(0)

For i As Integer = 0 To data.Length - 1

If data(i) > max Then
max = data(i)
End If

Next
Console.WriteLine("最大値は" + CStr(max) + "です")

Console.ReadLine()

End Sub
End Module

[ttyp03]

ん？Mainの中身をTotalに置き換えただけでは？
やりたいことはInteger.Maxのようなプロシージャを作りたいのでしょう？
まずはSubではなくFunctionに置き換えて、Mainは次のような形になることを目標にしてみてください。

Sub Main()
Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}
Console.WriteLine("最大値は" + CStr(Total(data)) + "です")
Console.ReadLine()
End Sub

[fffu8]

Private Sub Total (Byval number As Integer )
Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}

Dim max As Integer = o

for i As Integer = 0 To data.Length -1
if data(i) > max than
max = data(i)

end if
next

[fffu8]

Private Sub Total()の中の書き方がわかりません。

[ttyp03]

なんでTotalのなかにdata持っちゃってるの。。。
あとSubじゃなくてFunctionにしましょうって書きました（Subは戻り値がないプロシージャ、Functionは戻り値があるプロシージャ）
でも惜しいところまでは行ってます。

[fffu8]

Module Module1

Sub Main()

Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}

Console.WriteLine("最大値は" + CStr(Total(data)) + "です")

Console.ReadLine()

End Sub

Private Function Total(ByVal number As Integer)

For i As Integer = 0 To data.Length - 1

If data(i) > max Then
max = data(i)
End If

Return max

Next

End Function

End Module

[ttyp03]

コードだけ見せられても。。。
出来たんですか？問題あるんですか？

[fffu8]

dataの所でエラーが発生してます。これ以上よくわかりません。

[ttyp03]

dataってたくさんあるけどどこのdataですか？
質問の仕方ももう少し学んでください。人に伝わるように。

まあだいたいわかるので回答します。
以下の見直しを。

・引数ではnumberとして受け取っているのに、Total内ではdataを使っている。
・引数はnumberはnumber()としてください（Mainで定義しているのは配列ですよね？）
・プロシージャの戻り値の型を指定する。Function行の末尾に As Integer を付加する。
・Returnの位置がおかしい。

[fffu8]

Module Module1

Sub Main()

Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}

Console.WriteLine("最大値は" + CStr(Total(data)) + "です")

Console.ReadLine()

End Sub

Private Function Total(ByVal number As Integer()) As Integer
Dim max As Integer = 0

For i As Integer = 0 To number.Length - 1

If number(i) > max Then
max = number(i)

End If

Next
Return max

End Function

End Module

[ttyp03]

まだdata使ってる。