Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba visualbasic-数组_Vba_Visual Studio - Fatal编程技术网

Vba visualbasic-数组

Vba visualbasic-数组,vba,visual-studio,Vba,Visual Studio,假设我有一个这样的变量列表,范围从x0到x1: x0 = 0.0 x1 = 1.0 x2 = 3 x3 = 9 x4 = 18 x5 = 20 x6 = 30 我正在编写代码的软件包中有一个函数,它在给定坐标上选择一个点(实际函数并不重要) 调用视图。选择圆圈(x、y、z、“设置”、“点”) 我想做的是写一个循环函数,它对我所有的x0-x1值运行这个函数。我已经试过了,但是没有成功 For i = 1 To 6 call view.selectCircle("x" & i, 0.0,

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

x0 = 0.0
x1 = 1.0
x2 = 3
x3 = 9
x4 = 18
x5 = 20
x6 = 30
我正在编写代码的软件包中有一个函数,它在给定坐标上选择一个点(实际函数并不重要)

调用视图。选择圆圈(x、y、z、“设置”、“点”)

我想做的是写一个循环函数,它对我所有的x0-x1值运行这个函数。我已经试过了,但是没有成功

For i = 1 To 6

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

Next 
抱歉,如果这是一个非常基本的问题,因为我对编程非常陌生


感谢您的帮助。

您当前没有数组,您有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


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

是的,您需要一个数组。你知道如何申报和填写吗?你可能不是在使用
VBA
,而是在使用
VB.NET
。如果是这样,请删除标签
VBA
并添加标签
VB.NET
,这样您就可以得到更多相关的答案。谢谢,这非常有帮助。看来我还有很多东西要学@渐强没问题-我建议你去看一看,了解更多信息。另外,如果OP解决了您的问题,请不要忘记将其标记为答案(左边的绿色勾号)。请注意,如果OP使用的是VB.NET,则使用
。Length
LBound
UBound
@Comintern更可取。很好,没有看到
visual studio
标记,这可能表明它不是VBA。我刚从一个VBA提要中得到了这个问题……FWIW,如果导入了
Microsoft.VisualBasic
名称空间,它应该在.NET中工作。
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