哪位有置换算法函数?,这是有一个移位算法函数

hsg77 2003-01-24 01:52:24
'///移位算法
Public Function MoveChar(SData As String, IsbeforeDirection As Boolean, Movestep As Integer)
If IsbeforeDirection Then '前移Movestep步
For i = 1 To Movestep
SData = Right(SData, Len(SData) - 1) & Left(SData, 1)
Next i
Else '后移Movestep步
For i = 1 To Movestep
SData = Right(SData, 1) & Left(SData, Len(SData) - 1)
Next i
End If
MoveChar = SData
End Function
' MsgBox MoveChar("123456", True, 3) --->456123
' MsgBox MoveChar("happy new year", True, 3) --->py new yearhap
...全文
54 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
tutuaction 2003-01-24
  • 打赏
  • 举报
回复
or and

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧