>>2 
Dim sc As Variant 
↑sc を単独の入れ物として宣言しておきながら 
 
sc(i) = rnd * 1 
↑使用時にscのi番目の入れ物に rnd*1 を入れなさい 
 
としているため、エラー13「型が一致しません」と叱られます。 
 
最初に示されたコードを見ると動的配列ですので 
Dim sc() As Variant に変更すればOKです。 
使うときは ReDim で配列の大きさを設定して下さい。 
詳細はヘルプの動的配列に載っています。 
 
neptuneさんが示された型については、ここの講座でも詳しく書かれています。 
一度ご覧になると良いと思います。(私なら Dim sc() As Single と宣言します) 
 
第３６回　型の指定 
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard36.htm