visual basic 6.0を使用している初心者です．  
 
プログラムを実行したところ，エラー13「型が一致しません」  
 
という表示がでてプログラム中（一部）の  
 
sc(i) = rnd * 1  
 
を黄色で指摘されました．  
 
何かアドバイスがあればお願いします  
 
プログラムは次のような感じです（一部のみ掲載）  
 
 
Private Sub strboronoi(wd As Variant, hght As Variant)  
Picture1.Cls  
Randomize  
xa1 = 0  
ya1 = 0  
m = 0  
dtotal = 0  
ii = 0  
NNN = wd * hght  
 
For i = 0 To NNN  
'節点座標の設定  
ax(i) = (0.1 + rnd * 0.8 + i Mod wd) * Picture1.Width / wd  
ay(i) = (0.1 + rnd * 0.8 + (i - i Mod wd) / wd) * Picture1.Height / hght  
ad(i) = dis1(0, 0, ax(i), ay(i))  
Picture1.PSet (ax(i), ay(i)), vbBlack  
Next i  
 
 
'最下段について､各要素の乱数を決める｡  
For i = 0 To wd  
sc(i) = rnd * 1  
Next i  
 
 
'上で決めた乱数に対して、条件節を作り、奇数列についてき裂の発生の有無を判定する。  
'最下段の各要素について、各要素の乱数が、パーライト組成率0.27以下の場合、つまりき裂が発生しない要素の決定  
For i = 0 To wd  
If sc(i) < 0.27 Then  
crack(i) = 1  
For j = 1 To (hght / 2)  
crack(i + j * 2 * wd) = 1  
Next j  
End If  
Next i  
 
 
'２列目について各要素を決める  
For i = wd To (2 * wd - 1)  
sc(i) = rnd * 1  
Next i  
 
 
'上で決めた乱数に対して条件節を作り、奇数列についてき裂の有無を判定する。  
'２列目の各要素について  
For i = wd To (2 * wd - 1)  
If sc(i) < 0.27 Then  
crack(i) = 1  
For j = 1 To 11  
crack(i + j * 2 * wd) = 1  
Next j  
End If  
Next i