VB反序操作代码 例如输入1234 输出4321 有什么L = Len(Text1)的
答案:3 悬赏:20 手机版
解决时间 2021-11-19 01:52
- 提问者网友：聂風
- 2021-11-18 17:09
VB反序操作代码 例如输入1234 输出4321 有什么L = Len(Text1)的
最佳答案
- 五星知识达人网友：洒脱疯子
- 2021-11-18 18:34
Private Sub Command1_Click()
l = Len(Text1.Text)
For i = 1 To l
Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text
Next i
End Sub追问貌似运行不了，还是谢谢
l = Len(Text1.Text)
For i = 1 To l
Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text
Next i
End Sub追问貌似运行不了，还是谢谢
全部回答
- 1楼网友：举杯邀酒敬孤独
- 2021-11-18 19:02
+1
- 2楼网友：神鬼未生
- 2021-11-18 18:39
Private Sub Command1_Click()
Dim str As String
Dim iTextLen As Integer
Dim outStr As String
str = Text1.Text
iTextLen = Len(Text1.Text)
If iTextLen < 1 Then Exit Sub
outStr = ""
Dim i As Integer
For i = iTextLen To 1 Step -1
outStr = outStr & Mid(str, i, 1)
Next i
Text1.Text = outStr
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯