根据人民警察辞退办法，被辞退人员的枪支、警械、警用标志、工作证件和其他警用物品应由（)及时收回。A

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

Private Sub Commandl_Click()

Dim alt(1 To 10)

Fori＝1 To 10

arr(i) ＝I

Next i

For Each i In arr()

arr(i) ＝arr(i) *2+1

Next i

MsgBox arr(7)

End Sub

下面程序运行后，单击命令按钮，输出的结果是【 】 Private Sub Commandl_Click() Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl，str2 For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(A) str2 =YAG(B) Print"strl"；str1;"str2="；str2 End Sub Function YAG (a()As Integer) Dim T，i％ t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function

有如下程序： Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS() Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

A．1 1 * #

B．1 1 * #

C．1 1 * # 1 1 * # 1 2 * #

D．1 1 * # 1 1 * ## 1 2 * ##

下面程序段，运行后的结果是 Private Sub Commandl_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b() ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function

A．t=18

B．t=24

C．t=30

D．t=32

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

下面程序运行后，输出结果是()。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Prin

A．5101520

B．2468

C．出错

D．0000

下列程序输出的结果为【 】。

Private Sub Commandl_Click()

Dim a As Boolean

a = True

If a Then GoTo 11 Else GoTo 22

11:

Print "VB";

22:

Print "VC"

End Sub

（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6

下面程序执行时，在窗体上显示的是。

Private Sub Commandl_Click

Dim a(10)

For k=1 TO 10

a(k)=11-k

Next k

Printa(a(3)＼a(7)Mod a(5))

End Sub

A．3

B．5

C．7

D．9

下面程序的执行结果是

Private Sub Commandl_Click()

a=1O

For k=l To 5 Step一1

a=a--k

Next k

Print a；k

End Sub

A．一5 6

B．一5—5

C．10 0

D．10 1