1. (2020·杭州模拟) 有如下程序段:

s=”ABCDEFGH”
i=1

Do While i<=Len(s)

  If i Mod 2=0 then  

    s=Mid(s, i+1, len(s)-i) & Mid(s, 1, i-1)

  End if

   i=i+1

Loop

Text1.text=s