Question

VB:第一个字母变成第26个字母,第i个变成第(26-i+1)个字母用vb编码怎么编？

Answer 1

For i = 1 To 25
Text1.Text = Text1.Text & Chr(90 - i)
Next i

Answer 2

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
i = Asc(Text1.Text)
j = 26 - i + 1 + 128
Print i, j
MsgBox (Chr(j))

End Sub