男，45岁，饱餐后突发右上腹部刀割样疼痛4小时，伴恶心、呕吐。体温38.5℃，脉搏90次/分，呼吸22次/分，血压118/82mmHg，肝浊音界消失，全腹压痛、反跳痛，腹肌板样强直。

可明确病因的辅助检查是（）

A.B超检查

B.直肠指诊

C.立位腹平片

D.血常规检查

E.血清淀粉酶测定

下面程序的功能是产生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