某工程内容及技术经济指标尚未全面确定，投标报价的依据尚不充分，而发包方因工期要求紧迫必须发包

下列程序段运行后消息框的输出结果为______。

s＝"Access"

Dim Str As String

For i＝1 To Len(s)

str＝UCase(Mid(S,i,1) ) +str

Next I

MsgBox str

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

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

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

A．abcdef

B．abc

C．adef

D．def

A．abcdef

B．adef

C．abc

D．def

运行下面程序，其输出结果(str2的值)为【 】。

Dim str l，str2 As String

Dim I As Integer

str l= “abcdef”

For l To Len (strl) Step2

str2=UCase (Mid (strl，I ,1))十str2

Next

MsgBoxstr2

运行以下程序，输出结果为（）。t=((1,2),[3,4],[5,6],(7,8),(9)) s=0 for i in t: if str(type(i))=="": s+=max(i) print(s)

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

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