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

魔影 · 发表于 2009-12-21 16:39

[em01][em02][em03][em02][em01]

keey · 发表于 2010-8-8 15:18

rtertrtrtrt

keey · 发表于 2010-8-8 15:18

hjhyutyutyyty

mn860429 · 发表于 2011-1-22 20:50

Sub cc()
arr = Split("," & [a1], ",")
arr1 = Filter(arr, "女", True)
r = UBound(arr1) + 1
Dim arr3()
ReDim arr3(1 To r, 1 To 2)
For i = 1 To r
arr3(i, 1) = i
arr3(i, 2) = IIf(Len(arr1(i - 1)) = 4, Left(arr1(i - 1), 1), Left(arr1(i - 1), 2))
Next i
Range("d6:e17") = arr3
End Sub

复制代码

hxigang · 发表于 2011-4-14 21:21

在看了练习七的答案后,感觉应该能做出,不做了,直接看答案吧

wgq985 · 发表于 2011-4-17 19:05

学习学习学习

vbyou126 · 发表于 2015-5-26 17:30

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

vbyou127 · 发表于 2016-1-29 19:52

hgghg

laoau123 · 发表于 2016-8-15 18:56

DFDFDFD

laoau138 · 发表于 2016-9-21 16:39

ddfsdsf

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

vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡	发表于 2015-5-26 17:30 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

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