问题
单项选择题
按照《建筑工程建筑面积计算规范》的规定，屋面上部有围护结构的电梯机房，( )计算建筑面积。
A．一般不
B．按围护结构外围水平面积的一半
C．层高在2.20m及以上者应按全面积
D．按电梯机房净空面积
答案
参考答案：C
搜题请搜索小程序“爱下问搜题”
按照《建筑工程建筑面积计算规范》的规定，屋面上部有围护结构的电梯机房，( )计算建筑面积。
A．一般不
B．按围护结构外围水平面积的一半
C．层高在2.20m及以上者应按全面积
D．按电梯机房净空面积
参考答案：C
程序界面中，左右两个文本框分别用于存放随机产生的奖牌数以及生成的奖牌榜，名为Text1和Text2，上下两个按钮分别名为Command1和Command2。代码中使用的量主要有：一维数组 cntries，用于存储10个国家的名称，二维数组medals，其元素medals(i,0)和medals(i,1)分别用于存放第i个(i从0开始)国家的金、银牌数目。[Visual Basic代码]Dim cntries(10) As String, medals(10,2) As Integer’随机产生奖牌数Sub newMedals() …… ’为数组cntries和medals赋值End Sub’输出奖牌榜Sub printOut(txt As (1) ) Dim strResuh As String, i As Integer strResult=“国家”& Chr(9) &“金牌数”& Chr(9) &“银牌数”& vbCrLf For i=0 To 9 strResult = strResult & cntries(i) & Chr(9) & medals(i,0) & Chr(9) & medals(i,1) & vbCrLf Next txt.Text = strResultEnd Sub’交换两变量的值Sub exchange( (2) a As Variant, (2) b As Variant) Dim temp As Variant temp = a: a = b: b = tempEnd Sub’随机产生并输出奖牌数Private Sub Command1_Click() newMedals printOut Text1End Sub’生成并输出奖牌榜Private Sub Command2_Click() Dim i,j, k As Integer, temp As String For i = 0 To 9 ’按金牌数排序j = i ’找到自第i个位置起全部数据中金牌得数最多者，记其下标为jFor k = i + 1 To 9 If (3) Then j=kNextIf i ＜ ＞ j Then’若i，j不等，则交换对应位置的国家名、金银牌数目 exchange cntnes(i), entries(j) exchange medals(i, 0), medals(j, 0) exchange medals(i, 1), medals(j, 1)End If Next For i = 0 To 9’按银牌数进行二次排序j = iFor k = i + 1 To 9 If medals(k,0) ＜＞ medals(j, 0) Then (4) If (5) Then j = kNextIf i ＜ ＞ j Then exchange cntries(i), cntries(j) exchange medals(i, 1), medals(j, 1)End If Next printOut Text2End Sub