更多"执行下面的程序，消息框里显示的结果是 【13】 。 Private "的相关试题:
[填空题]执行下面的程序，消息框里显示的结果是 【13】 。
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
[填空题]执行下面的程序，消息框里显示的结果是_______。
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
[填空题]执行下面的程序，消息框的输出结果是 【15】 。
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
[单项选择]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。
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
[填空题]执行下面的程序，消息框的输出结果是 【15】 。
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
