假定有以下函数过程：　　Function Fun(S As String)　As String　　Dim sl As String　　　For i＝1 To Len(S)　　　　　s1＝UCase　(Mid(S，i，1))+s1　　　Next i　　　Fun＝s1　　End Function则Str2=Fun("abcdefg”)的输出结果为( )。

A．在“数据库”窗口中的对象选项下选择“页”，并单击该窗口工具栏中的“新建”按钮
B．在弹出的“新建数据访问页”对话框中选择“数据页向导”
C．选择创建数据访问页所需的来源表或查询
D．单击“确定”按钮，将会弹出“数据页向导”对话框

A．联合查询
B．传递查询
C．数据定义查询
D．子查询