Visual Basic - 数组

时间:2017-03-23 14:03:57

标签: vba visual-studio

说我有一个像这样的变量列表,范围从x0到x1:

x0 = 0.0
x1 = 1.0
x2 = 3
x3 = 9
x4 = 18
x5 = 20
x6 = 30

软件包中有一个函数我正在编写代码,在给定的坐标上选择一个点(实际函数并不重要)。

调用view.selectCircle(x,y,z,“Set”,“Point”)

我想要做的是编写一个循环函数,它为x0-x1的所有值运行此函数。我试过这个,但未能让它发挥作用......

For i = 1 To 6

call view.selectCircle("x" & i, 0.0, 0.5, "Set", "Point")

Next 

很抱歉,如果这是一个非常基本的问题,因为我对编程很新!

感谢您的帮助。

1 个答案:

答案 0 :(得分:1)

您目前没有数组,您有7个单独的变量。如果你想要一个数组,你有两个选择:

x = Array(0.0, 1.0, 3, 9, 18, 20, 30)

For Each point In x
    Call view.selectCircle(point, 0.0, 0.5, "Set", "Point")
Next
Dim x(0 To 6) As Double

x(0) = 0.0
x(1) = 1.0
x(2) = 3
x(3) = 9
x(4) = 18
x(5) = 20
x(6) = 30

For i = LBound(x) To UBound(x)
    call view.selectCircle(x(i), 0.0, 0.5, "Set", "Point")
Next

请注意,不同类型的循环与数组类型无关,我只使用了两个示例来为您提供选项 - 就这些解决方案而言,它们是可互换的。