Dim c As String, s1 As String
s=Text1.Text
sl=″″
For i=1 To Len(s)
c= Mid(s, i, 1)
If c >="A"And c <="Z" Then c =Chr((Asc(c)-Asc("A")) Mod 10 +Asc("0"))
Ifc>="4"And c<="9" Then c=Chr(Asc(c)-Asc("4")+Asc("a")+1)
s1=c+s1
Next i
Text2.Text=s1
在文本框Text1中输入“ELQ278yza”,执行上述程序后,文本框Text2中输出( )
A.b1d2efyza | B.4162efyza | C.azyfe2d1b | D.azyfe2614 |

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

