利用文本框text1输入数值，将其作为一个圆的半径，分别用文本框text2及文本框text3输出显示圆的周长、圆的面积。程序段如下，请将横线部分的程序补充完整。

Private Sub Command 1_Click（）

Dim r as single， c as single，

c=2*3．14*r

s=3．14*r*r

Text3 text=str(s)

End sub