问题描述:
高手帮忙看一下。。哪里不对。。。为什么显示不出Dim x$, y$, n!Private Sub Command1_Click()x = Text1.TextFor n = Len(x) To 1y = y & Mid(x, n, 1)Next nLabel1.Caption = yEnd Sub
问题解答:
开始加一句y = ""For n = Len(x) To 1 改为For n = Len(x) To 1 Step -1