填空题
程序如下:
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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下列程序运行后,在窗体上打印的结果是 【14】 。 Private Sub test(a, b,c) a = a + 1: b = b + 2:C = C + 3 End Sub Private Sub Command1 Click() x = 1:v = 2:z = 3 Call test(x,y + 3, (z)) Print Main: ;x;y;z End Sub
点击查看答案&解析
填空题
语句Static x(7,8)As Double定义了 【13】 个元素。
点击查看答案&解析
相关试题
编写如下通用过程: Sub proc(By Val ...