在Visual Basic中，求圆面积的程序设计界面及代码如下图，后弹出如图所示的出错信息提示，引起该错误的语句是（）

A.Dimr，s As Single
B.r=Val（Text1.Text）
C.s=3.14*r*r
D.label3.Caption=Str（s）