设半径r为双精度实数，先求圆的面积s，并对结果保留两位小数，对第三位小数四舍五入。为了实现这一目标，程序中划线处应填写的表达式是（   ）

Dim  r  As  Double,  s  As  Double

r=Val(text1.text)

s=                         

Text2.Text=Str(s)

A：Int ( 3.14 * r * r *10 + 0.5 ) / 10     

B：Int ( 3.14 * r * r * 100 + 0.5 ) / 100

C：Int ( 3.14 * r * r *1000+ 0.5 ) / 1000 

D：Int ( 3.14 * r *2 * 100 + 0.5 ) / 100