如何在数组中找出字符相同的数?

2coco 2004-03-26 08:36:30
如何在数组中找出字符相同的数?
e.g a(1)a(2)a(3)...中。
...全文
230 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-03-26
  • 打赏
  • 举报
回复
数组a() 包含指定的字符串x 的元素个数为 ubound(filter(a,x))+1
列出元素:join(filter(a,x)),vbcrlf)
victorycyz 2004-03-26
  • 打赏
  • 举报
回复

是要找出两两相等的数组元素,还是要找出与指定的字符串相同的数组元素?
华芸智森 2004-03-26
  • 打赏
  • 举报
回复
如何在数组中找出字符相同的数?
说实在的,我还不是很明白楼主的意思..
如果答得不对.....只好对不起了.
华芸智森 2004-03-26
  • 打赏
  • 举报
回复
1.先对数组进行排序.
2.用一个FOR循环处理.
Option Explicit


Dim A(100) As String



Private Sub Form_Load()
Dim I As Long
For I = 0 To UBound(A)
'产生随机字符串.
A(I) = Chr(CLng(65 + Rnd() * (Asc("z") - Asc("A"))))
A(I) = A(I) & Chr(CLng(65 + Rnd() * (Asc("z") - Asc("A"))))
Next

End Sub

Private Sub Command1_Click()
Dim B() As Long
Dim OleVal As String
Dim I As Long
Dim ID As Long

'排序
Call StrSortZA(A, 0, UBound(A))
For I = 0 To UBound(A)
If OleVal = A(I) Then
ID = ID + 1
ReDim Preserve B(ID)
B(ID - 1) = I '将相同的字符串保存在数组 B 中
End If
OleVal = A(I)
Next

End Sub

'
'字符串快速排序(从大到小)
'函数:StrSortZA
'参数:sArr String数组,L 数组的左边界,R 数组右边界.
'返回值:无
'例子:

Public Sub StrSortZA(ByRef sArr() As String, First As Long, Last As Long)
Dim vSplit As String, vT As String
Dim I As Long, j As Long, iRand As Long

If First < Last Then
If Last - First = 1 Then
If sArr(First) < sArr(Last) Then
vT = sArr(First): sArr(First) = sArr(Last): sArr(Last) = vT
End If
Else
iRand = Int(First + (Rnd * (Last - First + 1)))
vT = sArr(Last): sArr(Last) = sArr(iRand): sArr(iRand) = vT
vSplit = sArr(Last)
Do
I = First: j = Last
Do While (I < j) And (sArr(I) >= vSplit)
I = I + 1
Loop
Do While (j > I) And (sArr(j) <= vSplit)
j = j - 1
Loop

If I < j Then
vT = sArr(I): sArr(I) = sArr(j): sArr(j) = vT
End If
Loop While I < j

vT = sArr(I): sArr(I) = sArr(Last): sArr(Last) = vT

If (I - First) < (Last - I) Then
StrSortZA sArr(), First, I - 1
StrSortZA sArr(), I + 1, Last
Else
StrSortZA sArr(), I + 1, Last
StrSortZA sArr(), First, I - 1
End If
End If
End If
End Sub
daisy8675 2004-03-26
  • 打赏
  • 举报
回复
把數組當成一個字符串處理,然後循環查找

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧