str 1=“go it for！”

str 2=Mid(str 1， s， t-s+1)

len 1=Len(str 1) ：len 2=Len(str 2)

c=c Mod len 2

For i=1To c

  str 2=Mid(str 2， len 2， 1) +Mid(str 2， 1， len 2-1)

Next i

str 1=Mid(str 1，1，s-1) +str 2+Mid(str 1，t+1，len 1-t)

Private Sub Command1_Click()

Dim a( 1 To 6) As Integer， i As Integer

For i= 1 To 6 

  a(i) =Int(Rnd*5) *2+ 1

Next i

For i=2 To 6 Step 2

    a(i) =cha(a(i-1) ， a(i) )

  Next i

End Sub

Function cha(x As Integer， y As Integer) As Integer

  Dim t As Integer

  If x<y Then

    t=x：x=y：y=t

    cha=y

  Else

  cha=x-1

  End If

EndFunction

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（  ）

Dim d(1 to 5) As Integer， i As Integer

For i= 1 To 8

  a(i) =Int(Rnd*10) + 1

Next i

For i=1 To 5 Step 2

  k=i

  For j=i+2 To 7 Step 2

    If a(j) <a(k) Or a(j) =a(k) And a(j+1) <a(k+1)

  Next j

  Then k=j

  If i<>k Then

    t=a(i)：a(i)=a(k)：a(k)=t

    t=a(i+1)：a(i+1)=a(k+1)：a(k+1)=t

  EndIf

Next i

运行该程序段后，数组a各元素的值可能为（  ）

下列说法正确的是（  ）

租车原则是首先考虑自带经费多的部分同学优先租相对花费少的自行车，尽量少花学校经费以达到最多同学租车的结果。比如学生带的钱为9，3，6，7，5，租车的钱分别需要15，8，12，6，9，11，如果5个人都能租车，至少需要学校提供经费为(6-3)+(8-5)+(9-6)+(11-7)+(12-9)=16，如果学校经费只有10元，则自带钱最少的同学不租车，这时所需学校经费为(6-5)+(8-6)+(9-7)+(11-9)=7。计算过程中采用二分查找法来判断租用自行车的人数能否达到最大值。