下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int( [14] )
If [15] Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub

视网膜中央动脉阻塞( )

A．闪光ERG检查9波正常，b波下降
B．闪光ERG检查a波下降，b波正常
C．闪光ERG检查a波b波均下降
D．闪光ERG检查Ops波下降
E．闪光ERG检查视锥细胞反应异常，视杆细胞反应正常