ListBoxから最小値と最大値を減算して範囲を見つけます。

Question

minからmaxを減算しているようには見えません。

コード：

Do While (rngNumbers < lstSize - 1) 
    rngNumbers += 1 
    If CBool(CDbl(lstAverage.Items(CInt(rngNumbers > max)))) Then 
     max = CInt(lstAverage.Items(rngNumbers)) 
    ElseIf CBool(CDbl(lstAverage.Items(CInt(rngNumbers < min)))) Then 
     min = CInt(lstAverage.Items(rngNumbers)) 
    End If 
Loop 
grdRange = max - min 
txtRange.Text = grdRange.ToString 

Answer 1

以外に非常に良いコードのように見えるが、私はこのことを考えていません。

If CDbl(lstAverage.Items(rngNumbers)) > max Then 

これは、次のとおりです。

If CBool(CDbl(lstAverage.Items(CInt(rngNumbers > max)))) Then 

は、このする必要がありますFor Eachループに適したシナリオ：

For Each num As Double In lstAverage.Items 
    If num > max Then 
     max = num 
    ElseIf num < min Then 
     min = num 
    End If 
Next 

あなたはDoubleまたはInteger値で作業しているかどうか私は知らないあなたの元のコードにCDblとCIntを使用しています。この例ではDoubleを使用しましたが、ListBoxにIntegersが含まれている場合はIntegerと同じになります。うまくいけば、それはどちらか一方を含み、Stringsではない。