对于模式的每个循环问题

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 compilation error: Unterminated string constant

这是因为这一行；

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

最后一个数组元素中有一个未终止的字符串。

要解决此问题，请像这样删除尾随双引号；

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

或escape it by doubling it所以字符串仍然正确终止，像这样；

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

输出（删除尾随双引号后）:

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

对于模式的每个循环问题

For each loop issue with pattern

vbscript