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

Pfivate Sub Form_Click()

D．im Str As String

Str＝""

S="Access"

F．or i＝Len(S) To 1 Step-1

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

Next I

MsgBox Str

E．nd Sub

[单选题]执行下面的程序，消息框里显示的结果是（ ）。A． abeB． abccbaC． cbacbaD． abcabc

[单选题]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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 SUBA．ABCEB．ABCDC．ABDBD．ABFB

[单选题]下面程序段执行后消息框的输出结果是（ ）。A． 1B． 12C． 123D． 1234

[单选题]下列程序运行时,消息框显示的内容是( )。Private Sub Command1_Click()MsgBox CStr(123 + 321)E．nd SubA． 444B． 123321C． 123+321D． 显示出错信息

[主观题]执行下面的程序，消息框的输出结果是______。optionBase1PrivateSubCommandl_Click()D．ima(10),P(3)AsIntegerK=5F．ori=1To10a(i)=iNextiF．ori=1To3p(i)=a(i*i)NextIF．ori=1To3k=k+p(i)*2NcxtiMsgBoxkE．ndsub

[单选题]下列程序的执行结果是( )。 Privaae Sub Form_Activate Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End SubA．1 0 0

[试题]下面程序段执行后消息框的输出结果是( )。a=12345D．ob=a Mod 10Loop While b＞=3MsgBox a

[单选题]下列程序执行的结果是______。 Private Sub Command1_Click() x=25 If x＞0 Then y=1 If x＞10 Then y=2 If x＞20 Then y=3 If x＞30 Then y=4 Print y End SubA．1B．2C．3D．4

[单选题]单击命令按钮时，下列程度段的执行结果为( )。 Pfivate Sub Command1_Click() Dima As Integer，b As Integer, c As Integer a=2:b=4:c=6 Call S1(a，B) Print "a="；a；"b="；b；"c="；c Call S2(a，B) Print "a="；a；"b="；b；"c="；c； End Sub Private Sub S1(x As Integer, y As Integer

[单选题]单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End SubA．23 47B．10 36C．22 44D．24 50