VB用while循环实现输入字符串的逆序输出 如输入 ABCD 输出 DCBA（vb中如何编制时间和日期的代码）

试一下

Private Sub Command1_Click()

Dim s As String, n As Long

s = InputBox("输入字符串：", , "ABCDEFG")

Print s

n = Len(s)

While n > 0

Print Mid(s, n, 1);

n = n - 1

Wend

End Sub