估算设备工(器)具购置费时，国产标准设备运杂费的构成包括（）。

运行下列程序：

Private Sub Form_Click()

Dim sum As Double, i As Integer

For i = 1 To 20

If i Mod 5 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.50

B.100

C.4

D.5050

运行下列程序：

Private Sub form_Click()

For i = 1 To 4

t = t * 10 + i

s = s + t

Next i

Print s

End Sub

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

A.1234

B.4321

C.1370

D.4444

运行下列程序：

Private Sub Form_Click()

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

Debug.Print "A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是()。

A.AAA*A**A***

B.AAA*A*A**A**

C.A*A*A*A*A*A*

D.A***

运行下列程序：

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

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

运行下列程序：

Private Sub form_Click()

For i = 1 To 2

x = 1

For j = 1 To 3

x = 5

For k = 1 To 4

x = x + 2

Next k

Next j

Next i

Print x

End Sub

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

A.5

B.13

C.25

D.48

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

下面程序运行后输出是

Private Sub Form_Click()

for i＝1 to 4

x＝1

for j＝1 to 3

x＝3

for k＝1 to 2

x＝x＋6

next k

next j

next i

print x

End Sub

A．7

B．15

C．157

D．538

运行下列程序，单击窗体后输出的结果是()。

Private Sub Form_Click()

Dim a

Dim s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

For i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

End Sub

A、 15

B、 48

C、 120

D、 720

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为()。