Question

VB 如何知道一个文本框数组中一个数字出现的次数

例如我有一个text1(0).text到text1(19).text的数组
text1(0).text= 1
text1(1).text=3
text1(2).text=6
text1(3).text=4
text1(4).text=4
text1(5).text=7
text1(6).text=3
...
text1(19).text=4
如何知道数组中出现了那几个数字并统计出数字1出现的次数，数字3出现的次数。。。重要的是如果某几个数字出现了一次和两次的话这几个文本框就清空即text=" "求代码

Answer 1

某几个数字出现了一次和两次的话这几个文本框就清空即text=" "？？？？？？

就是出现1次或2次的都清空，出现3次以上的不清空？

追问

是的，出现3次包括3次以上的文本框不清空。

是的，出现3次包括3次以上的文本框不清空。

追答

基于文本框数组为：Text1(0) -- Text1(19)

Dim dd() As String '记数字
Dim gg() As Integer '记个数
Dim i As Integer
Dim j As Integer
Dim n As Integer
ReDim dd(0) As String
n = 0
For i = 0 To 19
For j = 1 To UBound(dd)
If Text1(i).Text = dd(j) Then
gg(j) = gg(j) + 1
Exit For
End If
Next j
If j > UBound(dd) Then
n = n + 1
ReDim Preserve dd(n) As String
ReDim Preserve gg(n) As Integer
dd(n) = Text1(i).Text
gg(j) = gg(j) + 1
End If
Next i

'开始清除
For j = 0 To n
If gg(j) < 3 Then
For i = 0 To 19
If Text1(i).Text = dd(j) Then
Text1(i).Text = ""
End If
Next i
End If
Next j

Answer 2

ubound（split（文本,要找的字））