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