Red de conocimiento informático - Problemas con los teléfonos móviles - vb combinación aleatoria de caracteres chinos

vb combinación aleatoria de caracteres chinos

VB6 utiliza internamente Unicode como modo de codificación de caracteres chinos. El rango de codificación Unicode es 4e00~9530 (hexadecimal). El siguiente código muestra aleatoriamente 1000 caracteres chinos:

Private Sub Command1_Click ()

Atenuar s como cadena

Cls

Aleatorio

Para i = 1 a 1000

s = s ChrW(amp;H4730 * Rnd amp; H4E00)

Si i Mod 40 = 0, entonces imprima s: s = ""

Siguiente

Fin Sub

Siguiente

Fin