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

Firerabbit

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

ycb20010823

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

jiangnan329

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

</p><p>终于熬夜把最后一题搞定了,请老师批示!</p>

magiclight

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

cjch1969

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

wh7705

<p>

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

</p>

[此贴子已经被作者于2008-7-8 14:47:59编辑过]

大致若汝

Private Sub CommandButton1_Click() '练习七<br/>Dim arr() As String, arr1() As String, i As Integer<br/>arr = Split([a1], ",")<br/>ReDim arr1(0 To UBound(arr), 1 To 2)<br/>&nbsp;&nbsp;&nbsp; For i = 0 To UBound(arr)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(arr(i), "女") &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr1(i, 1) = Left(arr(i), Len(arr(i)) - 3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr1(i, 2) = "女"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr1(i, 1) = arr(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr1(i, 2) = "男"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp; [b6].Resize(UBound(arr) + 1, 2) = arr1<br/>End Sub

AK_may

楼主真是厉害,一下子出了这么多的题.

hysqydb

精彩

Qinjabil

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