统计噪声级L10表示（）。A、取样时间内10%的时间超过的噪声级，相当于噪声平均峰值B、取样时间内90%的时间超过的噪声级，相当于噪声平均底值C、取样时间内90%的时间超过的噪声级，相当于噪声平均峰值D、取样时间内10%的时间超过的噪声级，相当于噪声平均底值

有以下程序：

int sub(int n) { return(n/10+n%10); }

main()

{ int x, y;

scanf("% d", &x);

y=sub(sub(sub(x)));

printf("% d\n", y);

}

若运行时输入：1234＜回车＞，程序的输出结果是【 】。

执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click( )

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

A.10

B.30

C.40

D.50

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=l TO 10

arr(i)=i

Next i

For Each i In arr()

art(i)=arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until y>j Or x<-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。

A.15

B.10

C.7

D.3

在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，A)LabeCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

设程序中有如下数组定义和过程调用语句：

Dim a(10) as integer

……

Call p(a)

如下过程定义中，正确的是

A)Private Sub p(a as integer)

B)Private Sub p(a() as integer)

C)Private Sub p(a(10) as integer)

D)Private Sub p(a(n) as integer)

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub

A．10

B．30

C．40

D．50

单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub

A．23 47

B．10 36

C．22 44

D．24 50

以下能够正确计算1+2+3+…+10的程序是

A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub

B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub

C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub

D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub