strLen=Len(xStr) Do While i<=Len (xStr)-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen-i+1, 1) Pat=tempStr End function A)abcdef C)fedcba D)defabc (24)下面关于多重窗体的叙述中,正确的是O A)作为启动对象的Main子过程只能放在窗体模块内 B)如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况 决定是否加载窗体或加载哪一个窗体 C)没有启动窗体程序不能执行 D)以上都不对 (25)在窗体上画一个名称为 Common Dialog的通用对话框,一个名称为 Commandl的命令按 钮要求单击命令按钮时打开一个保存文件的通用对话框该窗口的标题为"Save",缺省文件 名为 SaveFile",在"文件类型"栏中显示*txt则能够满足上述要求的程序是O A)Private Sub Command Click Commondialogl. FileName="Savefile Commondialogl. filter="All Files**I(*. txt)*. txtI(*. doc). *. doc Common Dialog. Filterindex=2 Common Dialogl DialOg title="Save Common Dialog. Action=2 End Sub B) Private Sub Comman CommonDialogl. fileName="Savefile" Common DiaLog Filter="All Files". *I(. txt)*. txt*.doc"" doc COmmon Dialog. FilterIndex1 CommonDialogl. Dialog Title="Save CommonDialogl.Action=2 End sub C)Private Sub Cmmandl Click Common Dialog FiLter="All Files**I(.txt)*.txt)(" doc)*. doc COmmon Dialogl Dialog Title="SaveFile Common Dialog. Action=2 End Sub D)Private Sub Commandl Click Common Dialogl. file Name="Save File"strLen=Len(xStr) i=1 Do While i<=Len(xStr) -3 tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End Function A) abcdef B) afbecd C) fedcba D) defabc (24)下面关于多重窗体的叙述中,正确的是() A)作为启动对象的 Main 子过程只能放在窗体模块内 B)如果启动对象是 Main 子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况 决定是否加载窗体或加载哪一个窗体 C)没有启动窗体,程序不能执行 D)以上都不对 (25)在窗体上画一个名称为 CommonDialogl 的通用对话框,一个名称为 Commandl 的命令按 钮.要求单击命令按钮时,打开一个保存文件的通用对话框.该窗口的标题为"Save",缺省文件 名为"SaveFile ",在"文件类型"栏中显示*.txt.则能够满足上述要求的程序是 () A) Private Sub Command_C1ick() Commondialogl.FileName="Savefile" Commondialogl.filter="All Files|*.*|(*.txt)|*.txt|(*.doc).|*.doc" CommonDialogl.Filterindex=2 CommonDialogl.Dial0g.title="Save" CommonDialogl.Action=2 End Sub B) Private Sub Commandl—Click() CommonDialogl.FileName="SaveFile" CommonDiaLogl.Filter="A11 Files|*.*|(*.txt)|*.txt|*.doc|*.doc" C0mmonDialogl.FilterIndex=1 CommonDialogl.DialogTitle="Save" CommonDialogl.Action=2 End Sub C) Private Sub Cmmandl_C1ick() COmmonDialogl.FileName="Save" CommonDialogl.FiLter="A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialogl.Filterindex=2 C0mmonDialogl.DialogTitle="SaveFile" CommonDialogl.Action=2 End Sub D) Private Sub Commandl_C1ick() CommonDialogl.FileName="SaveFile