Mã: Chọn hết
'Hàm kiểm tra tần xuất xuất hiện trong chuổi , số lần xuất hiện trong chuổi
Public Function numberofchar(arraychar As Char(), chardata As Char) As Integer
If arraychar.Length = 0 Then
Return 0
End If
If Len(chardata) = 0 Then
Return 0
End If
Dim number As Integer = 0
For Each chartemp As Char In arraychar
If chartemp = chardata Then
number += 1
End If
Next
Return number
End Function