用FOR语句怎样实现

官後　发表于：2013-05-22 11:19:48 　

求懂的指教一下，这是我编写的代码，求更简单的

Private Sub Command1_Click()
Dim j, x, s
s = ""
For j = -3 To 3
s = s + Space(Abs(j))
If j < 1 Then
For x = -(3 + j) To 3 + j
s = s + Chr(68 - Abs(j) - Abs(x))
Next x
Else
For x = -(3 - j) To 3 - j
s = s + Chr(68 - Abs(j) - Abs(x))
Next x
End If
s = s + Chr(13)
Next j
MsgBox s
End Sub

Top

西出阳关无故人发表于：2013-05-22 13:29:49

没有找到更简单的，做成了函数，方便使用和移植：

Private Sub Command1_Click()
Dim a
a = "123456789O"
MsgBox PL(a)
End Sub
Function PL(ByVal Str As String) As String
Dim s, m, SM, K
Dim j, i
For j = -1 * Len(Str) + 1 To Len(Str) - 1
    m = ""
    K = ""
    s = Mid(Str, 1, -Abs(j) + Len(Str))
    For i = Len(Str) - Abs(j) - 1 To 1 Step -1
      m = m & Mid(Str, i, 1)
    Next i
    For L = 1 To Abs(j)
      K = K & " "
    Next L
    SM = SM & Chr(13) & K & s & m
Next j
PL = SM
End Function

Top

官後发表于：2013-05-22 16:49:03

左边没有预期那种效果。麻烦了

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

用FOR语句怎样实现