变量参考 [英] Variable Reference

问题描述

尝试了几天!!我需要帮助：


有没有办法可以用另一个变量引用变量。


即：我有很多变量：var1 ，var2，var3等等

我想用一个循环来改变这些变量，对于这个例子来说，双b / b
他们的价值是

而不是写作

var1 = var1 * 2

var2 = var2 * 2

var3 = var3 * 2

var4 = var4 * 2

等等

如果我可以为数组中的每个a（var1，var2，var3等等）做以下

，那就太好了：a = a * 2：next


提前谢谢

After trying for days!! I need help:

Is there any way I can refer to a variable with another variable.

I.e.: I have many variables: var1 , var2 , var3 etc etc
I want to use a loop to change these variables, for this example double
their value
instead of writing
var1 = var1 * 2
var2 = var2 * 2
var3 = var3 * 2
var4 = var4 * 2
etc etc
be nice if I could do the following
for each a in array(var1,var2,var3 etc etc):a = a*2:next

Thanks in advance

推荐答案

怎么样...... 。


Dim lngVar为Long，lngLastVar为Long


lngVar = 1

''你需要把你最高变量的数量

lngLastVar = 56


直到lngVar> lngLastVar

''var1 = var1 * 2

var& lngVar = var& lngVar * 2

''增加var数

lngVar = lngVar + 1


循环

加里米勒

姐妹们，或者


HB < FR ***** @ telus.net>写在消息

新闻：Jkfob.86718

How about something like...

Dim lngVar as Long, lngLastVar as Long

lngVar = 1
'' You need to put the number of your highest variable here
lngLastVar = 56

Do until lngVar > lngLastVar
'' var1 = var1 * 2
var & lngVar = var & lngVar * 2
'' Increment the var number
lngVar = lngVar + 1

Loop

Gary Miller
Sisters, OR

"HB" <fr*****@telus.net> wrote in message
news:Jkfob.86718

EO3.31124@clgrps13 ...

EO3.31124@clgrps13...

经过几天的尝试!!我需要帮助：

有没有办法可以用另一个
变量来引用变量。
即：我有很多变量：var1，var2，var3等等的例子加倍了他们的值
而不是写作
var1 = var1 * 2
var2 = var2 * 2
var3 = var3 * 2
var4 = var4 * 2
等等如果我可以对数组中的每个a（var1，var2，var3等）执行以下操作，那就太好了等）：a = a * 2：next

提前致谢

After trying for days!! I need help:

Is there any way I can refer to a variable with another variable.
I.e.: I have many variables: var1 , var2 , var3 etc etc
I want to use a loop to change these variables, for this example double their value
instead of writing
var1 = var1 * 2
var2 = var2 * 2
var3 = var3 * 2
var4 = var4 * 2
etc etc
be nice if I could do the following
for each a in array(var1,var2,var3 etc etc):a = a*2:next

Thanks in advance

Private Sub ColInts（）

Dim var1 As Integer

Dim var2 As Integer

Dim var3 As Integer

Dim var4 As Integer

Dim colVar As New Collection

Dim a As Variant


var1 = 1

var2 = 1

var3 = 1

var4 = 1

colVar.Add var1，" var1"

colVar 。添加var2，var2

colVar.Add var3，&quo t; var3"

colVar.Add var4，" var4"


For each a in colVar

Debug.Print a

CalcVar a，2

Debug.Print a

下一个

结束子

Private Sub CalcVar（ByRef iVar As Variant，ByVal iMultiply As Integer）

iVar = iVar * iMultiply

End Sub


HB < FR ***** @ telus.net>在消息新闻中写道：Jkfob.86718

Private Sub ColInts()
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Integer
Dim var4 As Integer
Dim colVar As New Collection
Dim a As Variant

var1 = 1
var2 = 1
var3 = 1
var4 = 1

colVar.Add var1, "var1"
colVar.Add var2, "var2"
colVar.Add var3, "var3"
colVar.Add var4, "var4"

For Each a In colVar
Debug.Print a
CalcVar a, 2
Debug.Print a
Next a
End Sub
Private Sub CalcVar(ByRef iVar As Variant, ByVal iMultiply As Integer)
iVar = iVar * iMultiply
End Sub

"HB" <fr*****@telus.net> wrote in message news:Jkfob.86718

这篇关于变量参考的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！