s = "United by Emotion": s1 = "”
For i=1 To Len(s) Step 4
c = Mid(s, i,1)
If Asc(c) >= Asc("a") Then
c = Chr(Asc(c) - Asc("a") + Asc("A"))
s1=c+s1
End If
Next i
程序运行后,s1的值是( )
Dim a(1 To 6) As Integer, i As Integer
a(1) = Int(Rnd() * 5) + 95
For i=2 To 6
a(i)=a(i-1)-Int(Rnd()*5)
If i Mod2=0 Then a(i) = a(i) + a(i) Mod 2
Next i
程序运行后,a(1)-a(6)中可能的值是( )
'随机生成6个两位正整数,依次存入数组元素a(1)到a(6),代码略:
For i=1 To 2
For j =1 To 6-i
If a(j)\10+a(j)Mod10>.a(j+1)\10+a (j+1) Mod 10 Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
执行上述程序段后,下列选项中,a(1)到a(6)各元素值不可能的是( )