- 博客(2)
- 资源 (5)
- 收藏
- 关注
转载 VBS 删除数组元素
<br />Private Function removearray(a() As Integer, index As Integer) j = 0 For i = 0 To UBound(a) - 1 If i <> index Then a(j) = a(i) j = j + 1 End If Next removearray = a() End Function---------------------------------<br />vbscrīpt不像j
2011-02-16 00:04:00 5120
转载 VBS 数组
<br /> Private Sub Command1_Click() Dim a() As String a = Split(Text1.Text, ",") For i = 0 To UBound(a) Print a(i) Next End Sub 意思是:将文本框里面的内容以","(逗号)处隔开!!输出到窗体上--------------------------------------------------------------for i=1 to UBound(array_nam
2011-02-15 23:50:00 13435 1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人