对于每个循环问题的模式

Question

我有一个场景，我试图用下面的图案建立一个循环。所以它通过循环，在最后打印出图案。我的问题是，当持有模式时，数组会抛出一个异常。

pattern
*
**
***
****
***
**
*"

我遇到了问题，因为数组无法容纳模式。否则我怎么能构建这个循环呢？

Sub Main()      
  pattern = Array("'","'*","'**","'***","'**","'*"")
  Dim patternstyle

  'iterating using For each loop. 
  For each item in pattern
    patternstyle = patternstyle&item&vbnewline
  Next

  msgbox patternstyle
End Sub

Answer 1

你收到的错误将是

Microsoft VBScript编译错误 未定名的字符串常量

这是因为这一行。

pattern = Array("'","'*","'**","'***","'**","'*"")

在最后一个数组元素中有一个未加尾号的字符串。

要解决这个问题，可以像这样删除后面的双引号。

pattern = Array("'","'*","'**","'***","'**","'*")

或者 加倍 所以字符串仍然是正确的结束，像这样。

pattern = Array("'","'*","'**","'***","'**","'*""")

輸出 (去掉尾部双引号后):

'
'*
'**
'***
'**
'*