如图,风管直径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

微信扫码获取答案解析
下载APP查看答案解析