代码如下:
Dim Str As String
Private Sub Form_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command1_Click()
Str = Text1
Text2 = StrReverse(Str)
End Sub
窗口:如下
先在窗体上画一个按钮(command1)和两个文本框(text1和text2)
然后给按钮写click事件代码:
private sub command1_click()
dim i as integer, a,b as string
a=text1.text
for i =1 to len(a)
b=mid(a,i,1)+b
next i
text2.text=b
end sub
学习要积极思考,这个问题很简单。