如图,风管直径D=100mm,空气重度γ=12N/m3,在直径d=50mm的喉部装一细管与水池相接,高差H=150mm,当汞测压计中读数△h=25mm时,开始从水池中将水吸入管中,那么此时的空气流量为()。
A:0.180m3/s B:0.360m3/s C:1.80m3/s D:3.60m3/s
在窗体上先画一个名为Text1的文本框和一个名为Table1的标签,再画一个名为OP1的四个单选按钮的单选按钮数组,其Index属性按季度顺序为1-3(见图1),文件sales.txt中按月份顺序存有某企业某年12月份的销售额。要求在执行程序时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击第三季度显示的结果
请填空。
Dim sales(12)As Long
Private Sub Form_Load( )
Open¨sales.txt¨For Input As #
For k=1 To 12
Input # 1,sales(k)
Next k
Close #1
End Sub
Private Sub 【 】(Index As Integer)
Dim sum As Long,k As Integer,month As Integer
sum=0
month=Index * 【 】
For k=1 To 3
month=month 4-1
sum= sum+ sales(month)
Next k
Label1. Caption=Op1 (Index). 【 】 &"销售总额:"
Text1=sum
End Sub
OpA_Click,C,Caption