楼主: 江夏雁
1777 2

[问答] 关于数组和for 循环 [推广有奖]

  • 20关注
  • 2粉丝

朋友

教授

57%

还不是VIP/贵宾

-

威望
0
论坛币
565 个
通用积分
5.4453
学术水平
8 点
热心指数
9 点
信用等级
-4 点
经验
40942 点
帖子
843
精华
0
在线时间
613 小时
注册时间
2010-6-24
最后登录
2025-2-26

楼主
江夏雁 在职认证  发表于 2014-7-14 08:41:45 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
Sub xxxu0714()
Dim xui() As Integer
Dim i As Integer
xui = Array(1, 2, 4, 9, 9)
For i = 1 To 5

Debug.Print xui(i)
Next i
End Sub


我是在学习,自己写了一个代码,是想构建一个数组 1 2 4 9 9
并显示出来,但是发现报错,求解答

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:For Integer print debug array

回帖推荐

TimeT 发表于2楼  查看完整内容

改了一下,见下(第1行和第3行)有注解的部分,我试过,可以运行了: Option Base 1 'needed to ensure xui(5) exists Sub xxxu0714() Dim xui As Variant 'not Integer Dim i As Integer xui = Array(1, 2, 4, 9, 9) For i = 1 To 5 Debug.Print xui(i) Next i End Sub

本帖被以下文库推荐

若无人伴你 愿你成你自己的太阳

沙发
TimeT 发表于 2014-7-15 00:16:18
改了一下,见下(第1行和第3行)有注解的部分,我试过,可以运行了:

Option Base 1 'needed to ensure xui(5) exists
Sub xxxu0714()
Dim xui As Variant 'not Integer
Dim i As Integer
xui = Array(1, 2, 4, 9, 9)
For i = 1 To 5
Debug.Print xui(i)
Next i
End Sub
已有 1 人评分经验 论坛币 收起 理由
客初 + 20 + 20 热心帮助其他会员

总评分: 经验 + 20  论坛币 + 20   查看全部评分

藤椅
江夏雁 在职认证  发表于 2014-7-15 08:24:02
TimeT 发表于 2014-7-15 00:16
改了一下,见下(第1行和第3行)有注解的部分,我试过,可以运行了:

Option Base 1 'needed to ensure  ...
多谢回答!那为什么定义时不能是整型呢?

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

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-5 16:05