VB.NET 最小値をだしたい。

Question

data配列のインデックスの最小値をだしたのですが、実行すると0が返ってきてうまくだすことができません。
よろしくお願い致します。

実行結果
最小値は1です。

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}

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

    Console.ReadLine()

End Sub

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

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

        If number(i) < min Then
            min = number(i)

        End If

    Next
    Return min

End Function

End Module

Comments

[Zuishin]

min の初期値が 0 だからです。

[fffu8]

０をどうかえればいいですか？

[Zuishin]

本気で聞いていますか？

[fffu8]

Dim min As Integer = 0をどのように変えたらいいかわかりません。

[Zuishin]

0 未満の数値がデータの中に無いので、比較対象が 0 であればそれが最小になるとは思いませんか？

[fffu8]

ありがとうございます。

Answer 1

• minの初期値が0なので、その後dataの中のいかなる値と比較してもminのほうが小さく、dataの最小値は取れません。minには初期値を入れず

Dim min As Integer
とだけすればOKです。

• For文に入った時点ではminは初期化されておらず、比較ができません。最初のループでは、比較せず代入だけ行いたいです。なので、For文の冒頭に

If i = 0
    min = number(i)
　　Continue For
End If

とでも入れてください。

Comments

[workaholist]

Dim min As Integer
と
Dim min As Integer = 0
は同じですよね？
Integerの初期値は0なので。

[takeaship]

その通りですね。指摘ありがとうございます。
Integerはnull非許容型でしたね。

Answer 2

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

の部分でminに先に0を入れているから０より小さい数字が無いために0になります。

0ではなく100位の数字を入れましょう。

今後参考にされるために追加。
他の回答者様の回答で修正

１．既にある値を用いて

Dim min As Integer
min = number(0)

２．変数の取りうる値を用いる

Dim min As Integer = Integer.MaxValue

プログラムの誤りをざっくり指摘のために100とか65535とか即値を使用してしまいました。反省。
お勧めは２番目が見た目にもすっきり。

Comments

[Zuishin]

100 でいいなら 2 でもいいはずです。

[MasahikoHirata]

２では２より小さい数を検索で仮に将来的に３が最小とかにはまたバグが。実際には最大数を指定するのが良いがざっと見て１００にしました。なので理想は16ビットとして65535がよいですが。

[YAmaGNZ]

最大値を設定するならMaxValueを設定すべきかと
https://docs.microsoft.com/ja-jp/dotnet/api/system.int32.maxvalue?view=netframework-4.8

[Zuishin]

101 が最小になったときにバグが。

[MasahikoHirata]

YAmagNZさん。そうですね。まあバグの原因の特定としてざっくりと回答しましたので。これも勉強。

[Zuishin]

このバグの原因は、「データの最小値より小さい可能性がある値を仮の最小値として定めた」ことです。それは 0 であろうが 100 であろうが 65535 であろうが変わりません。

むしろ 100 や 65535 という無意味で中途半端な値に定めることによって不具合が表面に現れにくくなり、バグが凶悪化します。