急性心肌梗死的正确护理措施是 （）

A.绝对卧床休息

B.高蛋白高脂肪饮食

C.不必减少或停止探视

D.出现心前区疼痛可以不处理

E.预防压疮每2小时翻身一次

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
SubPR()
　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
Fnd Sub