Aggregate 句でエラーになる (ID:148042)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim Test_Lst As New ArrayList({3.125, 1.9225, 4.855, 2.65, 4.25}) Dim av = Aggregate s In Test_Lst Select CDbl(s) Into Average() こんな感じです。SelectでCdblします。 あるいは Dim av2 = Aggregate s In ary.Cast(Of Double)() Into Average() Dim av3 = Aggregate s In ary.OfType(Of Double)() Into Average() のようにCastやOfTypeで型変換をする方法もあります。Castは全要素に対し無条件で型変換するので変換エラーが出る場合がありますが、OfTypeは変換可能な要素のみ抽出するので型変換エラーが出ません。