s = "PYTHON"
t = "8421"
result = ""
For i = 1 To Len(t)
x = Val(Mid(t, i, 1))
y = (x - 1) Mod Len(s) + 1
result = result + Mid(s, y, 1)
Next i
Text1.Text = result
执行上述程序段后,文本框Text1中显示的是
微信扫码预览、分享更方便