急~~~~~~在线等！！简单VB编程，将字符反向输出
答案:4 悬赏:10 手机版
解决时间 2021-03-23 15:12
- 提问者网友：贪了杯
- 2021-03-22 21:30
急~~~~~~在线等！！简单VB编程，将字符反向输出
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-03-22 21:53
Private Sub Command1_Click()
For i = 1 To Len(Text1)
s = s & Left(Right(Text1, i), 1)
Next
Text2 = s
End Sub
For i = 1 To Len(Text1)
s = s & Left(Right(Text1, i), 1)
Next
Text2 = s
End Sub
全部回答
- 1楼网友：蓝房子
- 2021-03-23 00:49
Private Sub Command1_Click()
Dim StrTmp As String
For i = 1 To Len(Text1.Text)
StrTmp = Right(Text1.Text, i)
Text2.Text = Text2.Text & Left(StrTmp, 1)
Next
End Sub
Dim StrTmp As String
For i = 1 To Len(Text1.Text)
StrTmp = Right(Text1.Text, i)
Text2.Text = Text2.Text & Left(StrTmp, 1)
Next
End Sub
- 2楼网友：佘樂
- 2021-03-23 00:08
Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Left(Right(Text1.Text, i), 1)
Next
End Sub
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & Left(Right(Text1.Text, i), 1)
Next
End Sub
- 3楼网友：狂恋
- 2021-03-22 23:00
Private Sub Command1_Click()
s=Text1
m=Len(s)
For i=1 To m
k=k & SubStr(S,m-i+1,1)
Next
Text2=k
End Sub
s=Text1
m=Len(s)
For i=1 To m
k=k & SubStr(S,m-i+1,1)
Next
Text2=k
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯