【V入2期】数组入门练习三

小聪 · 发表于 2008-7-9 11:24

现在才做，希望不会太迟。[em01]

游客，如果您要查看本帖隐藏内容请回复

mfk1288 · 发表于 2008-7-9 13:02

交作业

游客，如果您要查看本帖隐藏内容请回复

沙漠绿洲1108 · 发表于 2008-7-9 15:05

游客，如果您要查看本帖隐藏内容请回复

簡單愛情 · 发表于 2008-7-11 14:27

游客，如果您要查看本帖隐藏内容请回复

飞龙在天 · 发表于 2008-7-11 18:42

游客，如果您要查看本帖隐藏内容请回复

zxb2008 · 发表于 2008-7-22 12:55

xue xi

fzzjw · 发表于 2008-7-22 13:38

看高手的答案。

hero6810001 · 发表于 2008-7-23 13:48

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-7-23 13:48:32编辑过]

阳光一片 · 发表于 2008-11-20 13:05

提示: 作者被禁止或删除内容自动屏蔽

ccsc006 · 发表于 2008-11-21 13:42

Sub 作业3() Dim i As Integer Dim arrnamearrname = Array("周一", "钱二", "张三", "李四", "王五", "赵六", "陈七", "何八", "冯九", "郑零") For i = 1 To 10   If Cells(24, 2) = i Then      'ActiveCell.Offset(1, 0) = arrname(i)      Cells(25, 2) = arrname(i - 1)      Exit For   End IfNext End Sub

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

阳光一片阳光一片当前离线积分 0 IP卡狗仔卡	发表于 2008-11-20 13:05 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
阳光一片阳光一片当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

[习题] 【V入2期】数组入门练习三