sc の宣言部がないので断言できませんが 
Rnd関数はSingle型を返すので sc はSingle型を 
格納できる型でなければいけません。 
sc の型が Single Double Object などに 
なっているか確認してみて下さい。 
 
あと、動作は問題ありませんが気になった点 
sc(i) = rnd * 1 
　　　　　　↑この * 1 は必要ないと思うのですが．．