单项选择题

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

A.Dimr,s As Single
B.r=Val(Text1.Text)
C.s=3.14*r*r
D.label3.Caption=Str(s)