找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 3162|回复: 3

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

[复制链接]

15

主题

15

回帖

45

积分

小学生

鲜花
0
猫粮
119
发表于 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

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










楼主热帖
  • 打卡等级:无名新人

5

主题

45

回帖

55

积分

按键电脑&手机班学员

鲜花
0
猫粮
405
发表于 2021-5-17 06:36:13 | 显示全部楼层
a是一个数组,不是四维数组,你给他赋值的是四维 这样写不可以的
  • 打卡等级:无名新人

5

主题

45

回帖

55

积分

按键电脑&手机班学员

鲜花
0
猫粮
405
发表于 2021-5-17 06:36:43 | 显示全部楼层
你可以定义成四维,如 a(0,0,0,0)

5

主题

14

回帖

24

积分

学前班

鲜花
0
猫粮
174
发表于 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

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-12-23 13:51

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表