[填空題] 程序如下：

Private Sub Form_Click()

Const PI=3.14159

Dim r As Single，S As Single

R=InputBox("請(qǐng)輸入圓的半徑"，"輸入數(shù)據(jù)"，"50")

S = PI*r*r

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

End Sub

程序運(yùn)行后，單擊窗體，將顯示一個(gè)輸入對(duì)話框，輸入數(shù)據(jù)35，單擊“確定”按鈕后，輸出結(jié)果為 【9】 。

S=3，848.45解析：[分析]： 本題用Format函數(shù)對(duì)數(shù)值進(jìn)行格式化輸出，要輸出的數(shù)值存放在變量S中。 Format函數(shù)的第一個(gè)參數(shù)對(duì)變量S進(jìn)行了四舍五入處理，保留兩位小數(shù)，第3位小數(shù)四舍五入，其值為3 848.45。Format函數(shù)的第二個(gè)參數(shù)是格式說(shuō)明符，使用的說(shuō)明符有“#”和“，”，保留兩位小數(shù)，該函數(shù)的返回值為3，848.45。