求vb程序任意输入5个字母,逆向输出 ,输入窗口为text1,输出窗口为text2,程序编辑在command里

显示全部楼层 · 2010-12-20 16:42:05

并要求设置text2不可编辑

千问 · 2010-12-20 16:42:05

Private Sub Command1_Click()Dim i As IntegerText2.Text = ""For i = Len(Text1.Text) To 1 Step -1 Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)Next iEnd SubPrivate Sub Form_Load() Text2.Enabled = FalseEnd Sub

千问 · 2010-12-20 16:42:05

请等下哦。。。简单的代码就这点：Private Sub Command1_Click()
Dim strings As String
strings = Text1.Text
For i = Len(strings) To 1 Step -1
Text2.Text = Text2.Text & Mi

求vb程序 任意输入5个字母,逆向输出 ,输入窗口为text1,输出窗口为text2,程序编辑在command里

求vb程序任意输入5个字母,逆向输出 ,输入窗口为text1,输出窗口为text2,程序编辑在command里