下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As StringDim tempStr As String, strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i=Len(xStr) -3tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1)i=i+1LoopPat=tempStrEnd FunctionA．abcdefB．afbecdC．fedcbaD．defabc
下列程序的执行结果为
Private Sub Command1_Click()
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr=""
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
相关考题：
下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" 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 FunctionA.abcdefB.afbecdC.fedcbaD.defabc
下列程序执行后的结果为______。 public class exl2 { public static void main(string[] args) { int n=4; int x=0; do{ System.out.print(n); }while (x++＜n--); } }A．12B．432C．43D．4
假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的Select Case语句是 ( )A．Select Case X Case 10 To 1 Print“ABCDEF” End SelectB．Select Case X Case Is＞15，Is＜5 Print"ABCDEF" End SelectC．Selecl Case K Case Is＞5，1，3，To 10 Print"ABCDEF" End SelectD．Select Case X Case 1，3，Is＞5 Print"ABCDEF" End Select
下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As StringDim tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1)i=i+1LoopPat=tempStrEnd FunctionA．abcdefB．afbecdC．fedcbaD．defabc
有如下程序: include using namespace std; class TestClass { private: int x,y; pu 有如下程序： #include＜iostream＞ using namespace std; class TestClass { private: int x,y; public: TestClass (int i,int j) { x=i; y=j; } void print() { cout＜＜"print1"＜＜end1; } void print()const { cout＜＜"print2"＜＜end1; } }; int main() { const TestClass a(1,2); a.print(); return 0; } 该程序运行后的输出结果是( )。A．print1B．print2C．print1 print2D．程序编译时出错
下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" 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 FunctionA．abcdefB．afbecdC．fedcbaD．defabc
下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtionA．abcdefB．afbecdC．fedcbaD．defabc
下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim TempStr As String，strLen As Integer tempStr=”” 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 FunctionA．abcdefB．aPDecdC．fedcbaD．defabc
2、执行如下语句后，输出的结果为： x="abcdef" print（x[2:4])A．bcB．cdC．deD．ab