通关单的有效期，一般商品为（）天，植物和植物产品为（）天，鲜活类货物为（）天。A．30、14、7B．30、21、14

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click () Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub程序运行后，单击命令按钮，其输出结果是______。

A．1234

B．12

C．34

D．4321

在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：

Option Base l

Private Sub Command1 Click（）

Dim a

a=Array(1，2，3，4)

j=1

For i=4 To 1 Step-1

s=s+a(i)*j

j=j*10

Next i

Print S

End Sub

程序运行后，单击命令按钮，其输出结果是（）。

A.4321

B.1234

C.34

D.12

（23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

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

j = 1

For i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

End Sub

程序运行后，单击命令按钮后，其输出结果是

A ） 4321

B ） 1234

C ） 34

D ） 12

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为

A．4321

B．12

C．34

D．1234

在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．89

B．99

C．23

D．77

（10）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim Arr

Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)

pos=0

neg=0

For k=1 To 10

If Arr(k)>0 Then

【10】

Else

【11】

End If

Next k

Print pos, neg

End Sub

以上程序的功能是，计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg，请填空。

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。

A．89

B．99

C．23

D．77

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

A． 123.45

B．12345.00

C．12345

D．00123.45