下列属于组织机构分类法特点的是（)。A．能保持全宗内文件在来源方面的联系，客观反映各组织机构工作

执行下面的程序，消息框里显示的结果是_______。

Private Sub Form_Click()

Dim Str As String

Str=""

S="Access"

Fori=Len(S)To 1 Step-l

Str=Str&Mid(S，i，1)

Next i

MsgBox Str

End Sub

执行下面的程序，消息框里显示的结果是()。

Private Sub Form_Click()

Dim Str As String,S As String,k As Integer

S=Str

For k=Len(Str) To 1 Step -1

S=S & (Mid(Str,k,1)

Next k

End Sub

执行下列的程序，消息框里显示的结果是______。

Pfivate Sub Form_Click()

Dim Str As String

Str＝""

S="Access"

For i＝Len(S) To 1 Step-1

Str＝Str&Mid(S.i,1)

Next I

MsgBox Str

End Sub

执行下面的程序，单击窗体后窗体消息框内显示结果是()。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB

A．ABCE

B．ABCD

C．ABDB

D．ABFB

执行下面的程序，消息框的输出结果是 【 】。

Option Basel

Private Sub Commandl Click()

Dim a(10)，P(3)As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End sub

执行下面的程序，消息框的输出结果是【 】。

Option Base1

Private Sub Command1_Click()

Dim a(10)，P(3)As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End sub

A.0

B.1

C.’’

D.False

执行下面的程序，消息框里显示的结果是（）。

A. abe

B. abccba

C. cbacba

D. abcabc

为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。

Private Sub Form_Click()

Dim k As Integer ,n As Integer ,m As Integer

n=10:m=1:k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End Sub

A．EeFF

B．eEfF

C．EEFF

D．eeFF