VBScript数组比较

Question

我的VBScript有问题。

我试图遍历一个数组来比较所有匹配的值。

我有一个像下面那样的tring数组。我想比较使用vbscript匹配的每个值。

tmp(0) = "12345"
tmp(1) = "12345"
tmp(2) = "12345"
tmp(3) = "12345"
tmp(4) = "12345"

如果我遍历数组，我将不得不两次这样做以比较vals。但是我如何处理第一个值。如果第一个值是错误的，那么它永远不会被拾取，因为两个数组都是相同的。我不知道如何解决这个问题。请有人劝告。

for x=0 to UBound(tmp)
  for each val in tmp
  if ( tmp(x) <> val)
    print (mismatch)
  End if
  Next
Next

Answer 1

不确定我是否正确理解了您的问题。您想检查数组的所有值是否相等？如果是这样的话，应该这样做：

elementsEqual = True

For i = 1 To UBound(tmp)
  If tmp(i) <> tmp(0) Then
    elementsEqual = False
    Exit For
  End If
Next

您不需要将每个元素与其他元素进行比较，以检查所有元素是否相等。如果并非所有元素都相等，那么其中一个元素将不等于第一个元素，因此您只需要一个循环。