在线运行代码 - 菜鸟教程

<!DOCTYPE html>
<html>
<body>

<script type="text/vbscript">
Dim cars(2)
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"

For Each x In cars
  document.write(x & "<br>")
Next
</script>

</body>
</html>

源代码

动行结果