VB 不重复添加数组 Private Sub Text1_Change()Private Sub Text2_Change()两个事件中 同时判断两个文本框是否为初值(或者写成一个sub子过程 在事件中调用也可以)，如果符合条件，就禁用增加按钮，否则就解封
vb删除数组中相同数据，求高手帮忙，先行谢过 Dim a()As String，b()As String，c()As StringDim temp As String，i As Longtemp=Replace(Text1，\"，\"，\"，\")a=Split(temp，\"，\")For i=0 To UBound(a)If Join(Filter(b，a(i)))=\"\"ThenIf Join(b)=\"\"ThenReDim b(0)ElseReDim Preserve b(UBound(b)+1)End Ifb(UBound(b))=a(i)If Join(c)=\"\"ThenReDim c(0)ElseReDim Preserve c(UBound(c)+1)End Ifc(UBound(c))=UBound(Filter(a，a(i)))+1End IfNext
vb如何生成不重复随机数组 简单。在程序里设置一个数组变量，成员不定，每生成一个随机数就保存在数组元素里。在程序末尾加一行if判断语句，如果新生成的数等于某个数组元素，则重新生成随机数；否则放行，直接输出。
