这种情况是否可以实现

脚本小学弟 · 发表于 2021-5-16 14:53:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我目前定义了以下数组

dim a=(0,0,0,0)

dim a1=(1,2,3,4)
dim a2=(1,2,3,4)
dim a3=(1,2,3,4)
dim a4=(1,2,3,4)

数组a用来替换a1，a2, a3，a4

例如：a =a1

现在是否可是用一个循环，来依次将a2，a3，a4的值赋给a

例如：

dim i

for i =1 to 4

中间替换代码

next

这个中间替换代码怎么实现，我弄了好久也没弄明白，不晓得有没有朋友会写，或者理解了我的意思

三毛的爱 · 发表于 2021-5-17 06:36:13

a是一个数组,不是四维数组,你给他赋值的是四维这样写不可以的

三毛的爱 · 发表于 2021-5-17 06:36:43

你可以定义成四维,如 a(0,0,0,0)

hjp3798 · 发表于 2021-5-17 10:51:16

dim a=Array(0,0,0,0),a1=Array(1,2,3,4),a2=Array(2,4,6,8),a3=Array(3,6,9,12),a4=Array(4,8,12,16)
for i =1 to 4
Select Case i
Case 1
      a=a1
Case 2
      a=a2
Case 3
      a=a3
Case 4
      a=a4
End Select
For i = 0 To UBOUND(a)
      TracePrint a(i)
Next
next

		自动登录	找回密码
密码			立即注册

[求助] 这种情况是否可以实现

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。