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:Atenuar s como cadena
Private Sub Command1_Click ()
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