程序如下: Private Sub Form_Click() Const PI=14159 Dim r As Single,S As Single R=InputBox("请输入圆的半径","输入数据","50")

admin2009-02-13  82

问题 程序如下:
   Private Sub Form_Click()
      Const PI=14159
      Dim r As Single,S As Single
      R=InputBox("请输入圆的半径","输入数据","50")
      S = PI*r*r
      Print "S=";Format(S,"###,###.##")
   End Sub
   程序运行后,单击窗体,将显示一个输入对话框,输入数据35,单击“确定”按钮后,输出结果为【  】。

选项

答案S=3,848.45

解析 本题用Format函数对数值进行格式化输出,要输出的数值存放在变量S中。 Format函数的第一个参数对变量S进行了四舍五入处理,保留两位小数,第3位小数四舍五入,其值为3 848.45。Format函数的第二个参数是格式说明符,使用的说明符有“#”和“,”,保留两位小数,该函数的返回值为3,848.45。
转载请注明原文地址:https://jikaoti.com/ti/CHq0FFFM
0

最新回复(0)