搜索
Dim s As String, c As String
Dim i As Integer, n As Integer, p As Integer
s = Text1.Text
n = Len(s)
p = 1
For i = 1 To n
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
t = c + t
Else
t = Mid(t, 1, p - 1) + c + Mid(t, p, Len(t) - p + 1)
p = p + 1
End If
Next i
Text2.Text = t
如果文本框Text1中输入“ABCD@1234”，则文本框Text2中输出（ ）
| A．ABCD@1234 | B．@1234ABCD | C．@1234DCBA | D．1234@ABCD |
同类型试题
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
