アドバイスありがとうございました！！ 
 
もうひとつお聞きしたいのですが、プログラム中の 
 
If sc(i) < 0.27 Then   
crack(i) = 1 
..... 
 
の部分で、sc(i) < 0.27にあてはまるとcrack(i) = 1となり、「さらにその部分を黒で塗りつぶす」というコードを加えたいのですが、どうすればいいでしょうか？？ 
 
アドバイスお願いします。