要实现将题9图的界面里的用户输入的圆的半径数据（对象text1输入的值）读取并赋值给变量r，则，正确的代码是（   ）

  

A：  r = Text1

B：r = Val(Text1)

C：r= Val(Text1.Caption)

D：r = Val(Text1.Text)