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

关于比热容，下列说法正确的是[ ]

A．物体吸收的热量越多，比热容越大

B．物体的温度越高，比热容越大

C．物质的比热容与它的质量、温度的变化、吸收或放出的热量的多少无关

D．由于水比干泥土的比热容大，所以内陆地区在一天之内气温的变化比沿海地区小