vb中将输入的字符串在窗体上按反向、垂直或斜向（45度）显示 最好详细点谢谢

Question

如题所述

Answer 1

Private Sub Command1_Click()
a = InputBox("")
Print StrReverse(a)
End Sub

Private Sub Command2_Click()
a = InputBox("")
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next
End Sub

Private Sub Command3_Click()
a = InputBox("")
For i = 1 To Len(a)
Print Space(i - 1) & Mid(a, i, 1)
Next
End Sub