单项选择题

下列程序的执行结果为（ ）。 　　Private Sub Command1_Click() 　　　　Dim s1 As String，s2 As String 　　　　S1；="abcdef" 　　　　Call Invert(s1，s2) 　　　　Print s2 　　End Sub 　　Private Sub Invert (ByVal xstr As String，ystr As String) 　　　　Dim tempstr As String 　　　　i=Len(xstr) 　　　　Do While i>=1 　　　　　tempstr=tempstr+Mid(xstr，i，1) 　　　　　i=i-1 　　　　Loop 　　　　ystr=tempstr 　　End Sub

A．0 0
B．1 1
C．0 2
D．1 2
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的执行结果为( )。Ptivate Sub Commandl_Click()Dim FirStr As StringFirStr= abcdef Print Pct (FirStr)End SubPrivate Function Pct(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，l) + Mid(xStr，strLen - i+i ，1)i=i + 1LoopPct=tempStrEnd FunCtion
A．abcdef
B．afbecd
C．fedcba
D．defabc
单项选择题
有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim op As Integerk=4：m=1op：PPC(k，m)：Print op；op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i+m+1m=i+a+bPPC=mEnd Function程序运行后，输出的结果为( )。
A．4 6
B．6 6
C．8 8
D．10 12
相关试题