填空题
程序如下:
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,则单击"确定"按钮后,输出结果为______。
【参考答案】
S=3,848.45
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
在窗体上画一个列表框,然后编写如下两个事件过程: Private Sub Form_Click( ) List1.RemoveItem 1 List1.RemoveItem 3 List1.RemoveItem 1 End Sub Private Sub Form_Load( ) List1.AddItem ItemA List1.AddItem ItemB List1.AddItem ItemC List1.AddItem ItemD List1.AddItem ItemE End Sub 运行上面的程序,然后单击窗体,列表框中所显示的项目为______。
点击查看答案
填空题
下列程序运行后,在窗体上打印的结果是______。 Private Sub test(a, b, c) a = a + 1: b = b + 2: c = c + 3 End Sub Private Sub Command1_Click( ) x = 1: y = 2: z = 3 Call test(x, y + 3, (z)) Print Main: ; x; y; z End Sub
点击查看答案
相关试题
编写如下通用过程: Sub proc(By Val ...
下列过程的功能是:用来计算并输出S = ...
计时器事件之间的间隔通过______属性...