某混凝土工程，采用以直接费为计算基础的全费用综合单价计价，直接费为400元／m3， 间接费费率为13%，利润率为10%，综合计税系数为3．41‰施工过程中．设计单位提出了一项工程变更，业主认为该变更使混凝±分项工程量大幅增加，已超出了合同约定的幅度，须执行新的综合单价．经与承包商协商，间接费和利润调整系数分别定为0．9 和0．8．则该混凝土工程超出合同约定幅度部分的新的全费用综合单价为()．

下列程序运行后在立即窗口输出结果是()。 Private Sub Form_Click() x="a":y="b" z=1:u=2 Debug. Print x; y, z; u Debug. Print z; x, y; u End Sub

A．a b 1 2 1 ab 2

B．a b 1 2 1 a b 2

C．a b 1 2 1 a b 2

D．a b 1 2 1 a b 2

下列程序运行后的输出结果是

Function Fun(n)

x=n*n

Fun=x-11

End Function

Private Sub Command1_Click()

For k=1 To 2

y=Fun(k):Print y

Next

End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4

运行下列程序：

Private Sub Command1_Click()

Dim x As Integer, n As Integer

n = 0

Do

n = n + 2

x = x + n

Loop While n< 10

Debug.Print x

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是是()。

A.2

B.10

C.12

D.30

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

下列程序运行后的输出结果是

Function Fun(n)

X=n*n

Fun=x-11

End Function

Private Sub Command1_Click()

For k=1 To 2

y=Fun(k):Print y

Next

End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4

运行下列程序：

Private Sub form_Click()

x$ = "123": y$ = "abc"

n = Len(x)

For i = 1 To n

Print Mid(x$, n + 1 - i, 1) + Mid(y$, i, 1);

Next i

Print

End Sub

单击窗体后，则输出结果是()。

A.a1b2c3

B.a3b2c1

C.3a2b1c

D.1c2b3a

（33）有如下事件程序，运行该程序后输出结果是

Private Sub Command33_Click()

Dim x As Integer,y As Integer

x=1:y=0

Do Until y<=25

y=y+x*x

x=x+1

Loop

MsgBox "x="&x&",y="&y

End Sub

A）x=1,y=0

B） x=4,y=25

C）x=5,y=30

D）输出其他结果

Private Sub

Form_Click Dim X#, Y#

X = 5: Y = 6

Print X + Y = 11 End Sub

A. X+Y=11

B. 5+6=11

C. 11

D. True