7,762
社区成员
发帖
与我相关
我的任务
分享这样的应该怎么写
_ _ _ 1 _ _ _
_ _ 2 1 2 _ _
_ 3 2 1 2 3 _
..
..
下划线代表空格
这个算法应是怎样的
谢谢
_ _ 2 1 2 _ _
_ 3 2 1 2 3 _
..
..
下划线代表空格
这个算法应是怎样的
谢谢
...全文
请发表友善的回复…
发表回复
sss2002 2006-09-23
- 打赏
- 举报
Count 是数量，比如你要显示到 5 就写5 ，要显示多少就设置多少
sss2002 2006-09-23
- 打赏
- 举报
Dim str As String
Dim i As Long
Dim Count As Long
Count = 9
For i = 1 To Count
str = Replace(str, "_", "") & CStr(i) & String(Count - i, "_")
Text1.SelText = StrReverse(str) & Mid(str, 2, Len(str) - 1) & vbCrLf
Next
Dim i As Long
Dim Count As Long
Count = 9
For i = 1 To Count
str = Replace(str, "_", "") & CStr(i) & String(Count - i, "_")
Text1.SelText = StrReverse(str) & Mid(str, 2, Len(str) - 1) & vbCrLf
Next
