搜题请搜索小程序“爱下问搜题”
问题 单项选择题

下列各项工程建设标准的类别中，不是按标准内容分类的一项是（）。

A．设计类

B．勘察类

C．鉴定加固类

D．工程施工类

答案

参考答案：D

解析：

工程建设标准按标准内容分为设计类、勘察类、施工质量验收类、鉴定加固类和工程管理类。

单项选择题

网上银行是指采用因特网技术，以（）为基础的交易平台和服务渠道，在线为公众提供办理结算、信贷服务的商业银行或金融机构。

A、互联网

B、ABIS

C、办公资源网

D、经营信息网
查看答案
问答题

在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来(如下图所示)。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的“”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

[试题源程序]

1 Option Base 1

2 Private Function Average(a( )As Integer)As Single

3 Dim Start As Integer，Finish As Integer

4 Dim i As Integer

5 Dim Sum As Integer

6 ’Start=(a)

7 ’Finish=(a)

8 ’Sum=

9 For i=Start To Finish

10 ’Sum=Sum+

11 Next i

12 ’Average=

13 End Function

14

15 Private Sub Command1_Click( )

16 Dim arr1

17 Dim arr2(4)As Integer

18 arr1=Array(Val(Text1.Text)，Val(Text2Text)，Val(Text3.Text)，Val(Text4.Text))

19

20 For i=1 To 4

21 arr2(i)=CInt(arrl(i))

22 Next i

23 ’Aver=Average()

24 Print "平均值是："；Aver

25 End Sub
查看答案