[填空题] 程序如下： Private Sub Form_Click()Const PI=3.14159Dim r As Single，S As Single

[填空题] 程序如下：

Private Sub Form_Click()

Const PI=3.14159

Dim r As Single，S As Single

R=InputBox("请输入圆的半径"，"输入数据"，"50")

S = PI*r*r

Print "S="；Format(S，"###，###.##")

End Sub

程序运行后，单击窗体，将显示一个输入对话框，输入数据35，单击“确定”按钮后，输出结果为 【9】 。

S=3，848.45解析：[分析]： 本题用Format函数对数值进行格式化输出，要输出的数值存放在变量S中。 Format函数的第一个参数对变量S进行了四舍五入处理，保留两位小数，第3位小数四舍五入，其值为3 848.45。Format函数的第二个参数是格式说明符，使用的说明符有“#”和“，”，保留两位小数，该函数的返回值为3，848.45。