欧盟输往中国的无木质包装的货物，须出具（）《无木质包装声明》。A．出口商B．进口商C．输出国、地区D．货

设有下列程序

Private Sub Form. Click（）

X=50

For i=1 T0 4

y=InputBox("请输入一个整数")

y=Val(v)

If y Mod 5=0 Then

a=a+y

x=y

Else

a=a+x

End If

Next i

Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（）。

A.100

B.50

C.120

D.70

以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 ：x=2 Print Iif(x＞=y，x，y) End Sub

A．0

B．1

C．2

D．3

（32 ）设有以下程序：

Private Sub Form_Click()

X=50

For i=1 To 4

Y=InputBox(“ 请输入一个整数 ” )

Y=Val(y)

If y Mod 5=0 Then

a=a+y

x=y

Else

a=a+x

End If

Next i

Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为

A ） 100

B ） 50

C ） 120

D ） 70

设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。

A．4 3 2 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

设有如下程序：

Private Sub Form. Click（）

Dim i As Integer，x As String，y As String

x="ABCDEFG"

For i=4 To 1Step-1

y=Mid(X，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是()。

A．1+1/2+2/3

B．1+1/2+1/3+1

C．1/2+2/3

D．1/2+1/3

设有如下程序：

Private Sub Form—Click()

Cls

a$=“ABCDFG”

For i=1 T0 6

Print Tab(12-i)；【 】

Nexti

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub