La programación de vb.net cuenta la frecuencia de aparición de palabras

'Copiar el siguiente código al formulario, agregar una lista? y un botón de comando para ejecutar, y un cuadro de texto, y se ingresan datos en el cuadro de texto

¿Privado? ?Inglés

palabra?As?String

count?As?Long

End?Type

'Juzga si es inglés

¿Privado?Función?En(ByVal?s?As?String)?As?Boolean

If?s?=?""?Entonces?En?=?False：?Salir ?Función

s?=?LCaso(s)

Para?i?=?1?A?Len(s)

a?=?Asc (Mid(s,?i,?1))

Si?a?lt;?97?O?a?gt;?122?Entonces?En?=?False:?Salir?Función

Siguiente

En?=?True

Fin?Función

'Cuenta el número de apariciones de cada idioma inglés en la matriz

¿Privado?Función?TongJi(ByVal?T_txt?As?String)?As?English()

s?=?Split(T_txt,?"?")

n? =?0

¿Dim?English()?As?English

ReDim?English(0)

¿Para?i?=? 0?A?UBound(s)

Si?s(i)?lt;gt;?""?Y?En(s(i))?=?True?Then

temp?= ?False

For?j?=?0?To?UBound(English)

If?English(j).word?=?""?Then

English(j).word?=?s(i):?English(j).count?=?1：?Exit?For

ElseIf?English(j) .word?=? s(i)?Entonces

temp?=?True：?English(j).count?=?English(j).count? ?1：?Salir?Para

¿Fin?Si

Siguiente

Si?temp?=?False?Entonces

ReDim?Preserve?English(n):?English (n).word ?=?s(i):?English(n).count?=?1：?n?=?n ?1

Fin?If